XL 2013 Ajout de colonnes

[patrick.r7]

Bonjour à vous,
Je souhaite créer une nouvelle colonne avec le même texte ajouté en colonne A.
Ci joint mon exemple.
Cdt

 

[JHA]

Re : Ajout de colonnes

Bonjour à tous,

un exemple parmi d'autres

ou en B1

=INDIRECT("$A"&COLONNE()+1)

JHA

 

[patrick.r7]

Re : Ajout de colonnes

Merci pour ton aide,
Ça marche nickel.
Cdt

 

[DoubleZero]

Re : Ajout de colonnes

Bonjour, patrick.r7, JHA 🙂, le Forum,

Une autre possibilité, par macro :

Option Explicit
Sub Colonnes_ajouter()
    Dim c As Range
    Application.ScreenUpdating = False
    [b1:xfd1].Clear
    Range(Range("a3"), Range("a3").End(xlDown)).Copy
    [b1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                      False, Transpose:=True
    Application.CutCopyMode = False
    [a1].Select
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[patrick.r7]

Re : Ajout de colonnes

Merci aussi DoubleZero.