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 : Sélectionner tout - Visualiser dans une fenêtre à part
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