guy72
XLDnaute Impliqué
Bonjour,
J'ai ce morceau de macro :
With FeWS2300
'Pressions
Set Source = .Range("AM5:AX"): Colonne = "F"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Températures
Etc.....
'Vent
Ect.....
'Pluie
Etc....
'Soleil
Etc.....
Sheets("Février").Select
End With
La macro me copie les valeurs des cellules AM5:AX5 de la feuille "WS_2300" et les collent dans la feuille "Février" à partir de la colonne F de 2 lignes en 2 lignes.
Je souhaite maintenant, recopier que quelques cellules.
J'ai essayé c'est 4 solutions:
Set Source = .Range("AM5:AN5,AP5:AT5,AV5:AX5"): Colonne = "F" ou -->
Set Source = .Range("AM5:AN5;AP5:AT5;AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5,AP5:AT5,AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5";"AP5:AT5";"AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5","AP5:AT5","AV5:AX5"): Colonne = "F"
Etc....etc....ça ne fonctionne pas.
Y a-t-il une solution ?
Merci de votre aide
J'ai ce morceau de macro :
With FeWS2300
'Pressions
Set Source = .Range("AM5:AX"): Colonne = "F"
FeFévrier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Températures
Etc.....
'Vent
Ect.....
'Pluie
Etc....
'Soleil
Etc.....
Sheets("Février").Select
End With
La macro me copie les valeurs des cellules AM5:AX5 de la feuille "WS_2300" et les collent dans la feuille "Février" à partir de la colonne F de 2 lignes en 2 lignes.
Je souhaite maintenant, recopier que quelques cellules.
J'ai essayé c'est 4 solutions:
Set Source = .Range("AM5:AN5,AP5:AT5,AV5:AX5"): Colonne = "F" ou -->
Set Source = .Range("AM5:AN5;AP5:AT5;AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5,AP5:AT5,AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5";"AP5:AT5";"AV5:AX5"): Colonne = "F" ou-->
Set Source = .Range("AM5:AN5","AP5:AT5","AV5:AX5"): Colonne = "F"
Etc....etc....ça ne fonctionne pas.
Y a-t-il une solution ?
Merci de votre aide
Dernière édition: