Mapat
XLDnaute Occasionnel
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
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