Une macro qui ne fonctionne pas

[Julien]

Bonsoir à tous,
C'est à ne plus rien y comprendre !!! J'ai un userform qui me permet d'effacer le contenu d'une rangée de cellules dans ma liste. La 1ère lignes est A7:M7 et la dernière A78:M78. Et, je selectionne la valeur de la première cellule dans un combobox. Ma macro :

Private Sub CommandButton1_Click()
Cells(.ComboBox1.ListIndex).Value = ''
Cells(.ComboBox1.ListIndex + 7, 1).Value = ''
Cells(.ComboBox1.ListIndex + 7, 2).Value = ''
Cells(.ComboBox1.ListIndex + 7, 3).Value = ''
Cells(.ComboBox1.ListIndex + 7, 4).Value = ''
Cells(.ComboBox1.ListIndex + 7, 5).Value = ''
Cells(.ComboBox1.ListIndex + 7, 6).Value = ''
Cells(.ComboBox1.ListIndex + 7, 7).Value = ''
Cells(.ComboBox1.ListIndex + 7, 8).Value = ''
Cells(.ComboBox1.ListIndex + 7, 9).Value = ''
Cells(.ComboBox1.ListIndex + 7, 10).Value = ''
Cells(.ComboBox1.ListIndex + 7, 11).Value = ''
Cells(.ComboBox1.ListIndex + 7, 12).Value = ''
Cells(.ComboBox1.ListIndex + 7, 13).Value = ''
End Sub

Elle ne fonctionne pas !!! Qui pourrait m'aider ?
Merci à tous.

Julien

 

[_Thierry]

Bonjour Julien, enfin Bonsoir, le Forum

A prime abord..... Attention :

Private Sub CommandButton1_Click()
Cells(.ComboBox1.ListIndex).Value = ''


Signifie que tu travailles sur la Cellule (Row, Collumn) de la Feuille Active...

Sinon c'est :

Private Sub CommandButton1_Click()
With Sheets('TaFeuilleDeTravail')
.Cells(.ComboBox1.ListIndex).Value = ''
.Cells(.ComboBox1.ListIndex + 7, 1).Value = ''
.Cells(.ComboBox1.ListIndex + 7, 2).Value = ''
.Cells(.ComboBox1.ListIndex + 7, 3).Value = ''
.Cells(.ComboBox1.ListIndex + 7, 4).Value = ''
.Etc etc etc
End With

A noter que tu pourrais aussi boucler vu la structure pour faire ceci... Mais ne compliquons pas pour l'instant...

Attention aussi je ne vois aucun Test :
If ComboBox1.ListIndex = -1 Then Exit Sub ... (si il n'y a pas de sélection)

Bonne Soirée@+Thierry

 

[Julien]

Bonsoir Thierry,
Je ne m'attendais pas une réponse aussi rapide, un grand merci à toi pour ton aide.
Salutations.

Julien