Bonsoir,
J'ai une erreur d'exécution 91 Variable objet ou variable de block With non définie dans mon petit programme.
Sur les conseils de Gentils Membres j'ai tenté de faire du pas à pas et je n'ai rien constaté d'anormal avec mes bloc With et le reste.
J'ai bien une variable potentiellement avec Nothing (d'où l'erreur ?) dans mon module de recherche.
L'idée est d'avoir une input box pour saisir un numéro et le rechercher dans la Range (A:A).
J'ai demandé de l'aide ici (encore un Grand Merci) car je souhaitais aussi gérer le "annulé" de l'inputbox.
Que pensez-vous de ce code et mon problème d'erreur 91 peut-il venir de là ?
Sub Recherche()
Dim DossierTrouve As Range
Dim Ligne As Integer
Dim reponse As String
Sheets("Feuil1").Select
Do
reponse = InputBox("Numero du dossier ?", "Recherche d'un dossier")
If reponse <> "" Then
Set DossierTrouve = Range("Feuil1!A:A").Find(reponse) ' recherche
If Not DossierTrouve Is Nothing Then
Exit Do
End If
End If
If reponse = "" Then
Unload SuiviDossier
General.Show
Exit Sub
End If
Select Case MsgBox("Dossier non trouvé !", vbRetryCancel + vbExclamation, "Résultat de la recherche")
Case vbRetry
' on recommence
Case vbCancel ' on quitte la procédure
Unload SuiviDossier
General.Show
Exit Sub
End Select
Loop
Ligne = DossierTrouve.Row
MsgBox ("Trouvé ligne :" & Ligne)
DossierTrouve.Select
End Sub
J'ai une erreur d'exécution 91 Variable objet ou variable de block With non définie dans mon petit programme.
Sur les conseils de Gentils Membres j'ai tenté de faire du pas à pas et je n'ai rien constaté d'anormal avec mes bloc With et le reste.
J'ai bien une variable potentiellement avec Nothing (d'où l'erreur ?) dans mon module de recherche.
L'idée est d'avoir une input box pour saisir un numéro et le rechercher dans la Range (A:A).
J'ai demandé de l'aide ici (encore un Grand Merci) car je souhaitais aussi gérer le "annulé" de l'inputbox.
Que pensez-vous de ce code et mon problème d'erreur 91 peut-il venir de là ?
Sub Recherche()
Dim DossierTrouve As Range
Dim Ligne As Integer
Dim reponse As String
Sheets("Feuil1").Select
Do
reponse = InputBox("Numero du dossier ?", "Recherche d'un dossier")
If reponse <> "" Then
Set DossierTrouve = Range("Feuil1!A:A").Find(reponse) ' recherche
If Not DossierTrouve Is Nothing Then
Exit Do
End If
End If
If reponse = "" Then
Unload SuiviDossier
General.Show
Exit Sub
End If
Select Case MsgBox("Dossier non trouvé !", vbRetryCancel + vbExclamation, "Résultat de la recherche")
Case vbRetry
' on recommence
Case vbCancel ' on quitte la procédure
Unload SuiviDossier
General.Show
Exit Sub
End Select
Loop
Ligne = DossierTrouve.Row
MsgBox ("Trouvé ligne :" & Ligne)
DossierTrouve.Select
End Sub
.
