Bonjour,
Je cherche à créer une macro pour récupérer les informations d'une cellule et les distribuer dans plusieurs cellules sur la même ligne, puis passer à la ligne suivante ...
J'ai enregistrer cette macro mais elle ne passe pas à la ligne.
Ex : "C573" vers "J;K;L;M;O 573" mais j'aimerai qu'ensuite celle-ci se répète en "C574" vers "J;K;L;M;O 574"
Sub Macro6()
'
' Macro6 Macro
'
' Touche de raccourci du clavier: Ctrl+u
'
Range("C573").Select
ActiveCell.FormulaR1C1 = _
"Type : Pompe à chaleur Air/Air - Gamme : Mono-split Emura - Puissances restituées nominales (Froid/Chaud) : 2500 / 3400 watts - Puissances absorbées nominales (Froid/Chaud) : 550 / 770 watts - Classe énergétique saisonnier (Froid/Chaud) : A+++ / A++ - Coefficients de performance saisonnier (SEER/ SCOP): 8,57 / 4,60 - Pression sonore : 47 dB(A) - Type de réfrigérant " & _
"/ PRP : R-410A /2088 - Consommation énergétique annuelles (Froid/Chaud) : 102 / 833 KWh" & _
""
Range("J573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(Froid/Chaud) : 2500 / 3400 watts"
Range("K573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(Froid/Chaud) : 550 / 770 watts"
Range("L573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(Froid/Chaud) : A+++ / A++"
Range("M573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(SEER/ SCOP): 8,57 / 4,60"
Range("N573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "47 dB(A)"
Range("O573").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(Froid/Chaud) : 102 / 833 KWh"
Range("C574").Select
End Sub
Pouvez-vous m'aider car j'ai 640 lignes à modifier et sans macro c'est long !!!
Merci,
Christophe.