erreur 424 quand appel Sub par Btn / Userform - VBA
1 réponse
SylVBA
Bonjour =E0 tous,
J'ai une proc=E9dure qui fonctionne tr=E8s bien quand je la d=E9clenche
directement par la boite de macro (alt + F8)
J'appel ce sub dans un Bouton d'un user form et j'obtiens une erreur
424 uniquement quand je d=E9clenche par le bouton UF
Cette macro =E0 pour but de r=E9cup=E9rer la valeur de la cellule ou clique
l'utilisateur
Voici mon code dans ma sub:
Sub tutu()
Dim Laquelle As Range, PN As String, Chemin As String, Fich As String,
CC As Long
Dim Reliquat As Workbook, Quest1 As Long, LongdeRech As Long
Dim Trouve1 As Range
Dim Feuille As Worksheet
Dim Ligne As Long, Resultat As String
Chemin =3D "C:\Mes documents\BackOrders\"
Fich =3D "Reliquat finder.xls"
CC =3D [NumFact]
On Error Resume Next
Set Laquelle =3D Application.InputBox("S=E9lectionner la cellule qui
contient le Part Number =E0 contr=F4ler", "Cliquer sur le Part
Number", , , , , , 8)
If Err.Number > 0 Then
MsgBox Err.Number
Exit Sub
End If
PN =3D Laquelle.Value
.=2E.........
.=2E........
End sub
Avec le d=E9clenchement par bouton de userform, le message apparait sur:
Set Laquelle =3D Application.InputBox("S=E9lectionner la cellule qui
contient le Part Number =E0 contr=F4ler", "Cliquer sur ...
En appelant le sub direct, pas de message ?????? !!
Avez vous une super id=E9e ?
Je suis compl=E9tement coinc=E9e,
Merci d'avance =E0 toutes & tous,
La petite Sylvie
Pour info la proc dans mon Btn:
Private Sub BtnContReliquats_Click()
Unload Me
tutu
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JP25
Bonsoir, j'ai testé ta sub tutu, elle fonctionne ! Par contre, je n'ai pas ta userform Peux-tu poster sur c-joint.com, un ex de ton classeur contenant ta userform
-- Cordialement JP25
"SylVBA" a écrit dans le message de news:
Bonjour à tous,
J'ai une procédure qui fonctionne très bien quand je la déclenche directement par la boite de macro (alt + F8)
J'appel ce sub dans un Bouton d'un user form et j'obtiens une erreur 424 uniquement quand je déclenche par le bouton UF
Cette macro à pour but de récupérer la valeur de la cellule ou clique l'utilisateur
Voici mon code dans ma sub: Sub tutu()
Dim Laquelle As Range, PN As String, Chemin As String, Fich As String, CC As Long Dim Reliquat As Workbook, Quest1 As Long, LongdeRech As Long Dim Trouve1 As Range Dim Feuille As Worksheet Dim Ligne As Long, Resultat As String Chemin = "C:Mes documentsBackOrders" Fich = "Reliquat finder.xls" CC = [NumFact] On Error Resume Next Set Laquelle = Application.InputBox("Sélectionner la cellule qui contient le Part Number à contrôler", "Cliquer sur le Part Number", , , , , , 8) If Err.Number > 0 Then MsgBox Err.Number Exit Sub End If PN = Laquelle.Value ...........
..........
End sub
Avec le déclenchement par bouton de userform, le message apparait sur: Set Laquelle = Application.InputBox("Sélectionner la cellule qui contient le Part Number à contrôler", "Cliquer sur ...
En appelant le sub direct, pas de message ?????? !!
Avez vous une super idée ? Je suis complétement coincée,
Merci d'avance à toutes & tous,
La petite Sylvie
Pour info la proc dans mon Btn:
Private Sub BtnContReliquats_Click() Unload Me tutu End Sub
Bonsoir,
j'ai testé ta sub tutu, elle fonctionne !
Par contre, je n'ai pas ta userform
Peux-tu poster sur c-joint.com, un ex de ton classeur contenant ta userform
--
Cordialement
JP25 NoSpam-jpmonnier@tele2.fr
"SylVBA" <sylvie.laurent82@wanadoo.fr> a écrit dans le message de news:
1182275055.440993.156210@m36g2000hse.googlegroups.com...
Bonjour à tous,
J'ai une procédure qui fonctionne très bien quand je la déclenche
directement par la boite de macro (alt + F8)
J'appel ce sub dans un Bouton d'un user form et j'obtiens une erreur
424 uniquement quand je déclenche par le bouton UF
Cette macro à pour but de récupérer la valeur de la cellule ou clique
l'utilisateur
Voici mon code dans ma sub:
Sub tutu()
Dim Laquelle As Range, PN As String, Chemin As String, Fich As String,
CC As Long
Dim Reliquat As Workbook, Quest1 As Long, LongdeRech As Long
Dim Trouve1 As Range
Dim Feuille As Worksheet
Dim Ligne As Long, Resultat As String
Chemin = "C:Mes documentsBackOrders"
Fich = "Reliquat finder.xls"
CC = [NumFact]
On Error Resume Next
Set Laquelle = Application.InputBox("Sélectionner la cellule qui
contient le Part Number à contrôler", "Cliquer sur le Part
Number", , , , , , 8)
If Err.Number > 0 Then
MsgBox Err.Number
Exit Sub
End If
PN = Laquelle.Value
...........
..........
End sub
Avec le déclenchement par bouton de userform, le message apparait sur:
Set Laquelle = Application.InputBox("Sélectionner la cellule qui
contient le Part Number à contrôler", "Cliquer sur ...
En appelant le sub direct, pas de message ?????? !!
Avez vous une super idée ?
Je suis complétement coincée,
Merci d'avance à toutes & tous,
La petite Sylvie
Pour info la proc dans mon Btn:
Private Sub BtnContReliquats_Click()
Unload Me
tutu
End Sub
Bonsoir, j'ai testé ta sub tutu, elle fonctionne ! Par contre, je n'ai pas ta userform Peux-tu poster sur c-joint.com, un ex de ton classeur contenant ta userform
-- Cordialement JP25
"SylVBA" a écrit dans le message de news:
Bonjour à tous,
J'ai une procédure qui fonctionne très bien quand je la déclenche directement par la boite de macro (alt + F8)
J'appel ce sub dans un Bouton d'un user form et j'obtiens une erreur 424 uniquement quand je déclenche par le bouton UF
Cette macro à pour but de récupérer la valeur de la cellule ou clique l'utilisateur
Voici mon code dans ma sub: Sub tutu()
Dim Laquelle As Range, PN As String, Chemin As String, Fich As String, CC As Long Dim Reliquat As Workbook, Quest1 As Long, LongdeRech As Long Dim Trouve1 As Range Dim Feuille As Worksheet Dim Ligne As Long, Resultat As String Chemin = "C:Mes documentsBackOrders" Fich = "Reliquat finder.xls" CC = [NumFact] On Error Resume Next Set Laquelle = Application.InputBox("Sélectionner la cellule qui contient le Part Number à contrôler", "Cliquer sur le Part Number", , , , , , 8) If Err.Number > 0 Then MsgBox Err.Number Exit Sub End If PN = Laquelle.Value ...........
..........
End sub
Avec le déclenchement par bouton de userform, le message apparait sur: Set Laquelle = Application.InputBox("Sélectionner la cellule qui contient le Part Number à contrôler", "Cliquer sur ...
En appelant le sub direct, pas de message ?????? !!
Avez vous une super idée ? Je suis complétement coincée,
Merci d'avance à toutes & tous,
La petite Sylvie
Pour info la proc dans mon Btn:
Private Sub BtnContReliquats_Click() Unload Me tutu End Sub