Discussion :

[Pierre Fauconnier]

Donne ton code et la ligne sur laquelle le problème survient (celle qui est en jaune au moment où l'erreur est levée)... (C'est surréaliste, 20 messages pour un truc aussi basique... )

[aguerriera]

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub Bouton7IDENTIFIANT_Cliquer()
'déclaration des variables :
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
    Dim Message_MZ, Title_MZ, Default_MZ, Value_MZ
    Dim ActiveSheet, Shapes, Range
    Dim LastRow As Long

                    'Fenêtre texte

                Message_MZ = " Saisir votre nom de famille "
                    Title_MZ = " Identification "
                    Value_MZ = InputBox(Message_MZ, Title_MZ, Default_MZ)
                If Value_MZ = "" Then
                End If
                
                Valeur_Cherchee = Value_MZ
                    
                    'dans la première colonne de la feuille active
                    
                Set PlageDeRecherche = Sheets("Feuil4").Range("A1:A20") '
                Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
        
            'Si on ne trouve rien :
                If Trouve Is Nothing Then
                    AdresseTrouvee = Valeur_Cherchee & "  vous n'êtes pas reconnu, veuillez réessayer "
                Else
                      AdresseTrouvee = Valeur_Cherchee & " vous êtes connecter"
                      

            'Copier , coler
                    Trouve.Copy
                    Worksheets("NEUF").Paste destination:=Worksheets("NEUF").Range("J7")
                    Worksheets("CP").Paste destination:=Worksheets("CP").Range("I7")
                
            'Suppresion du bouton
                    Worksheets("SOMMAIRE").Activate
                    ActiveSheet.Shapes("Bouton 115").Visible = False
                    
            'Sauvegarde
                    'ActiveWorkbook.Save
                End If

                    MsgBox AdresseTrouvee
    'vidage des variables
                Set PlageDeRecherche = Nothing
                Set Trouve = Nothing
                
                

                
End Sub

[Pierre Fauconnier]

Si tu es certain du nom de ton bouton, c'est qu'il n'existe pas sur la feuille SOMMAIRE. Il se trouve donc sur une autre feuille.

[Marc-L]

Si enfin cette fois le nom est correct alors, comme déjà signalé, l'objet n'appartient pas à la collection Shapes
ou n'existe pas dans la feuille de calculs, …

Et c'est pourtant si simple à vérifier pour un grand débutant via l'Enregistreur de macro
mais comme tu nous montres toujours rien c'est une histoire sans fin !

Sans compter la possibilité d'un objet verrouillé dans une feuille de calculs protégée mais n'étant pas
dans un forum divinatoire c'est bien au demandeur de le vérifier avant même de créer cette discussion …

[aguerriera]

Je ne me suis pas trompé

[Pierre Fauconnier]

En relisant ton code, je vois que tu as une ligne de déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ActiveSheet

Supprime cette déclaration!. Tu ne dois pas déclarer une variable avec ce nom, ActiveSheet est une propriété native de l'objet Application.

En la déclarant, tu crées une ambigüité pour Excel. Je viens de tester et c'est cela qui pose problème...

[aguerriera]

Vous voyez bien sur l'image que je ne me suis pas trompé ?

[Pierre Fauconnier]

Vous voyez bien sur l'image que je ne me suis pas trompé ?

Oui. Tu ne t'étais pas trompé (là, en tout cas). C'est dans la déclaration des variables que tu avais un souci

[aguerriera]

Effectivement,
elle n'a rien à faire là.
Vraiment honte à moi !

Une erreur aussi horrible :'(

[aguerriera]

J'étais tellement focalisé sur cette partie là, que je ne me suis même pas rendu compte de ça.
Merci !

[Pierre Fauconnier]

Bah. il a fallu 26 messages pour la détecter (c'est qu'elle était bien cachée... ), parce que nous étions tous partis sur le problème du nom du bouton et nous nous sommes focalisés là-dessus. Or, il y avait bien un problème de nom au début, mais doublé par cette malencontreuse déclaration...

J'espère que ton code fonctionne, maintenant.