Tant que cellules vides

Re : Tant que cellules vides

super, ca fonctionne.
Merci.

Re : Tant que cellules vides

Bonsoir à tous,
Excusez moi de m'excuze de vous demandez pardon mais vous aurriez une autre solution que celle-ci SVP :

Private Sub Worksheet_Change(ByVal Target As Range)
'masquer et afficher les commandes !
CmdExp.Visible = Application.CountA(Range("B1,B26,G14")) >= 3
End Sub

En effet, Excel me fait une erreur d'execution 1004
La méthode Range de l'objet_Worksheet a échoué...

Avant je l'avait mis dans
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Mais a cahque fois que je changer de cellule, je vouyais mon curseur travailler pour rien.

Merci beaucoup si vous pouvez...

Re : Tant que cellules vides

Ah, j'ai rajouter ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
'masquer et afficher les commandes !
If Sheets("Buanderie").[B1] = "" Then
CmdExp.Visible = Application.CountA(Range("B1,B26,G14")) >= 3
End If
End Sub

Et ca fonctionne, c'est peut etre pas terrible, mais ca fonctionne comme je voulais.
Si quelqu'un sais me dire pourquoi...