Bonjour,

Je travaille actuellement sur un tableau avec des boutons pour ajouter et retirer des lignes, et des boutons pour ajouter et retirer des colonnes.

Je n'ai jamais programmé avant, je ne savais faire que des enregistrements de macro assez basique. Du coup un collègue m'aide a faire ce tableau, mais j'essaye de ne pas trop me reposer sur lui et a avancer moi même.

Cependant je bloque sur quelque chose : je démarre mon tableau avec 5 colonnes, je peux jouer sur le nombre de lignes avec ces 5 colonnes. Cependant quand j'augmente le nombre de colonnes et qu'ensuite j'augmente le nombre de lignes, je retombe à 5 colonnes.
Je vois ou est le problème mais je ne sais pas du tout comment le résoudre !


code ajout de ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ZoneTexte3_Cliquer()
 
    Dim nbr As Integer 'number of the row
    Dim lastr As Integer 'last row of the range
 
    Sheets("Critères").Range("Tableau1").Select
    nbr = Selection.Rows.Count
    lastr = 5 + nbr + 1
    Sheets("Critères").ListObjects("Tableau1").Resize Range("C5:G" & lastr)
    Sheets("Critères").Range("C" & lastr) = "C" & lastr - 5
    Sheets("Critères").Range("C" & lastr).Select
 
End Sub
Comment fait-on pour ajuster le tableau en fonction du nombre de colonne qui est variable ?

Merci à vous.