Discussion :

[DubDub]

Bonjour j'aurais besoin d'un coup de pouce sur le problème suivant:

dans un liste de logiciel dans la colonne A, j'aimerais supprimer les lignes qui ont "Mise à jour de sécurité" ou "Correctif Windows XP"

ensuite toujours dans cette meme colonne A, trouver des logiciels identifier par example dans la colonne D.

je vais également répéter cette opération dans d'autre feuilles du meme classeur.

merci a l'avance pour votre aide

[DubDub]

la fonction suivante semble bien mais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Supprimerligne()
 
Dim a As Long
Dim b As Long
 
a = Range("A65536").End(xlUp).Row
For b = a To 1 Step -1
    If Cells(b, 1).Value = "Correctif*" Then
        Rows(b).Delete
    End If
Next b
End Sub

les lignes a supprimer sont:
Correctif Windows XP - KB890859
Correctif Windows XP - KB891781

et le parametre "correctif*" ne fonctionne pas

Merci

[wilfried_42]

Bonjour

en effet, * est pris comme un caractere normal : à essayer :

Code :

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

  If Left(Cells(b, 1),9).Value = "Correctif" Then

[lilian65]

Il est aussi possible d'essayer

Code :

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

1
2
 
   If Left(Cells(b, 1),9).Value like "Correctif" Then

[PPz78]

Pour chercher une chaîne de caractères à l'intérieur d'une autre, il faut utiliser

Code :

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

instr(...)

Pour les détails voir l'aide en ligne.

[DubDub]

Merci pour vos reponse mais je n'avance pas trop

j'ai un erreur objet requis

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Supprimerligne()
 
Dim a As Long
Dim b As Long
 
a = Range("A65536").End(xlUp).Row
For b = a To 1 Step -1
    If Left(Cells(b, 1), 9).Value Like "*Correctif*" Then
        Rows(b).Delete
    End If
Next b
End Sub

[PPz78]

Objet requis sur quelle ligne ?
Le programme a-t-il supprimé quelques lignes?
Se plante t-il à la première suppression ?

des détails SVP

En exécution pas à pas où le programme se plante t-il ?

[DubDub]

Merci beaucoup de votre aide, vous êtes plus rapide a répondre que je consulte les messages


la macro ne se lance pas, dès que je clique sur éxécuter sa donne
Erreur exécution 424 objet requis

en pas a pas il donne l'erreur carrément sur la premier ligne du SUB Supprimerligne()

Merci encore

[PPz78]

N'y aurait-il pas un call supprimerligne avec un argument quelque part dans ton code ?

[PPz78]

l'erreur provient du .value

Code :

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

If Left(Cells(b, 1), 9).Value Like "*Correctif*" Then

Il faut mettre

Code :

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

If Left(Cells(b, 1), 9) Like "*Correctif*" Then

Par contre il subsiste un problème potentiel car tu extrait les 9 caractères de gauche si Correctif n'est pas bien cadré la ligne ne sera pas supprimée.
Je te conseille donc

Code :

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

If Cells(b, 1) Like "*Correctif*" Then

[DubDub]

Merci voila le code final utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Supprimerligne()
 
Dim a As Long
Dim b As Long
 
a = Range("A65536").End(xlUp).Row
For b = a To 1 Step -1
    If Cells(b, 1) Like "*Correctif*" Then
        Rows(b).Delete
    End If
Next b
End Sub

encore merci

[DubDub]

je voudrais supprimer la ligne si la ligne contient Correctif ou mise

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 Supprimerligne()
 
Dim a As Long
Dim b As Long
Dim c As Long
 
a = Range("A65536").End(xlUp).Row
 
For b = a To 1 Step -1
    If Cells(b, 1) Like "*Correctif*" And "*Mise*" Then
        Rows(b).Delete
    End If
Next b
 
End Sub

encore merci

[AlainTech]

Ca devrait ressembler à ça:

Code :

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

If Cells(b, 1) Like "*Correctif*" Or Cells(b, 1) Like "*Mise*" Then

[DubDub]

Excellent merci

voici mon code

Code :

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

1
2
3
4
5
6
7
    a = Range("A65536").End(xlUp).Row
 
    For b = a To 1 Step -1
        If Cells(b, 1) Like "*Mise*" Or Cells(b, 1) Like "*Correctif*" Or Cells(b, 1) Like "*Hotfix*" Or Cells(b, 1) Like "*Registry Name*" Then
        Rows(b).Delete
    End If
    Next b

le problème c'est que sa prend entre 3 et 4 minutes pour faire le menage dans environ 300 lignes

Merci Beaucoup très apprécié

[PPz78]

3 minutes c'est bougrement long, cela fait 1 seconde par ligne.

Je fais à peut près la même chose dans une de mes applications, sur un fichier de 4000 lignes dans lequel 1000 lignes sont à supprimer, il faut 20 à 30 secondes.

Si tu as un peu de temps essaie donc la version que je t'avais proposée avec la fonction instr.

A+

[AlainTech]

Une telle lenteur sent le

Code :

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

Application.Calculation = xlManual

en début de procédure et

Code :

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

Application.Calculation = xlAutomatic

en fin.