Rendre une zone variable

[Sebast]

Bonjour au forum,

j'ai un code me permettant de supprimer des enregistrements correspondant à des critères définis mais fixes. Je cherche comment rendre dynamique la plage où se trouvent ces critères; malheureusement ça plante.

En pièce jointe le code qui marche (mais aux critères figés) et le code (aux critères variables) qui plante.

Merci d'avance à tous ceux qui voudront se pencher sur mon problème

Sebast

 

[david84]

Re : Rendre une zone variable

Bonjour,
en partant de ta macro, peut-être comme cela :

 Sub supprimer_quand_critère_dynamique()
   Dim i As Long
   Dim pays_à_supprimer As Range

With Sheets("Paramètres")
   Set pays_à_supprimer = .Range(.Range("B3"), .Range("B3").End(xlDown))
End With
      With Sheets("Base")
         For i = .UsedRange.Rows.Count To 2 Step -1
            If Application.WorksheetFunction.CountIf(pays_à_supprimer, .Cells(i, 2)) > 0 Then .Rows(i).Delete shift:=xlUp
         Next i
      End With
End Sub

A+

 

[PrinceCorwin]

Re : Rendre une zone variable

Bonjour tout le monde,

Sub supprimer_enregistrements_quand_pays()
 Set f = Sheets("param")
 nbpays = f.Range("b3").End(xlDown).Row
 Sheets("Base").Activate
     For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
         If Application.WorksheetFunction.CountIf(f.Range("B3:B" & nbpays), Cells(i, 2)) >= 1 Then
             Rows(i).Delete
         End If
     Next i
 End Sub

Dans ce code, j'avais déjà prévu que la liste des pays serait variable...
CF ce post

Sinon tu peux toujours définir un nom pour ta liste en dynamique et l'utiliser dans la formule CountIf
Ex :

SupprPays=DECALER(Paramètres!$B$3;;;NBVAL(Paramètres!$B:$B)-1)

Et dans le code :

Application.WorksheetFunction.CountIf(Range("supprpays"), Cells(i, 2)) >= 1

BOnne journée

 

[Sebast]

Re : Rendre une zone variable

Merci David84, merci PrinceCorwin,

je ne suis pas fan de Application.WorksheetFunction.CountIf mais je m'incline, ça marche ! En fait, les fonctions me paraissent compliquées et je cherche à les contourner mais c'est sûrement idiot : il va falloir que je m'y mette car ça paraît incontournable dans bien des cas ...

Encore merci

 

[david84]

Re : Rendre une zone variable

Re

...En fait, les fonctions me paraissent compliquées...

Bizarre...je les trouve au contraire plus simples à appréhender lorsque tu as l'habitude d'utiliser les fonctions Excel de feuille de calcul (NB.SI, SOMME, NBVAL,...) puisque les arguments à prendre en compte sont les mêmes.
A+

 

[PrinceCorwin]

Re : Rendre une zone variable

Bonjour,

En plus cette fonction CountIf, permet aussi de gagner du temp.
Au lieu de parcourrir ta liste de pays autant de fois que tu as de pays a supprimer avec ta première solution, avec CountIf tu ne parcour qu'une seul fois ta liste.
Donc gain de temps.

Bonne journée

 

[Sebast]

Re : Rendre une zone variable

Salut PrinceCorwin,

tu as raison, je me range à l'idée de la majorité : effectivement, c'est plus efficace.

Merci beaucoup pour ta contribution