Discussion :

[boguista1985]

Bonjour, je veux réaliser un bouton commande pour effacer toutes les cellules contenant les valeurs "OK" ou "KO" et les remettre sur un fond blanc comme par défaut.

Voici un code que j'ai réalise mais qui marche pas:

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
Public Sub Clear()
Dim plage As Range
Dim i As Integer
Dim tb As Variant
 
With Activeworkbook.Sheets(1)
	tb = Array("OK", "KO")
	For i = 0 To 1
		Set plage = .Cells.Find(tb(i), LookIn:=xlValues, lookat:=xlWhole)
	Next i
 
	With plage
		.ClearContents
		.Interior.ColorIndex = 2
	End With
End With
 
End Sub

Pouvez vous m'aider svp

[jfontaine]

Bonjour,

Il faut gérer les cellules fusionnées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rg As Range
 
For Each rg In Range("A1:C3")
    If rg.Value = "OK" Or rg.Value = "KO" Then
        If rg.MergeCells = True Then
            rg.MergeArea.Clear
        Else
            rg.Clear
        End If
    End If
Next

[boguista1985]

salut, mais moi je veux travailler sur toute la feuille, t'a une idée comment on peut traduire ceci sur la ligne 3 ?

-----------------------------------------

C'est bon j'ai mis

Code :

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

For Each rg In cells

et c'est résolu merci beaucoup de ton aide

[Orhleil]

C'est bon j'ai mis

Code :

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

For Each rg In cells

et c'est résolu merci beaucoup de ton aide

Il me semble qu'en faisant ça Excel parcourt vraiment l'intégralité des cellules de la feuille, utiliser UsedRange serait plus approprié (le plus petit Range "rectangulaire" contenant toutes les cellules contenant une valeur).
Et puis je te conseillerais de toujours déclarer sur quoi tu appliques ton Range. Par exemple Me.Range ou NomDeLaFeuille.Range.