Selectionné et colorié les cellules vides [Résolu]

[acine]

Bonjour. Je suis un utilisateur débutant du VBA. Je veux identifier dans une feuille excel des cellules vides à l'aide d'une couleur de fond différente.
J'ai trouvé un code que j'ai voulu adapter, malheureusment il ne marche pas. Merci pour votre aide.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub selectionEmptyRows()
SelectedRange = Selection.Rows.Count
 ActiveCell.Offset(0, 0).Select
For i = 1 To SelectedRange
If ActiveCell.Value = "" Then
Selection.cell.Interior.ColorIndex = 0
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

[ZebreLoup]

Essaie plutôt :

Code :

1
2
3
4
5
For Each c In Selection
  If c.Value = "" Then
    c.Interior.ColorIndex = 0
  Else
Next c

[acine]

Merci pour votre réaction rapide ZebreLoup. J'ai un message d'erreur "Next sans For" aussi ma première ligne est surlignée.

[Golonne]

Il manque la deuxième partie du code après le Else puis le End If. Je pense que ZebreLoup sous entendait que tu complèterais toi même ton code...

Cordialement,

Guillaume

[MarcelG]

Bonjour à tous, Bonjour au Forum,

A mon sens, les méthodes Find et SpecialCells sont à utiser en priorité.

D'autre part, la Selection n'est pas nécessaire à l'action.

Ici, en une seule ligne de code (à adapter)

Code :

1
2
3
Public Sub essai()
Range("A1:A6").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 27
End Sub

Bonne journée à tous.

[ZebreLoup]

Envoyé par acine

Merci pour votre réaction rapide ZebreLoup. J'ai un message d'erreur "Next sans For" aussi ma première ligne est surlignée.

Désolé, je m'étais trompé entre un Else et un End If. C'est parce que je voulais faire un Else comme toi au début, mais comme il ne servait à rien.

Code :

1
2
3
4
5
For Each c In Selection
  If c.Value = "" Then
    c.Interior.ColorIndex = 0
  End If
Next c

Sinon @Marcel : J'avais l'impression qu'il voulait que la macro s'applique à la selection en cours (genre, il la lance via un bouton dans le menu). On pourrait donc faire

Code :

Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 27

Mais j'ai déjà eu des petits soucis avec les SpecialCells, alors je m'en méfie un peu. Mais c'est un point de vue qui n'engage que moi.

[acine]

Salut.
Sur Terre seul sans un musique dans comme un fou un mec!
c'est pas sa faut, il est sous l'effet Zebreloup: Un problème résoulu
avec 100% de satisfaction. il fallait préalablement selectionner la zone
à laquelle s'applique la macro et choisir une couleur différente de 0.

Encore merci! merci! merci! mon indicateur de bonheur est en hausse
depuis que je suis inscrit ici!