Microsoft 365 Si une cellule est vide alors

BrunoM45 à dit:

Bonjour MrNathan58

Essaye ceci

VB:

Sub Test()
Dim Cel as Range
  For Each Cel In Range("A1:E10")
    If Cel.Value ="" then
      Cel.Interior.Color = RGB(128,128,128)
    End If
  Next Cel
End Sub

Une question reste en suspend, veux-tu lui attribuer la valeur "Bleu" ou la couleur !?

A+

Cliquez pour agrandir...

Bonjour,
Je suis impressionné par la réactivité de ce forum c'est géniale !
ça marche ! je n'avais pas pensé à utiliser ="" XD
je cherche à lui attribuer la valeur "bleu" mais je vois comment faire à partir de la.
Merci beaucoup !

BrunoM45 à dit:

Bonjour MrNathan58

Essaye ceci

VB:

Sub Test()
Dim Cel as Range
  For Each Cel In Range("A1:E10")
    If Cel.Value ="" then
      Cel.Interior.Color = RGB(128,128,128)
    End If
  Next Cel
End Sub

Une question reste en suspend, veux-tu lui attribuer la valeur "Bleu" ou la couleur !?

A+

Cliquez pour agrandir...

Et seriez vous comment faire pour fusionner les cellules avec la cellule vide d'en dessous.
If cel.value="" then
fusionne cellule vide et cellule du dessus. ?

Pour fusionner les cellules j'ai vu qu'il fallait utiliser:
ith Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

Mais ça ne marche pas.
J'imagine que c'est parceque je ne lui dit pas quoi fusionner.
Alors j'ai essayer de rajouter: Range("A1:A10") avant mais ducoup il me fusionne toutes mes cellules en une.

Est-il possible de préciser range((cellule vide).offset(-1)) ? j'ai essayé mais ça me met une erreur.
Merci par avance.