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... )
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... )
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
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
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.
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
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 …
C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)
Je ne me suis pas trompé
En relisant ton code, je vois que tu as une ligne de déclaration
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim ActiveSheet
En la déclarant, tu crées une ambigüité pour Excel. Je viens de tester et c'est cela qui pose problème...
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
Vous voyez bien sur l'image que je ne me suis pas trompé ?
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
Effectivement,
elle n'a rien à faire là.
Vraiment honte à moi !
Une erreur aussi horrible :'(
J'étais tellement focalisé sur cette partie là, que je ne me suis même pas rendu compte de ça.
Merci !
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.
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager