colorié les cellules vide

[cpeens]

bonjour je recherche une formule en VBA pour colorié en blanc des cellules vide

merci

 

[Cousinhub]

Re : colorié les cellules vide

bonjour,

par défaut, les cellules sont en blanc....(vides, ou pas...)

Précise ta demande....

Quelle zone de la feuille à traiter, la cellule vide contient-elle une formule, veux-tu que ce soit la police, ou le fond de la cellule, en blanc?

Pourquoi, une macro?

Une mise en forme conditionnelle le fait très bien...

Bref, un petit fichier exemple, exempt de toutes données confidentielles, pourrait sûrement t'apporter nombre de réponses...

Bonne journée

 

[Staple1600]

Re : colorié les cellules vide

Bonsoir à tous, (salut bhbh 😉 )


Une exemple qui colorie les cellules vides en jaune dans une plage préalablement sélectionnée par l'utilisateur.

Sub Macro1()
Dim Vide As Range
Set Vide = _
    Application.InputBox("Séléctionner vos cellules", _
    "Coloriage des cellules vides", Type:=8)
Vide.SpecialCells(4).Interior.ColorIndex = 6
End Sub

 

[job75]

Re : colorié les cellules vide

Bonsoir cpeens, bh2, Staple 🙂

@ Staple : un petit On Error Resume Next au début ne ferait pas de mal, non ?

A+

 

[Staple1600]

Re : colorié les cellules vide

Bonsoir job75

Oui mais cela n'empêche pas l'affichage d'un message d'erreur
si on ne sélectionne aucune cellules et que l'on clique sur OK

Sub Macro1_job75()
Dim Vide As Range
On Error Resume Next
Set Vide = _
    Application.InputBox("Séléctionner vos cellules", _
    "Coloriage des cellules vides", Type:=8)
Vide.SpecialCells(4).Interior.ColorIndex = 6
End Sub

Une variante qui évite quelques déboires mais pas tous

Sub Macro1bis()
Dim Vide As Range, Plage_En_Cours As Range
Set Plage_En_Cours = ActiveSheet.UsedRange
Set Vide = _
    Application.InputBox("Séléctionner vos cellules", _
    "Coloriage des cellules vides", Plage_En_Cours.Address, Type:=8)
    On Error Resume Next
Vide.SpecialCells(4).Interior.ColorIndex = 6
End Sub

 

[job75]

Re : colorié les cellules vide

Bonjour Staple, le fil, le forum,

Oui mais cela n'empêche pas l'affichage d'un message d'erreur si on ne sélectionne aucune cellules et que l'on clique sur OK

Il ne s'agit pas d'une alerte VBA mais d'une alerte liée à la programmation par Microsoft de la boîte de dialogue.

Il y en a une autre du même type si l'on entre autre chose qu'une référence.

Le plus simple est de désactiver ces alertes par Application.DisplayAlerts = False.

De plus, pour éviter un problème quand on sélectionne une seule cellule, utiliser Intersect :

Sub Macro1_job75()
Dim Vide As Range
[COLOR="Red"]Application.DisplayAlerts = False[/COLOR]
On Error Resume Next
Set Vide = _
    Application.InputBox("Séléctionner vos cellules", _
    "Coloriage des cellules vides", Type:=8)
[COLOR="red"]Intersect[/COLOR](Vide, Vide.SpecialCells(4)).Interior.ColorIndex = 6
End Sub

A+