Discussion :

[balibou]

Bonjour,

j'ai du mal avec ma macro : si une case contient " alors supprimer la ligne.
J'ai l'impression que vba a du mal avec le caractère unique ".

J'ai essayé les codes suivants avec Sheets("Sheet5").Range("C3") = " :

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
22
23
24
25
26
27
 
Sub Test()
Dim i%
For i = 256 To 1 Step -1
If Cells(i, 1) = Sheets("Sheet5").Range("C3") Then Rows(i).Delete
Next
End Sub
 
Sub suppr()
Dim i As Integer
For i = 1 To 256
If Cells(i, 1) = Sheets("Sheet5").Range("C3") Then
Rows(i).Delete
i = i - 1
End If
Next
End Sub
 
Sub suppr()
Dim j As Integer
With ThisWorkbook.Sheets("Sheet6")
    For j = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("A5" & j).Value = Sheets("Sheet5").Range("C3") Then
                    .Rows(j).Delete
            End If
    Next j
End With

Merci pour votre aide

[Igloobel]

Salut,

en ligne 9 et 19 tu as "Sub suppr()" Donc dejà là c'est un soucis 2 macro ne peuvent porter le même nom à moins d'être Private

De plus j'ai pas compris tu testes un apostrophe(') ou un guillement(") et test où

tu dis

A+

[balibou]

Hello, merci pour ta réponse,

En fait c'est la même macro écrite de 3 façons différentes donc pour le nom de chaque macro c'est pas grave pour la répétition.

Je teste un guillement en sheet6

[Igloobel]

et en quelle(s) cellule(s) ?

Et Guillemet seul ou avec du texte ?

[balibou]

et en quelle(s) cellule(s) ?

Colonne I

Désolé pour ces explications fragmentées ...

[Marc-L]

Bonjour.

En dehors du problème technique du guillemet pouvant s'écrire par Chr(34) ou """" (oui ! quatre guillemets collés à la suite …),

de toute manière égale ne veut pas dire contient ‼

Pour tester si une valeur contient quelque chose, voir l'aide de VBA concernant la fonction InStr.

Sinon pour plus de rapidité envisager la méthode Find au lieu de boucler sur les cellules d'une plage …

[Igloobel]

Salut

Vu que tu dis pas quelle version tu as voici une petite macro sans prétention :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Supppr()
    Dim i As Long
    Dim Plage As String
 
    For i = 2 To 65536
        If Cells(i, 9).Value = Chr(34) Then
            Plage = i & ":" & i
            Rows(Plage).Delete Shift:=xlUp
            i = i - 1
        End If
    Next i
End Sub

tu dis si ça te convient

Ou alors si c'est vraiement du contient avec du texte cf mon post de 15h26
alors tu peux utiliser Instr comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub suppppr()
    Dim i As Long
    Dim Plage As String
    Dim Cher_Car As String
    Cher_Car = Chr(34)
    For i = 2 To 65536
        If InStr(1, Cells(i, 9).Value, Cher_Car) <> 0 Then
            Plage = i & ":" & i
            Rows(Plage).Delete Shift:=xlUp
            i = i - 1
        End If
    Next i
End Sub

Tu dis si ça te convient