Discussion :

[cortex59]

Bonjour,

je viens creer un bouton qui permet d'executer ma macro

je voudrais tester chaque cellule de la colonne A
voici le contenu des cellule A

PDA : XXX
TRE : YYY
PDA : ZZZ
AZE : XXX

si le contenu commence par "PDA" je voudrais suprimer la ligne

j'ai commencer par ceci mais je suis débutant sur excel

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
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim contenu As String
 
For i = 1 To 100
 
    contenu = cell(A,i)
 
    if XXXX
       Worksheets("Feuil1").Rows(i).Delete
 
Next i
 
End Sub

merci

[Fvandermeulen]

Bonjour,
L'idée est bonne, voici les quelques adaptations à faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim contenu As String
 
For i = 1 To 100 'Tu peux si le nombre de ligne n'est pas toujours 100 le rendre dynamique
 
    contenu = Left(Cells(i, 1).Value, 3) 'Tu avais une erreur dans cells, cells fonctionne en nombre en sachant que c'est ligne/colonne
    If contenu = "PDA" Then Worksheets("Feuil1").Rows(i).Delete
 
Next i
 
End Sub

Tu peux faire encore plus court et ajouter le nombre de ligne en variable => dynamique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim NbLigne As Integer
 
NbLigne = celss(Range("a:a").Rows.Count, 1).End(xlUp).Row
 
For i = 1 To NbLigne 'NbLigne récupère le numérode la dernière ligne remplie de la colonne A
 
    If Left(Cells(i, 1).Value, 3) = "PDA" Then Worksheets("Feuil1").Rows(i).Delete
 
Next i
 
End Sub

Bonne continuation

[cortex59]

Cela fonctionne mais lorsque j'ai 2 PDA qui ce suivent il y a 1 ligne qui ce supprime???

merci

[Fvandermeulen]

Re,
Désolé, je suis pas bien réveillé c'est une erreur grossière de ma part
En effet quand on supprime une ligne on "décalle" la boucle, le mieux est alors de commencer par le bas...donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim contenu As String
 
For i = 100 To 1 step-1 'En commencant par le bas avec step-1 on evite le décallage.
 
    contenu = Left(Cells(i, 1).Value, 3) 'Tu avais une erreur dans cells, cells fonctionne en nombre en sachant que c'est ligne/colonne
    If contenu = "PDA" Then Worksheets("Feuil1").Rows(i).Delete
 
Next i
 
End Sub

Même principe si tu choisi la version "dynamique", tu auras alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim NbLigne As Integer
 
NbLigne = Cells(Range("a:a").Rows.Count, 1).End(xlUp).Row
 
For i = NbLigne To 1 Step -1
 
    If Left(Cells(i, 1).Value, 3) = "PDA" Then Worksheets("sheet1").Rows(i).Delete
 
Next i
 
End Sub

A+