XL 2019 Bouton dans userform en True-Flase conditionné

farid

XLDnaute Occasionnel
Supporter XLD
Bonjour,
je suis devant un souci a savoir:
- A1 vide
- Ouverture userforme 1 ok
- commandbouton1 True
- A1 =Conforme
- Ouverture userform1 ok
- Commandbouton 1 False
Vu de cet angle , cela fonctionne , car la condition est "Conforme" cellule A1 .mais si je met n'importe quel mot dans A1 , cela fonctionne aussi alors que j'aurai souhaité que le fonctionnement soit applique qu'avec la condition "Conforme".
Fichier en PJ
Par avance merci
 

Pièces jointes

  • Bouton true - false.xlsm
    21 KB · Affichages: 2

Lolote83

XLDnaute Accro
Bonjour FARID,
Corrige avec ce code
VB:
Private Sub UserForm_Initialize()
    If UCase(Range("A1")) = "CONFORME" Then
        CommandButton1.Visible = True
    Else
        CommandButton1.Visible = False
    End If
End Sub
J'ai juste mis le mot conforme en majuscule pour traiter les possibilités
- Conforme avec C majuscule
- conforme avec C minuscule
- CONFORME ou autre orthographe possible tel que
- COnforme, cONforme, etc etc etc
@+ Lolote83
 

patricktoulon

XLDnaute Barbatruc
Bonjour @Lolote83 , @farid

précisez toujours le parent du range, on sait jamais le sheet actif pourrait ne pas etre celui de la cellule concernée
et simplifier vous les codes en utilisant le boolean d'une situation (quand il y en a qu'une a vérifier)

VB:
Private Sub UserForm_Initialize()
    CommandButton1.Visible = UCase(Feuil1.[A1]) = "CONFORME"
End Sub
 

farid

XLDnaute Occasionnel
Supporter XLD
Bonjour @farid
????????
je fait exactement la même chose de @Lolote83 (true/false) mais en une seule ligne de code ;)
effectivement et en plus simple , mais ce dernier est pour faire apparaitre un bouton sous condition. Mais j'avais un autre bouton qui lui devait disparaitre avec une autre condition.
Si effectivement il y a plus simple pour la deuxième action avec le bouton 2 , je suis preneur.
merci Patrick

Private Sub UserForm_Initialize()

CommandButton19.Visible = UCase(Feuil1.[I8]) = "CONFORME"

If UCase(Range("A9")) = "" Then
CommandButton2.Visible = True
Else
CommandButton2.Visible = False
End If
 

farid

XLDnaute Occasionnel
Supporter XLD
re
ben tu fait pareil pour l'autre bouton ;)
VB:
Private Sub UserForm_Initialize()
    CommandButton1.Visible = UCase(Feuil1.[A1]) = "CONFORME"
    CommandButton2.Visible =Feuil1.[A9] = ""
End Sub
merci beaucoup , je vais abusé de tes compétences pour autre chose si cela ne te dérange pas a savoir.
j'aurai voulu qu'une cellule soit = a une autre , un genre de copier coller avec lien mais en VBA du style Range("j4") = Range("b9".est-ce possible?
par avance merci
 

farid

XLDnaute Occasionnel
Supporter XLD
?????????????????????????????? 😳 🤫
je comprends pas ta demande en fait
ça concerne toujours les boutons ou pas ?
Non , cela ne concerne pas les bouton, ce sujet tu me la résolu. Je travail sur une GAMO et a fur et a mesure j'avance sur ce projet tout en essayant de comprendre les solutions qui m'ont été apporté Cependant , ayant très peu de temps devant moi , je m'aiguille sur des site comme celui-ci qui est très bon.
en résumé concernant ma demande 'un copier coller avec lien hypertexte de B9 vers I4 mais en VBA .Ou peut être dois-je ouvrir un nouveau sujet?
merci
 

Discussions similaires

Statistiques des forums

Discussions
288 693
Messages
1 894 017
Membres
170 246
dernier inscrit
Fahdj2002
Haut Bas