vba suppresion de lignes sur condition

Bonjour
Je souhaite supprimer toutes les lignes d'un fichier Excel qui ont dans leur premiere cellule une chaine de caractères qui commence par "ois de" et dont la suite change selon la ligne. Pourriez vous svp m'aider à trouver un code vba pour pouvoir réaliser cette action?

Par exemple jutilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub sipprlg()     Dim M As Integer Range("A1").Select For M = 1 To 20000 If ActiveCell.Value = "mois de juin" Then ActiveCell.EntireRow.Select Selection.Delete Shift:=xlUp Else: ActiveCell.Offset(1, 0).Select End If Next M   End Sub

---

Sauf que le probleme chaque mois ma conditin de suppression change, je veux donc faire un code qui me supprime toutes les lignes qui cmmencet par "mois de".

Merci beaucoup

Bonjour,

Vous pouvez essayer ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub supprlg() Dim c As Byte Dim M As Integer, dl As Long Dim txt As String 'recherche de la dernière ligne dl = Range("A65536").End(xlUp).Row 'N° de la colonne de donnée (modifier éventuellement) c = 1   For M = 1 To dl txt = Cells(M, c) txt = Left(txt, 7) If txt = "Mois de" Then Rows(M).Select Selection.Delete Shift:=xlUp M = M - 1 dl = dl - 1 End If Next M   End Sub

---

Amicalement.

merci bcp mais je n'arrive pas a faire marcher le code, quand je le lance il ne se asse rien...

pour le code de jacque_jean, peut etre qu'il ne fonctionne pas parce que t'es "mois de " n'ont pas la même casse
essaye de remplacer

Code:

---

If txt = "Mois de" Then

---

par

Code:

---

If txt = "mois de" Then

---

Bonjour à tous,

Pour le fun, une autre solution rapide:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub supprimer_avec_condition()   Application.screenupdating=false   On Error Resume Next lig = Columns(1).Find("mois de", Range("A65536"), , xlPart).Row Rows(lig).Delete If Err.Number > 0 Then: End on error goto 0   supprimer_avec_condition   End Sub

---

Pourquoi "pour le fun"?
1/ VBA n'aime pas les proc récursives... sur mon ordi, VBA m'indique une saturation des piles à quelques 1700 lignes répondant à la condition ("mois de")
2/ l'utilisation de "END" permet un gain de temps (pas de dépilage) mais clot toutes les macros en cours: on ne peut donc pas l'utiliser comme sous-macro ou comme lignes à l'intérieur d'une macro...

Je n'ai pas vérifié la remarque d'Asimbald...je vais regarder

Bon dimanche à tous

edit: C'est insensible à la casse; j'ai rajouté le blocage d'écran

merci beaucoup pour voter aide, mon problème est résolu. En faitn le premier code archait mais il fallait marquer mois de en majuscules...des fois VBA bloque sur pas grand chose...enfin merci beucoup à tous

Bonsoir arkancylla,

Vous avez écrit :

Citation:

---

des fois VBA bloque sur pas grand chose...enfin merci beucoup à tous

---

Finalement le code fonctionnait, quant à dire qu'il bloque sur pas "grand chose" ce n'est pas tout à fait l'expression à employer car si un caractère pouvait n'avoir aucune différence avec un autre caractère on dirait que VBA fait n'importe quoi.

Mais il est vrai quand même qu'il existe une solution entre les caractères en minuscule ou en majuscule et Michel_M en a fait la démonstration et de plus il faut bien reconnaître que sa solution est plus rapide.