XL 2019 Bouton dans userform en True-Flase conditionné

farid · 10 Juin 2021

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

Lolote83 · 10 Juin 2021

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 · 10 Juin 2021

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 · 12 Juin 2021

Bonjour Lolote , Patrick,
merci a vous deux , les deux propositions, Patrick pour une action et Lolote pour une autre.
Bonne journée a vous deux

patricktoulon · 12 Juin 2021

farid à dit:
Bonjour Lolote , Patrick,
merci a vous deux , les deux propositions, Patrick pour une action et Lolote pour une autre.
Bonne journée a vous deux

Bonjour @farid
????????
je fait exactement la même chose de @Lolote83 (true/false) mais en une seule ligne de code

farid · 12 Juin 2021

patricktoulon à dit:
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

patricktoulon · 12 Juin 2021

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

farid · 12 Juin 2021

patricktoulon à dit:
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

patricktoulon · 12 Juin 2021

??????????????????????????????

je comprends pas ta demande en fait
ça concerne toujours les boutons ou pas ?

farid · 12 Juin 2021

patricktoulon à dit:
??????????????????????????????
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

patricktoulon · 12 Juin 2021

oui ouvre un new topic et explique toi clairement
peut être aussi un fichier en exemple réduit a l'essentiel dans ton new topic ,sera grandement utile pour comprendre

XL 2019 Bouton dans userform en True-Flase conditionné

farid

XLDnaute Occasionnel

Pièces jointes

Lolote83

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires