macro pour ecrire sur plusieurs colonnes

[Mapat]

Bonjour le forum

Sub Ecrit()
ActiveCell.FormulaR1C1 = "Premier"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "Deuxième"
ActiveCell.Offset(1, -3).Range("A1").Select
End Sub

Avec cette petite macro, l'on peut écrire par ex. en A1 Premier et
en D1 Deuxième
Comment faire pour écrire Troisième en E1
Merci pour votre aide

 

[Mapat]

Re : macro pour ecrire sur plusieurs colonnes

Re

Oui ça fonctionne modifié comme ça

ActiveCell.Value = "1"
ActiveCell.Offset(0, 3).Value = "3"
ActiveCell.Offset(0, 4).Value = "4"

Je te remercie pour ton aide

Bonne soirée

​

 

[Staple1600]

Re : macro pour ecrire sur plusieurs colonnes

Bonsoir à tous


Avec ce que j'ai compris de la question
Une autre solution possible

Sub EcritII()
Dim T
T = Array("Premier", "", "", "Deuxième", "Troisième")
If ActiveCell.Column = 1 Then
ActiveCell.Resize(, UBound(T) + 1) = T
End If
End Sub