Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Vous pouvez essayer ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If txt = "Mois de" Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If txt = "mois de" Then

[Michel_M]

Bonjour à tous,

Pour le fun, une autre solution rapide:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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