VBA - rechercher une ligne avec 3 critères Résolu/Fermé

Question

Bonjour à tous.

Je débute depuis 2 mois sur un programme de facturation sous excel/VBA, et je solicite votre aide car je bloque sur une fonction. cela fait des heures et des heures que je cherche, mais je ne trouve pas  Je m'explique:

J'ai un tableau de 10 colonnes et 10000 lignes. La pluspart sont encore vides. Je souhaiterais chercher les lignes correspondantes aux 3 critères de recherche mis en variables et les supprimer. 

exemple: 

critère1 = "Laurent" critère2 = "2011" critère3 = "payé"

_____________________________________________________________________
|            A              |                B                         |                     C             |
|_________________|___________________________|______________________|
|_________________|___________________________|______________________|
|_________________|___________________________|______________________|
|_________________|___________________________|______________________|
|_________________|___________________________|______________________|
|_________________|___________________________|______________________|

SI A = critère1 ET B = critère2 ET C = critère 3 ==> on supprime la ligne.

De plus, toutes mes lignes remplies sont regroupées en haut, donc si A devient vide, on arrete la boucle 
(pour ne pas perdre de temps avec les lignes vides.)

En vous remerciant milles fois par avance!

Laurent

michel_m · Answer

Bonjour, 

essaies cette macro 
Option Explicit 
Const criter1 As String = "Lucien" 
Const criter2 As Integer = 2011 
Const criter3 As String = "payé" 

Sub supprimer_svt_criteres() 
Dim nbre As Integer, Lig As Integer, Cptr As Integer 

nbre = Application.CountIf(Columns("A"), criter1) 
If nbre = 0 Then GoTo vide 

Application.ScreenUpdating = False 
Lig = 1 
For Cptr = 1 To nbre 
     Lig = Columns("A").Find(criter1, Cells(Lig, "A"), xlValues).Row 
          If Cells(Lig, "B") = criter2 And Cells(Lig, "C") = criter3 Then 
               Rows(Lig).Delete 
               Lig = Lig - 1 
          End If 
Next 
Exit Sub 
vide: 
MsgBox criter1 & " inconnu dans la colonne A!", vbCritical 
End Sub 


mais si c'est encore long, tu dis, on peut aller beaucoup + vite (macro + compliquée) 

je n'ai pas géré les 3 critères  car conditions, emplacement, méthode non indiquées
 Michel

Liandar · Answer

Bonsoir,

Avant tout ,merci beaucoup pour votre post. J'ai l'impression que mon problème se résout petit à petit, et c'est pas rien!

J'ai donc adapté votre code à mon script, et finalement, je passe les 3 critères par arguments comme ceci:

===========================================

Option Explicit

Sub supprimer_svt_criteres(criter1, criter2, criter3)
Dim nbre As Integer, Lig As Integer, Cptr As Integer

If (criter3 = "bat") Then
        criter3 = "BATHELEC"
    Else
        criter3 = "ESP"
End If

nbre = Application.CountIf(Columns("A"), criter1)
If nbre = 0 Then GoTo vide

Application.ScreenUpdating = False
Lig = 1
For Cptr = 1 To nbre
     Lig = Columns("A").Find(criter1, Cells(Lig, "A"), xlValues).Row
          If Cells(Lig, "B") = criter2 And Cells(Lig, "C") = criter3 Then
               Rows(Lig).Delete
               Lig = Lig - 1
          End If
Next
Exit Sub

MsgBox criter1 & " inconnu dans la colonne A!", vbCritical
End Sub

=============================================

Mon problème: le messageBox "-Critère1- inconnu dans la colonne A!" se lance à chaques fois. pourtant, mes critères sont bien contenus dans les 3 variables criter1, criter2 et criter3 (j'ai testé grâce à la msgbox).

Je sens qu'il ne manque pas grand chose ^^

Merci beaucoup! :))

VBA - rechercher une ligne avec 3 critères

2 réponses

Discussions similaires