macro suppression de ligne conditionnelle

tototiti2008

XLDnaute Barbatruc

• 1 Octobre 2008

• #2

Re : macro suppression de ligne conditionnelle

Bonjour jeremie.ferre,

essaye :

If Application.Worksheetfunction.Countif(Range("C1:C65536"),Range("C4").value)>0 then

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #3

Re : macro suppression de ligne conditionnelle

J'était en train de tester un truc du style:

Dim i As Integer
Dim valeurdelacelluleC4 As String
For i = 91 To 2000
valeurdelacelluleC4 = Sheets("feuillet 1").Cells(i, 3).Value
If StrComp(Sheets("feuillet 1").Cells(4, 3).Value, valeurdelacelluleC4) Then
Sheets("feuillet 1").Cells(i, 3).EntireRow.Delete
End If
Next i

Mais ca ne marche pas, au bout de 5 minutes la macro dure toujours....

Je teste ce que tu m'as donné.

merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Octobre 2008

• #4

Re : macro suppression de ligne conditionnelle

et après tu veux supprimer la ligne si c'est bon ?

alors ça devrait donner :

Code:

If Application.Worksheetfunction.Countif(Sheets("feuillet 1").Range("C1:C6 5536"),Sheets("feuillet 1").Range("C4").value)>0 then
Sheets("feuillet 1").Range("A" & Application.Worksheetfunction.Match(Sheets("feuillet 1").Range("C4").value,Sheets("feuillet 1").Range("C1:C65536"),0)).entirerow.delete
end if

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #5

Re : macro suppression de ligne conditionnelle

Erreur : 2 fois le même message posté

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #6

Re : macro suppression de ligne conditionnelle

Aïe; décidément je n'y arrive pas.

J'ai appliqué la macro a un petit fichier xls exemple, et ca ne supprime pas la ligne désirée...

Aurais-tu une idée de ce que je fait mal ?

 

Pièces jointes

• exemple.xls

  23 KB · Affichages: 67
• exemple.xls

  23 KB · Affichages: 65
• exemple.xls

  23 KB · Affichages: 59

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Octobre 2008

• #7

Re : macro suppression de ligne conditionnelle

la fonction Match (EQUIV en français) donne la position de ta valeur dans la plage
Comme dans mon exemple, je commençais en ligne 1 (C1:C65536), je n'avais pas de décalage à gérer
Comme dans ton exemple tu commence en ligne 3 (C3:C10), il faut que tu ajoutes 2 au résultat du Match :

Code:

Sheets("feuil1").Range("A" & 2 + Application.WorksheetFunction.Match(Sheets("feuil1").Range("C1").Value, Sheets("feuil1").Range("C3:C10"), 0)).EntireRow.Delete

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #8

Re : macro suppression de ligne conditionnelle

La nullité aura ma peau, dans mon exemple je me suis positionné en colonne B alors que ma macro allait cherché en C !


MErci beaucoup maintenant ca marche !!!

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #9

Re : macro suppression de ligne conditionnelle

Arf non ca ne marche pas complètement en fait,
En effet, si il y a plus d'une ligne qu'il faudrait supprimé la macro ne marche pas, elle ne supprime qu'une seule ligne...
(c'est à dire que si dans mon fichier exemple je met 2 paul, la macro ne supprime qu'une seule ligne et laisse 1 paul)

Y'aurait-il une astuce ?


Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Octobre 2008

• #10

Re : macro suppression de ligne conditionnelle

peut-être avec quelque chose du type :

Code:

Do While Application.WorksheetFunction.CountIf(Sheets("feuil1").Range("C3:C10"), Sheets("feuil1").Range("C1").Value) > 0
Sheets("feuil1").Range("A" & 2 + Application.WorksheetFunction.Match(Sheets("feuil1").Range("C1").Value, Sheets("feuil1").Range("C3:C10"), 0)).EntireRow.Delete
Loop

 

Vote positif 0 Vote négatif

J

jeremie.ferre

XLDnaute Nouveau

• 1 Octobre 2008

• #11

Re : macro suppression de ligne conditionnelle

MErci ca marche nickel!

Vraiment génial ce forum !!!

 

Vote positif 0 Vote négatif