Discussion :

[crissud]

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

[Theze]

Bonsoir,

As tu vérifié avec attention l'orthographe des noms de feuille ? Il y a de grandes chances que l'erreur vienne de là. A moins que ce soit les plages de cellules. Mets dans ton code un Debug.Print ou un Msgbox pour connaître comment sont orthographiées les valeurs des deux variables en mettant, avant, une apostrophe devant "Worksheets(Onglet).Range(Cellule).ClearContents" pour éviter l'erreur.

Hervé.