macro pour ecrire sur plusieurs colonnes

Mapat · 25 Février 2012

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 · 25 Février 2012

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 · 25 Février 2012

Re : macro pour ecrire sur plusieurs colonnes

Bonsoir à tous

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

Code:

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

macro pour ecrire sur plusieurs colonnes

Mapat

XLDnaute Occasionnel

Mapat

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

macro pour ecrire sur plusieurs colonnes

Mapat

XLDnaute Occasionnel

Mapat

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency