Discussion :

[fabien32200]

Philippe un dernier petit truc :

Dans ma colonne G : j’ai le mot « FAUX » qui apparaît régulièrement et sur la ligne à côté, sur la colonne H, j’ai un « 0 ».

Exemple:

Colonne A……; Colonne B…….; Colonne C…… ;Colonne D…… ;Colonne E…… ;Colonne F…… ;Colonne G…… ;Colonne H…… ;

Par exemple : Sur la 5ème lignes :

…………………;…………………;…………………;………………………;……………………;……………… ……;FAUX……………; 0


Est-ce que ma formule ci-dessous est bonne pour supprimer tous les « FAUX » présents sur la colonne G ainsi que les « 0 » présent sur la colonne à côté (qui est sur la même ligne) ?

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 1 To Range("b65535").End(xlUp).Row
 Cells(i, 2) = Replace(Cells(i, 2), "PRESSE ", "")
 Cells(i, 2) = Replace(Cells(i, 2), "presse ", "")
 Next i
End Sub

[Philippe PONS]

Utilise plutôt un format conditionnel, disant que si les cellules contiennent False(par exemple) alors la couleur des caractère est blanc.

[fabien32200]

Qu'est ce qu'il beug avec ce code ? Car rien ne s’opère (je n'ai pas aussi de message d'erreur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub FAUX()
 
Dim Texte As String
Dim C As Range
    Texte = "FAUX"
    With Worksheets("DG_ANALYSE")
        For Each C In .Range("G2:G" & .Range("G" & Rows.Count).End(xlUp).row)
            If InStr(C, Texte) > 0 Then C = Replace(C, Texte, "")
        Next C
    End With
End Sub

[Philippe PONS]

Vérifie la syntaxe de InStr, il manque un paramètre!

EDIT

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
 
' FAUX est probablement un mot réservé, à ne pas utiliser!!
Sub test_FAUX()
 
Dim Texte As String
Dim C As Range
    Texte = "FAUX"
'    With Worksheets("DG_ANALYSE")
'        For Each C In .Range("G2:G" & .Range("G" & Rows.Count).End(xlUp).Row)
'            If InStr(C, Texte) > 0 Then C = Replace(C, Texte, "")
'        Next C
'    End With
 
    With Worksheets("DG_ANALYSE")
        For Each C In .Range(.Range("G2"), .Range("G2").End(xlUp)).Cells
            C.Value = Replace(C.Value, Texte, "")
        Next C
    End With
End Sub

[fabien32200]

Merci Phillippe Pons