Exit Subs'applique à la SUB où il se trouve... à rien d'autre !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFor Each Elem In Rech.Range("4:" & NbLignesRech).Rows
If NbLignesRech > 3 Then Application.StatusBar = "Macro en cours d’exécution, veuillez patienter" Application.ScreenUpdating = False For Each Elem In Rech.Range("4:" & NbLignesRech).Rows DoEvents Bidon = 0 ChkOk.Value = False Set Trouve = PlageDeRecherche.Cells.Find(what:=Elem.Cells(1, 4).Value, LookAt:=xlWhole) 'Traitement de l'erreur possible : Si on ne trouve rien : If Trouve Is Nothing Then ChkOk.Value = False 'Ici, traitement pour le cas où la valeur n'est pas trouvée PasTrouver = PasTrouver + 1 FPasTrouve.Rows(PasTrouver).Cells(1, 1) = Elem.Cells(1, 4).Value 'Exit Function Else ' Ici si l'élément est trouvé. 'VarGlobal = Bd.Cells(Trouve.Row, 6).Value 'Affichage des informations dans les textBox. TBXPCCC.Text = Bd.Cells(Trouve.Row, 3).Value UFSorties2.TBXCodeBarre.Text = Bd.Cells(Trouve.Row, 4).Value UFSorties2.TBXNDP.Text = Bd.Cells(Trouve.Row, 6).Value UFSorties2.TBXItem.Text = Bd.Cells(Trouve.Row, 7).Value ' Sélection de l'état du bien UFSorties2.CBXEtat.AddItem "Déployé" UFSorties2.CBXEtat.AddItem "En cours d'assemblage" UFSorties2.CBXEtat.AddItem "En inventaire" UFSorties2.CBXEtat.AddItem "Transféré" ' Selection du rôle du bien. UFSorties2.CBXRole.AddItem "Poste principal" UFSorties2.CBXRole.AddItem "Poste vacant" UFSorties2.CBXRole.AddItem "Poste partagé" UFSorties2.CBXRole.AddItem "Poste dédié" UFSorties2.CBXRole.AddItem "Poste formation" UFSorties2.CBXRole.AddItem "Poste essai" UFSorties2.CBXRole.AddItem "Poste dépannage" UFSorties2.CBXRole.AddItem "Poste complémentaire" ' Sélection du système d'exploitation. UFSorties2.CbxSysExp.AddItem "Windows 7" UFSorties2.CbxSysExp.AddItem "Windows 8.1" UFSorties2.CbxSysExp.AddItem "Windows 10" ' Affichage de la forme en mode modal. UFSorties2.Show 0 ' Tant que la case à coché est à false, je boucle. Do DoEvents If ChkOk.Value = True Then Bidon = 1 End If Loop Until Bidon <> 0 NbLigneEntrees = NbLigneEntrees + 1 End If Next End If