Erreur de compilation

Bonjour

J'ai un soucis avec VBA, l'erreur affiché est : "Erreur de compilation : Membre de méthode ou de données introuvable"

Si vous pouvez me renseigner =)

Sub impre()

Dim Cellule As Range
Dim j As Integer, av As Integer
Dim shToto As Worksheet
Dim Sh As Worksheet

Set Sh = Worksheets("Feuil1")

Set shToto = Sheets.Add(After:=Sheets(Sheets.Count))
shToto.Name = "toto"
av = 0

For j = 1 To 3                                                      'parcours la checkbox
    If Boutons(j).ButtonGroup = True Then                         'Vérifie la sélection du checkbox
     Set Cellule = Worksheets("Feuil1").Columns(1).Find(j, LookAt:=xlPart)  'on recherche dans la colone 1 un mot qui a notre chiffre
     If Not Cellule Is Nothing Then                                  'On cherche dans la cellule notre chiffre
        If av = 0 Then
        Sh.Cellule.Resize(7, 3).Copy shToto.Range("A1")
        av = av + 8
        Else
        Sh.Cellule.Resize(7, 3).Copy shToto.Range("A" & av)
        av = av + 8
        End If
      End If
    End If
Next j

End Sub

Voici aussi ci joint mon fichier, l'erreur est sur le module TestImpression

Merci de votre aide !!! =)

Hello Poumchimie, Forum,

Sans avoir approfondi, essaie de remplacer ces lignes

Sh.Cellule.Resize(7, 3).Copy shToto.Range("A1")
Sh.Cellule.Resize(7, 3).Copy shToto.Range("A" & av)

comme ceci...

Worksheets("Feuil1").Cellule.Resize(7, 3).Copy shToto.Range("A1")
Worksheets("Feuil1").Cellule.Resize(7, 3).Copy shToto.Range("A" & av)

Peut-être que...

Merci de ton aide !! =)

Je n'ai plus cet erreur mais j'en ai un autre ....

Ma deuxième erreur est "l'indice n'appartient pas à la sélection", lorsque j'appuie sur débogage, il pointe sur la ligne :

If Boutons(j).ButtonGroup = True Then

Voici ci joint mon fichier

PS : Je ne suis pas super fort mais j'y travaille

Je viens de résoudre un problème, d'abord je met en commentaire le "if ..."et j'ai une autre erreur qui apparait

Mon erreur était sur la ligne de code

Worksheets("Feuil1").Cellule.Resize(7, 3).Copy shToto.Range("A1")

Il fallait que je retire le "Worksheets("Feuil1") " car ma variable Cellule était déjà dedans ...

Sinon j'ai toujours l'erreur sur le if et je ne comprend pas pourquoi ><

Amicalement

poum

Après de longue recherche sur mon problème, je pense savoir pourquoi j'ai l'erreur, corriger moi si j'ai faux =)

Il n'arrive pas a lire mon checkbox tout simplement! Je ne comprend pas pourquoi mais bon, apres un ALT F4 de mon excel et une réouverture, tout fonctionne ...

Si vous avez une explication a cela, je suis partant

Amicalement

Poum