Re : 2 users form 1 macro
Je me suis peut-être mal exprimée
Voici la macro
Sub lancer()
Sheets("mariages").Activate
'pour eviter de demarrer avec la case A1 vide
If Sheets("mariages").Range("a1") = "" Then Exit Sub
'permet de débuger les valeurs totalement identiques
Sheets("mariages").Range("a1").Value = "*" & Range("a1").Value & "*"
'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If ActiveCell = Range("A1") Then MsgBox " pas d'autre résultat ", vbInformation, " Résultat de votre requète"
Select Case ActiveCell
Case Is <> Range("A1")
Unload Recherches
End Select
RetournerInfo
End Sub
Après End select, je voudrais indiquer que si le formulaire A est actif il faut utiliser
RetournerInfo et si le Formulaire B est actif il faut utiliser RetournerM
Merci pour votre aide, pour le moment je calle
Lisa