Discussion :

[azsdcv]

Bonjour,
Au lieu d'un copier coller de ma macro, je souhaiterai "transférer" les valeurs de feuille 1 à la feuille 2. J'ai essayé cela :

Code :

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

1
2
j = Feuil2.Range("C1").End(xlToRight).Column + 1
Feuil2.Range(Cells(1, j), Cells(100, j)) = Feuil1.Range(Cells(12, 2), Cells(100, 2))

J étant la dernière colonne vide.
Cette ligne ne fonctionne pas et je ne sais pas pourquoi

D'avance merci pour votre aide

[AlainTech]

Bonjour et bienvenue.

Cette ligne ne fonctionne pas

Quel est le message d'erreur?

[Pierrot93]

Bonjour,

petite remarque au passage, à priori les plages ne comportent pas le même nombre de lignes, 100 pour la 1ère et 89 pour la 2ème...

bonne jornée
@+

[PPz78]

Bonjour,

J étant la dernière colonne vide.

oui mais de la feuille 2 et de la colonne C
Vu le transfert effectué ensuite j'aurais mis feuille 1 colonne B

PPz

[chyanon]

Bonjour tout le monde,

Le code ci-dessous marche
Reste à l'adapter a ton besoin

Code :

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

1
2
3
4
5
Sub aaaa()
j = Feuil2.Range("A1").End(xlToRight).Column + 1
Feuil2.Columns(j).Value = Feuil1.Columns(1).Value
 
End Sub

J'espère que ca va pouvoir t'aider !
Bonne journée

[azsdcv]

Super cela fonctionne
J'ai cependant une autre question comment fait on pour transférer non pas une valeur (.value) mais une équation (. ????)

D'avance Merci