Discussion :

[mat.guillaume]

Bonjour,

Je voudrais copier le contenu des cellules A1 à E1 de la feuille 1 vers les cellules A1 à A5 de la feuille 2, de telle sorte que si je change une valeur d'une cellule de la feuille 1 (par exemple la valeur de C1), alors la valeur de la case associée dans la feuille 2 subisse le même changement (case A3).

De plus, je souhaite que la copie soit automatique. J'ai écrit la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Sub test()
 
    Sheets(Feuille2).Select
 
    For i = 1 To 5
 
    Range("A" & i).Activate
    ActiveCell.FormulaLocal = "=INDIRECT(""'Feuille1'!??"")"
 
    Next
 
End Sub

Le problème vient des ?? car je ne sais pas comment écrire la cellule correspondante de la feuille 1, sachant que i est le n° de colonne de cette cellule.

Si l'un d'entre vous a une idée ou une autre méthode pour effectuer le copier/coller qui m'intéresse, ce serait formidable de sa part, car cela fait un bon bout de temps que je bute sur ce problème. Merci d'avance !

[SfJ5Rpw8]

je comprends pas ce que viens vers la fonction INDIRECT la ..? est tu sur que tu as besoin d'elle voir

[mat.guillaume]

J'utilise la fonction INDIRECT car c'est le seul moyen que j'ai trouvé pour que la valeur de la cellule d'arrivée (A3 par ex.) soit toujours égale à celle de la cellule de départ (C1), même si elle est modifiée.

[SfJ5Rpw8]

J'utilise la fonction INDIRECT car c'est le seul moyen que j'ai trouvé pour que la valeur de la cellule d'arrivée (A3 par ex.) soit toujours égale à celle de la cellule de départ (C1), même si elle est modifiée.

je comprends pas comment utilise tu cette fonction indirect.. , dans quelle cellule ..? quelle formule met tu ..?

[mat.guillaume]

Prenons i=2.

Je veux copier la valeur de B1 (i = 2 = n° colonne) de la feuille 1 dans la case A2 (i = 2 = n° de ligne) de la feuille 2.

Donc :

Je me place dans la feuille 2 et je sélectionne la case A2.
Dans cette case, je veux écrire la formule : =INDIRECT("'Feuille1'!B1").

Mais comme je suis dans une boucle, j'aimerais remplacer la lettre B par une lettre qui varie en fonction de i, mais je n'y arrive pas.

[marsupilami34]

Si tu veux utiliser la fonction indirect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'Dabord sélectionner la cellule ou tu veux mettre ta formule
Cells(1,1) 'par exemple correspondant à A1
ActiveCell.FormulaR1C1 = "=INDIRECT(Feuil2!RC[1])"

A++

[SfJ5Rpw8]

avant d'écrire la formule en VBA, finissons en avec formule excel..., tu n'as pas besoin d'indirect... tu peu mettre directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=Feuil1!$B$1

en A2

[mat.guillaume]

Effectivement, je peux mettre directement ta formule excel dans la case A2.
Mais je ne peux pas utiliser de copier/coller pour reproduire la formule dans les autres cases car on passe d'une sélection horizontale dans la feuille 1 à une sélection verticale dans la feuille 2. Donc avec cette méthode je suis obligé d'écrire manuellement cette formule dans toutes les cases de la feuille 2. Or je veux automatiser le remplissage de la feuille 2, c'est pourquoi je suis passé par du VBA.

Pour résumer, le problème est de coller une sélection horizontale dans une colonne, tout en gardant les valeurs de la colonne liées aux valeurs de la ligne.

J'ai essayé toutes les méthodes "classiques", mais ça ne marche pas. C'est pour cela que je me suis tourné vers INDIRECT, mais ça ne marche toujours pas !! Il y a peut être d'autres solutions plus élaborées ?

[SfJ5Rpw8]

voilà la fonction test modifiée..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub test()
    For i = 1 To 5
     Sheets("Feuil2").Range("A" & i).FormulaLocal = "=Feuil1!" & Cells(1, i).Address(True, True)
    Next
End Sub

[mat.guillaume]

Verdict : félicitations bbil !!! ça marche exactement comme je voulais.
Merci beaucoup pour ta contribution. Maintenant je vais essayer de comprendre ta formule ...

A +