Effacement cellule à partir d'une liste
Bonsoir,
J'ai besoin d'un petit coup de main
j'ai écris une macro pour effacer des données dans mes feuilles, celle macro fait appel à une table de cellule.
Mais j'ai un bug, erreur 9 indice n'appartient pas à la sélection
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub efface()
Dim i As Integer
Dim Onglet As Variant
Dim Cellule As Variant
Dim NbLignesConfig As Long
NbLignesConfig = frmConfig.[A1].CurrentRegion.Rows.Count
For i = 2 To NbLignesConfig
Onglet = Worksheets("Configuration").Range("A" & i)
Cellule = Worksheets("Configuration").Range("B" & i)
Worksheets(Onglet).Range(Cellule).ClearContents
Next
End Sub |
Dans les variables onglet et cellule j'ai bien le nom de la feuille et la référence de la cellule à effacer, qui se trouve dans une table dans l'onglet configuration.
Onglet = "Données1" (c'est le nom d'une feuille)
Cellule = "A1" (c'est l'adresse de la cellule à effacer)
Merci de votre aide
