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 ..

 

[Lone-wolf]

Re : Vba annulation par numéro de telephone

Bonsoir Bens,

après 414 messages, tu devrais penser à joindre un fichier si tu veux être aidé plus rapidement. Et là je ne vois qu'un tableau.

Peut-être en changeant un des I en K par exemple, et un ajoutant le 2ème tableau. Un exemple:

K.offset(0, 30).value = "ANNULER"


A+

 

[Bens7]

Re : Vba annulation par numéro de telephone

Voici un fichier en pieces jointes .
Merci pour vos lumieres
p.s : debutant vba si possible de modifie a meme le code merci

 

[pierrejean]

Re : Vba annulation par numéro de telephone

Bonjour Bens7

Salut Lone-wolf

Un essai

 

[Bens7]

Re : Vba annulation par numéro de telephone

Magnifique !
Alors par contre j'ai un probleme :
1) si le fichier est avec des filtres : TELEPHONE INTROUVABLE

et 2eme question :
2)Si je veux executer cette macro sur une autre feuil, avec les meme specificite mais vu que vous avez suprimer :
' With Sheets("ACTIF") par > With zone

que dois je faire etre actif sur la feuil voulu ?

 

[pierrejean]

Re : Vba annulation par numéro de telephone

Re

1) Je ne vois pas (fichier exemple S.V.P)

2) Modifiez set zone .....avec le nome de la feuille

 

[Bens7]

Re : Vba annulation par numéro de telephone

1) C'est le meme fichier plus haut que vous avez modifie juste si c'est filtre ca ne fonctionne pas
2)Disons que ma 2eme feuille se nome ARCHIVES :

Set zone = [ARCHIVES!].(Columns("X"), Columns("Y")) ???

Desole vraiment debutant ,,, lol

 

[Bens7]

Re : Vba annulation par numéro de telephone

P'tit UP ?

 

[Bens7]

Re : Vba annulation par numéro de telephone

On y etais presque ... juste le soucci du filtrage ca marche pas, et comment adapter a une autre feuil .... quelqu'un ?

 

[Bens7]

Re : Vba annulation par numéro de telephone

Toujours pas de nouveaux???

 

[eriiic]

Re : Vba annulation par numéro de telephone

Bonjour,

Pour désactiver les filtres :

[FONT=Calibri]Withsheets("ACTIF")[/FONT]
[FONT=Calibri]    If .AutoFilterMode And .FilterMode Then.ShowAllData[/FONT]
[FONT=Calibri]End with[FONT=Verdana]

Si tu ne veux pas les désactiver il faudra boucler, plus lent.
eric

[/FONT][/FONT]

 

[Bens7]

Re : Vba annulation par numéro de telephone

Auriez vous l'amabilité de me donner le code sans supprimer les filtres je vais tester si c'est mieux

 

[eriiic]

Re : Vba annulation par numéro de telephone

Là c'est un peu tard.
Que sur les lignes affichées ou même sur les masquées ?

 

[Bens7]

Re : Vba annulation par numéro de telephone

Bah le code Pierrjean marche très bien mais le fichier que j'utilise quasiment tt le.temps filtre ...
Donc le top c'est sur c'est sur toute les.lignes même les masquees.

 

[mapomme]

Re : Vba annulation par numéro de telephone

Bonjour à tous,

(...) le fichier que j'utilise quasiment tt le.temps filtre ... Donc le top c'est sur c'est sur toute les.lignes même les masquees.

Un essai avec le code suivant:

Sub AnnulerTEL()
Dim tablo, Quoi, car$, i&, max&, plage As Range

  If TextBox10 = "" Then
    MsgBox "Aucun N° de téléphone saisi!", vbCritical
    Exit Sub
  End If
  With ActiveSheet
    'tableau des n° de tél de la plage utile
    Set plage = Intersect(.Columns("X"), .UsedRange)
    max = plage.Row + plage.Rows.Count - 1
    Set plage = Intersect(.Columns("y"), .UsedRange)
    j = plage.Row + plage.Rows.Count - 1
    If j > max Then max = j
    If max = 1 Then Exit Sub
    tablo = .Range(.Cells(1, "x"), .Cells(max, "y"))

   'transformation du n° de tél à trouver en nombre
    For i = 1 To Len(TextBox10)
      car = Mid(TextBox10, i, 1)
      If car >= "0" And car <= "9" Then Quoi = Quoi & car
    Next i
    Quoi = Val(Quoi): j = 0

    'boucle sur le tableau des n° de tél
    If Quoi > 0 Then
      Application.ScreenUpdating = False
      For i = 2 To UBound(tablo)
        If tablo(i, 1) = Quoi Or tablo(i, 2) = Quoi Then
          j = j + 1: .Cells(i, 2) = CDate(Date)
          .Cells(i, 2).Interior.ColorIndex = 15: .Cells(i, 2).Font.ColorIndex = 1
          .Cells(i, 20) = "ANNULER": .Cells(i, 21) = "ANNULER"
          .Range(.Cells(i, 20), .Cells(i, 22)).Interior.ColorIndex = 15
        End If
      Next i
      Application.ScreenUpdating = True
    End If

    If j = 0 Then
      MsgBox TextBox10 & "  -> Téléphone introuvable.", vbExclamation
    Else
      MsgBox TextBox10 & "  -> Téléphone trouvé dans " & j & " ligne(s).", vbExclamation
    End If
    TextBox10 = ""
  End With
End Sub

Edit : v1a (oublié un point devant un range)