Bonjour Community,

Je cherche à écrire une code qui demande d'un premier temps à l'utilisateur de rentrer le Numéro d'offre, après il cherche ce numéro d'offre dans une feuille Excel et si le numéro est trouvé envoie une autre InputBox s'affiche pour que l'utilisateur saisie le numéro d'installation correspondant. J'ai bricolé ce code qui marche mais le seul problème que le deuxième InputBox s'affiche dans tous les cas (Num offre non trouvé, on appui sur annuler dans le premier InputBox)!
Qqn peux m'aider SVP.

Merci et bon début de la semaine

Voici mon code:
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
Sub NumInstallation()
Dim NumeroInstallation As Long
Dim NumOffre As Variant
Dim R As Range, LI As Integer
deb: 'étiquette
NumOffre = InputBox("Saisie le N° d'offre: ", "Numéro d'offre")
Set R = Sheets("Clients Gagnés 2021").Columns(1).Find(NumOffre, , xlValues, xlWhole)
If NumOffre = False Then Exit Sub 'si bouton "Annuler", sort de la procédure
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
    LI = R.Row 'définit la ligne LI de la première occurrence trouvée
Numeronstallation = InputBox("Saisie le N° d'installation: ", "Numéro d' installation")
Sheets("Clients Gagnés 2021").Range("AI" & LI) = Numeronstallation
Else 'sinon
    'si "Oui" au message, relance la boîte d'entrée C via l'étiquette "deb"
    If MsgBox("Saisie erronée ! Voulez-vous recommencer ?", vbYesNo, "ATTENTION") = vbYes Then GoTo deb
End If 'fin de la condition
End Sub