Tant que cellules vides

[jeromeN95]

Bonjour le forum.

Dans VBA.
Tant que B1 & B2 & G3 sont vide alors.
Comment on l'écrit?


Dans mon exemple, je souhaite afficher ou masquer une commande si je n'ai pas 3 informations :

'masquer et afficher les commandes !
If Sheets("Votre Buanderie").[B1+B2+G3] = "" Then
cmdPropoB.Visible = False
Else: cmdPropoB.Visible = True
End If


Mais les "+" et "&" ne fonctionnent pas....
Merki.

 

[Staple1600]

Re : Tant que cellules vides

Bonjour


Voir dans le fil:
https://www.excel-downloads.com/threads/determination-dune-plage-vba.158871/

Application.WorksheetFunction.CountBlank

PS: Il faut pas à hésiter à utiliser le moteur de recherche du forum.
Il est là pour cela 🙄

 

[Compte Supprimé 979]

Re : Tant que cellules vides

Bonjour le forum.
Dans VBA.
Tant que B1 & B2 & G3 sont vide alors.
Comment on l'écrit?

En général le "&" commercial peut êre utilisé tel quel, sauf dans ce que tu souhaites et encore.

Une possibilité

'masquer et afficher les commandes !
With Sheets("Votre Buanderie")
  If .Range("B1")="" And .Range("B2")="" And .range("G3")="" Then
        cmdPropoB.Visible = False
      Else
    cmdPropoB.Visible = True
  End If
End With

A+

 

[Staple1600]

Re : Tant que cellules vides

Bonjour le fil, jeromeN95, VBajour BrunoM45 (😉)

Pour le plaisir de te croiser dans un fil et pour le fun.
• Mode classique

Private Sub UserForm_Initialize()
CommandButton1.Visible = _
IIf(Application.CountA(Feuil1.Range("B1:B2,G3")) = 3, True, False)
End Sub

• Pour le fun

Private Sub UserForm_Initialize()
CommandButton1.Visible = IIf((([B1] = Empty) + ([B2] = Empty) + ([G3] = Empty)) = 0, True, False)
End Sub

-> les exemples ci-dessus supposent qu'on parle d'un CommandButtton sur un UserForm.

 

[jeromeN95]

Re : Tant que cellules vides

Bonjour et merci de tout coeur.
Mais les différents codes ne fonctionnent pas.
Il ne sagit pas de commande dans USF. C'est directememt dans la feuille.
Avec la boite a outil controle j'ai ajouter un bouton de controle.

 

[Pierrot93]

Re : Tant que cellules vides

Bonjour à tous,

essaye ceci, dans le module de la feuille concerné, avoir ensuite quel est l'événement déclencheur....

CommandButton1.Visible = Application.CountA(Range("B1:B2,G3")) = 3

bonne journée
@+

 

[jeromeN95]

Re : Tant que cellules vides

Salut,
ca marche comme ca :
cmdPropoB.Visible = Application.CountA(Range("B1:B2,G3")) >= 3

Merki.

 

[Pierrot93]

Re : Tant que cellules vides

Re,

en principe ne peut pas être supérieur à 3... A moins peut être d'avoir des cellules fusionnées....

bon après midi
@+

 

[jeromeN95]

Re : Tant que cellules vides

J'en ai fait un de 6.
Pourquoi il ne peut etre supperieur a 3?

 

[Pierrot93]

Re : Tant que cellules vides

Re,

dans la plage concernée, B1, B2 et G3 il n'y a que 3 cellules....

 

[Staple1600]

Re : Tant que cellules vides

bonjour pierrot93


jeromeN95
C'était pourtant explicite 🙄

-> les exemples ci-dessus supposent qu'on parle d'un CommandButtton sur un UserForm.

 

[jeromeN95]

Re : Tant que cellules vides

Oui, en effet.
Ce n est pas dans un USF que j ai le cmd.
J utilise cette regles pour d autre applications.
Comment faire si j ai plusieurs cellules SVP,

 

[Pierrot93]

Re : Tant que cellules vides

RE,

Comment faire si j ai plusieurs cellules SVP,

bah... faut les préciser... et les compter.... sans plus de détails diffile pour moi de t'aider plus...

bonne soirée
@+

 

[jeromeN95]

Re : Tant que cellules vides

bonsoir,
j'ai 2 boutons dont j'aimerai cacher si les cellules ci dessous ne sont pas renseigner :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'masquer et afficher les commandes !
cmdAudit.Visible = Application.CountA(Range("F4,F6,J6,E8,E10,E12")) >= 6
cmdMail.Visible = Application.CountA(Range("F4,F6,J6,E8,E10,E12")) >= 6

End Sub

 

[Pierrot93]

Re : Tant que cellules vides

Bonjour,

essaye peut être ceci, code à utiliser dans le module de la feuille où se trouve le bouton et les cellules :

CommandButton1.Visible = Not (Application.CountA(Range("F4,F6,J6,E8,E10,E12")) < 6)

pas très clair tout ca....

bonne journée
@+