XL 2019 Incrémentation, faire glisser une cellule VBA

Jacky67

XLDnaute Barbatruc

• 16 Novembre 2019

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 16 Novembre 2019

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2019

• #4

Bonjour le fil, E5Kobar, Jacky67

Une possibilité (en repartant du code de Jacky67)

VB:

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Novembre 2019

• #5

E5kobar à dit:

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

Cliquez pour agrandir...

Re..
Hello JM
Ou encore

VB:

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

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 16 Novembre 2019

• #6

Merci beaucoup Jacky67 et Staple1600 , c'est parfait!

Pierre

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2019

• #7

Re

Hello Jacky67
Mais aussi

VB:

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

 

Vote positif 0 Vote négatif