XL 2019 Incrémentation, faire glisser une cellule VBA

[E5kobar]

Bonjour le fil,

Malgré de nombreuses tentatives, je coince sur la problématique suivante :

J'aimerais, en VBA, dans la première cellule vide de la ligne 1, faire glisser la cellule de gauche de façon à ce que "X1" devienne "X2" et ainsi de suite...


J'ai pensé à transformer la ligne suivante :

Selection.AutoFill Destination:=Range("L1:M1"), Type:=xlFillDefault

En :

Selection.AutoFill Destination:=Range("nom de la cellule active : nom de la cellule à droite "), Type:=xlFillDefault

Merci pour votre aide !

------------------------

Pour imager mes propos :

 

[Jacky67]

Bonjour,
Si j'ai bien compris, il s'agit d'ajouter une colonne ?
Sans Vba
Clique droit sur la dernière colonne==>Insérer==>Colonne de tableau à droite
En Vba

Sub ajoutercolonne()
  [Tableau1].ListObject.ListColumns.Add
End Sub

 

[E5kobar]

Bonjour @Jacky67

Merci pour cette réponse simple et efficace.

Avez vous une solution pour indiquer dans toute la colonne crée du tableau (sauf l'en tête) un "x" dans chaque cellule?

Merci d'avance

 

[Staple1600]

Bonjour le fil, E5Kobar, Jacky67

Une possibilité (en repartant du code de Jacky67)

Sub AjouterColonne_et_X()
Dim oTBL As ListObject
Set oTBL = [Tableau1].ListObject
With oTBL
.ListColumns.Add
.DataBodyRange.Columns(.ListColumns.Count) = "x"
End With
End Sub

 

[Jacky67]

Bonjour @Jacky67

Merci pour cette réponse simple et efficace.

Avez vous une solution pour indiquer dans toute la colonne crée du tableau (sauf l'en tête) un "x" dans chaque cellule?

Merci d'avance

Re..
Hello JM
Ou encore

Sub ajoutercolonne()
    With [Tableau1].ListObject
        .ListColumns.Add
        .DataBodyRange.Columns(.ListColumns.Count) = "x"
    End With
End Sub

 

[E5kobar]

Merci beaucoup Jacky67 et Staple1600 , c'est parfait!

Pierre

 

[Staple1600]

Re

Hello Jacky67
Mais aussi 😉

Sub Ajout_Col_X()
With [Tableau1].ListObject.ListColumns.Add: .DataBodyRange = "x": End With
End Sub