Frm de recherche VBA (userform)
Fermé
Nounou1902
-
18 sept. 2021 à 13:38
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 18 sept. 2021 à 14:13
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 18 sept. 2021 à 14:13
A voir également:
- Frm de recherche VBA (userform)
- Recherche musique - Guide
- Recherche par image - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Find vba - Astuces et Solutions
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
18 sept. 2021 à 14:13
18 sept. 2021 à 14:13
bonjour, il est préférable d'éviter select et activate.
par ailleurs, pour éviter de chercher à l'infini, le mieux c'est de déterminer quand s'arreter. peut-être, par exemple, quand la cellule est vide?
ainsi:
par ailleurs, pour éviter de chercher à l'infini, le mieux c'est de déterminer quand s'arreter. peut-être, par exemple, quand la cellule est vide?
ainsi:
Private Sub lenumerodelot_Change()
dim cl as range
set cl= Feuil3.Range("H5")
Do Until cl = ""
if cl = CLng(Me.lenumerodelot) then
Me.lesdates = cl.Offset(0, -7)
' ...
Me.heuredefin = cl.Offset(0, 5)
exit sub
end if
set cl=cl.Offset(1, 0)
Loop
msgbox "le numero de lot n'existe pas"
end sub