Mise en page sur excel grâce à VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

27/04/2016, 15h21
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.

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:

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

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

EDIT

Code:

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

28/04/2016, 09h26
fabien32200

Merci Phillippe Pons :plusser:

Voir 40 message(s) de cette discussion en une page