Vba annulation par numéro de telephone

[Bens7]

Bonjour a tous !
Voila je viens vers vous aujourd’hui : je m'explique je possède un code qui fonctionne très bien :

Sub annuleractif()
If Userform1.TextBox10 = "" Then MsgBox ("Vous n'avez pas mis de numero de TELEPHONE"): Exit Sub

    
  With Sheets("ACTIF")

  Set I = .[x:x].Find(What:=Userform1.TextBox10, LookIn:=xlValues, LookAt:=xlWhole)
  If I Is Nothing Then Set I = .[y:y].Find(What:=Userform1.TextBox10, LookIn:=xlValues, LookAt:=xlWhole)
  If I Is Nothing Then MsgBox ("TELEPHONE INTROUVABLE"): Exit Sub
  
          .Cells(I.Row, 2) = CDate(Date)
          .Cells(I.Row, 2).Interior.ColorIndex = 15
          .Cells(I.Row, 2).Font.ColorIndex = 1
          
          .Cells(I.Row, 20) = "ANNULER"
          .Cells(I.Row, 21) = "ANNULER"
          .Cells(I.Row, 20).Interior.ColorIndex = 15
          .Cells(I.Row, 21).Interior.ColorIndex = 15
          .Cells(I.Row, 22).Interior.ColorIndex = 15

Userform1.TextBox10 = ""
  End With
  Set I = Nothing
End Sub

Donc j'ai mon Userform je met mon numéro de téléphone dans la textbox10, je clike su un bouton ANNULER et ca me lance ce macro qui recherche le numero ou dans x:x ou dans y:y et met donc annuler dans les collones voulue et qui met aussi en grise, date d'annulation enfin bref...
Le seul souci c'est que si j'ai plusieurs numéro de téléphone sur mon fichier, il n'y a que le premier de mon tableau (ACTIF) qui se met en annuler les autres ne changent pas.... je voudrais en fait que toutes les lignes qui comporte le même numéro de téléphone (colonne x:x ou y:y ) subissent le même changement !
Merci a tous pour votre aide ..

 

[Bens7]

Re : Vba annulation par numéro de telephone

Merci ! Je test ce week-end end!

 

[Bens7]

Re : Vba annulation par numéro de telephone

Bon bah écouter je pense que c OK !
Désolé je trouve pas le résolu sur Vbulletin