VBA - Suprime telephone liste noir

JBARBE

XLDnaute Barbatruc

• 19 Mai 2015

• #2

Re : VBA - Suprime telephone liste noir

Bonjour à tous,

En cliquant sur le bouton Effacer !

bonne journée !

 

Pièces jointes

• Suppression_Lignes.xls

  63.5 KB · Affichages: 36
• Suppression_Lignes.xls

  63.5 KB · Affichages: 37
• Suppression_Lignes.xls

  63.5 KB · Affichages: 29

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Mai 2015

• #3

Re : VBA - Suprime telephone liste noir

Merci tout d'abord !
j'ai modifie le code par aport a mon fichier le voici a jour :

Code:

Option Explicit

Sub effacer()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
  For j = 2 To 65536
  
   If Sheets("NOIR").Cells(j, 1) = "" And Sheets("NOIR").Cells(j, 2) = "" Then Exit For
   For i = 2 To 65536
   
   If Sheets("Feuil1").Cells(i, 6) = Sheets("NOIR").Cells(j, 1) Then
   Sheets("Feuil1").Cells(i, 1).EntireRow.Delete
   

   
   Exit For
   End If
   
   If Sheets("Feuil1").Cells(i, 7) = Sheets("NOIR").Cells(j, 2) Then
   Sheets("Feuil1").Cells(i, 1).EntireRow.Delete

   
   
   Exit For
   End If
   
Next i
Next j
Application.ScreenUpdating = True
End Sub

- Il y a 2 probleme :
1) la Feuil1 (collone 6 ou 7) et la Feuil NOIR (collone 1 ou 2) contiennes parfois des cellule vide c'est dire qu'il y a ou pas de portable ou pas de fix donc ca les effaces systematiquement malgre que le numero n'est pas la la Feuil NOIR.
2) et parfois les numero sont inverser dans la Feuil NOIR le fix est a la place du portable et vice versa donc la recherche doit s'effectuer dans les 2 collones (en clair : si un numero se trouve dans la Feuil NOIR ou dans la collone 1 ou 2 ca efface)

Merci ! j'ai essayer tous seul ca ma planter

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Mai 2015

• #4

Re : VBA - Suprime telephone liste noir

Puis-je me permettre un ptit UP ?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 20 Mai 2015

• #5

Re : VBA - Suprime telephone liste noir

Bonsoir Bens, le forum,

Mettre la macro ci-dessous dans un module standard ou dans le module de la Feuil1.
Puis attribuer cette macro à un bouton.

VB:

Sub Supp()
Dim r As Range, l
For Each r In Range("C2:D" & [A65536].End(3).Row)
  Set l = Feuil2.[C:D].Find(r.Value)
  If r.Value <> "" And Not l Is Nothing Then
    Rows(r.Row).EntireRow.Delete
  End If
Next
End Sub

A+

Martial

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 8 Juin 2015

• #6

Re : VBA - Suprime telephone liste noir

Merveilleux!
J'ai quelque peux modifie le code pour mon fichier:

Code:

Sub supnoir()
 Dim r As Range, l
 For Each r In Range("x2:y" & [A65536].End(3).Row)
   Set l = Sheets("ARCHIVES").[V:W].Find(r.Value)
   If r.Value <> "" And Not l Is Nothing Then
     Rows(r.Row).EntireRow.Delete
   End If
 Next
End Sub

ca marche a merveille j'ai cependant besoin d'un variante :
- Fait une recherché dans ARCHIVES [V.W]
mais au lieu de suprimer la ligne notifie dans la collone D le nombre de fois ou apparait le numero dans ARCHIVES

exemple : si le numero existe 3 fois alors dans la ligne du numero Collone D on aura le chiffre 3

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 8 Juin 2015

• #7

Re : VBA - Suprime telephone liste noir

Bonsoir Bens,

Je n'ai pas compris, merci de mettre un fichier.

A+

Martial

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 8 Juin 2015

• #8

Re : VBA - Suprime telephone liste noir

Voici ci joint :
en fait sur un bouton on doit avoir 3 pour le CLIENT 1 et 2 pour le CLIENT 2 (meme si le numero est affiche 3 fois il a annuler que 2 factures)

la recherché est faite sur le portable au debut et si portable ="-" alors sur le tel fix


merci

 

Pièces jointes

• NMB CLIENT.xlsx

  14.5 KB · Affichages: 21

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 8 Juin 2015

• #9

Re : VBA - Suprime telephone liste noir

Avec une formule basique, même très basique :

=NB.SI(ANNULER!W:W;ARCHIVES!V3)

Cliquez pour agrandir...

à mettre en D3 et à tirer vers le bas.

A+

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 8 Juin 2015

• #10

Re : VBA - Suprime telephone liste noir

oui loll je sais j'ai deja fait ca !
Mais le soucci c'est que :
ARCHIVES comportment 9000 facture
et ANNULER 4000 facture....
donc c'est impossible ! ca bug surtout que je travail avec ce fichier constament donc il recalcul a chaque fois ... oblige du vba pour faire une mise jour de temp en temp .....

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 8 Juin 2015

• #11

Re : VBA - Suprime telephone liste noir

Code àmettre dans la feuille "Archives"

VB:

Sub nfois()
  [D3] = "=COUNTIF(ANNULER!W:W,ARCHIVES!V3)"
  [D3].AutoFill Destination:=Range("D3:D" & [U65536].End(3).Row), Type:=xlFillDefault
  Columns(4) = Columns(4).Value
End Sub

et à associer à un bouton ou à la fermeture ou à l'enregistrement du classeur.

A+

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 8 Juin 2015

• #12

Re : VBA - Suprime telephone liste noir

Desole mais ca sort faut :
CLIENT 1 : 2 FOIS (alors que physiquement il aparait 3 fois)
CLIENT 2 : 2 FOIS

voir pices jointes

 

Pièces jointes

• NMB CLIENT.xlsm

  25.3 KB · Affichages: 19
• NMB CLIENT.xlsm

  25.3 KB · Affichages: 29
• NMB CLIENT.xlsm

  25.3 KB · Affichages: 33

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 8 Juin 2015

• #13

Re : VBA - Suprime telephone liste noir

Lorsque tu cherches 09-999-99 99 dans la feuille ANNULER, tu en comptes bien 2 dans la colonne W ?
Idem pour 03-333-33 33 ?

A moins qu'il ne faille compter dans la colonne W et dans la colonne X ????

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 8 Juin 2015

• #14

Re : VBA - Suprime telephone liste noir

Oui mais dans la facture:
3333 CLIENT 1 09-999 99 99 022-222 22 22

le client a un numero de fix qui est present dans la facture 7777
donc le client a deja eu 3 factures sauf que le portable manque dans la 7777

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 8 Juin 2015

• #15

Re : VBA - Suprime telephone liste noir

Pourquoi ne pas compter suivant le nom du client (colonne U dans ARCHIVES et colonne V dans ANNULER) ?

 

Vote positif 0 Vote négatif