XL 2019 Bouton dans userform en True-Flase conditionné

[farid]

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]

Bonjour FARID,
Corrige avec ce code

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]

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)

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

 

[farid]

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]

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]

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]

re
ben tu fait pareil pour l'autre bouton

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

 

[farid]

re
ben tu fait pareil pour l'autre bouton

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]

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

 

[farid]

??????????????????????????????
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]

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