Forum Clubic

Travail de macro

Logiciel Programmation
#1

Bonjour à tous

Est-il possible de créer une macro sur excel qui affiche le contenue d’une cellule sur une autre feuille en cliquant seulement sur la cellule sans créer de bouton.
Exemple:
Feuille 1 cellule A1 = bob Resultat: Feuille X cellule A4 = bob
Feuille 1 cellule B1 = Jean Feuille X cellule A5= Jean
Feuille 2 cellule A1= Paul Feuille X cellule B4= Paul
Feuille 2 cellule B1= Marie Feuille X cellule B5= Marie

Merci d’avance
Bob

#2

Pourquoi une macro ?
si tu mets dans A4 = Feuil1!A1, ca ne donne pas ce que tu cherches ?

#3

Le problème c’est que je veux cliquer sur la cellule pour ne pas chaque fois taper la formule, mais je crois que ce n’est pas possible.
Merci quand même.

#4

Je ne te suis pas très bien …
Ceci dit, Avec un clic simple, ce n’est pas possible, mais avec un double clic, ou avec un clic droit, ça l’est
Il suffit de leur affecter la formule ci dessus

#5

Merci,gcc
Je viens juste de voir ta réponse car je ne suis pas en permanence connecté.
J’essaierai ton idée et si ce n’est pas la solution j’écrirais mon problème un peu plus en détail.
A plus

#6

Salut Gcc voici mon idée
Classeur RESULTATS
Feuille 1, cell A1= A, cell A2= B, cell A3 = C, cell B1 = D, cell B2 = E, cell B3 = F
Feuille 2, cell A1= H, cell A2= I, cell A3 = J, cell B1 = K, cell B2 = L, cell B3 = M
Feuille 3, cell A1= P, cell A2= Q, cell A3 = R, cell B1 = S, cell B2 = T, cell B3 = U
Feuille FINAL
Dans cette feuille, je veux intégrer la valeur des cellules comme suit:
Dans la cellule A1: feuil1!A1 soit A ou feuil1!A2 soit B ou n’importe quelle autre de la feuille 1
Dans la cellule A2: feuil1!A1 soit H ou feuil1!A2 soit I ou n’importe quelle autre de la feuille 1
Dans la cellule A3: feuil1!A1 soit P ou feuil1!A2 soit Q ou n’importe quelle autre de la feuille 1

Ceci en double cliquant sur une cellule par exemple A3 de la feuille 2 = J
J’y arrive avec une macro affectée à un bouton pour chaque cellule, mais le nombre de cellule est très important et le programme est chargé et très long . J’ai envron 500 cellules donc 500 boutons.
Voici dessous la macro que j’ai affectée au bouton
Sub A()
’
’ A Macro
’ Macro enregistrée le 13/12/2007 par FRAMERY ROBERT
’
Sheets(“feuil1”).Select
Range(“A1”).Select
Selection.Copy
Sheets(“final”).Select
Range(“A1”).Select
ActiveSheet.Paste
Sheets(“Nommer”).Select
End Sub

Voilà j’espère que c’est un peu plus clair pour toi

Merci encore Bob

#7

Pas sûr d’avoir tout compris …
S’il s’agit de remplir UNIQUEMENT LA COLONNE A de la feuille final, le numéro de la ligne étant déterminé par la feuille source (feuil1, feuil2 etc), tu peux faire de la manière suivante :

Il faut que tu crées une fonction évenement dans chacune des feuilles sources.
Tu vas dans Visual basic, tu sélectionnes la feuille, puis dans les listes déroulantes worksheet et BeforeDoubleClick
Après la fonction est simple à écrire :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Sheets("Final").Range("A1") = Target
    Cancel = True
End Sub

Tu n’as plus qu’à double-cliquer la cellule que tu veux transférer
Pour les autres feuilles, il suffit de remplacer A1 par A2, A3 etc

NB : c’est une version “statique”, c’est à dire que si tu changes la valeur dans feuil1, tu dois ensuite double-cliquer la cellule pour transférer la nouvelle valeur.
Si tu veux que le changement se fasse automatiquement, il te faut mettre
Sheets(“Final”).Range(“A1”).Formula = “=feuil1!” + Target.Address

#8

Je te remercie Gcc
J’ai trouvé la solution à mon problème
Je te la ferai parvenir demain
Je me suis régalé à réfléchir
Merci encore à bientôt
Bob

#9

Salut Gcc, Salut à tous

Mon problème est réglé grace à la communauté, j’ai touvé cette solution.
Le résultat se trouve donc dans un classeur “test”
On peut donc “double cliquer” ou faire un “clic droit” sur n’importe quelle cellule du classeur pour copier la valeur dans le classeur test.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveCell.Select
    Selection.Copy
    [a1].Select
Workbooks.Open Filename:= _
    "C:\Documents and Settings\ROBERT\Bureau\test.xls"
    ligne = Sheets(1).Range("B10").End(xlUp).Row + 1
    Sheets(1).Cells(ligne, 2).Select
    ActiveSheet.Paste     
     ActiveWorkbook.Save
ActiveWindow.Close

End Sub
Par contre j’aimerai pouvoir entrer ces résultats sur une feuille Word et là j’ai encore un problème.

Merci encore et à plus.
Bob

#10

Le copier/coller entre excel et word ca marche très bien
Tu as le choix entre collet pour obtenir une présentation identique à celle d’excel, ou collage spécial sans mise en forme pour avoir une simple liste.

#11

Rebonjour à tous
Il y a une image (image 1 : image 30) différente sur chaque feuille de mon classeur qui contient 30 feuilles Feuil1:Feuil30 et une feuille test.
Je veux en cliquant sur une image la copier, exemple image6 Feuil6 sur la cellule A1 de la Feuil Test
Puis image8 Feuil8 sur cellule suivante ( B1) de la Feuil Test
ainsi de suite selon que l’on clique sur une image quelconque.
Peut-on écrire un code pour ce problème.
Merci encore
Bob