Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

condition en vba

  • Initiateur de la discussion Initiateur de la discussion greg954
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

greg954

Guest
j'essaie d’écrire la condition suivante:

Si I179 est non vide et
si H10=F
alors ouvrir userform F

Si I179 est non vide et
si H10=M
alors ouvrir userform M

voici le debut de macro:
If Not IsEmpty(Worksheets("Résultat").Range("I179")) and
If Worksheets("Résultat").Range("H10")=F
Then userformF.show

ElseIf Not IsEmpty(Worksheets("Résultat").Range("I179")) and
If Worksheets("Résultat").Range("H10")=M
Then userformM.show
end if

mais evidement ca ne fonctionne pas
Merci de votre aide!!!!

Greg954( journée galére)
 
Re : condition en vba

Bonjour,

essaie peut être ceci, supposant F et M des valeurs dans les cellules :
Code:
With Worksheets("Résultat")
    If Not IsEmpty(.Range("I179")) And .Range("H10") = "F" Then
        userformF.Show
        ElseIf Not IsEmpty(.Range("I179")) And .Range("H10") = "M" Then userformM.Show
    End If
End With

bon après midi
@+
 
Re : condition en vba

Oui c'est vrai pour guillemet mais j'ai toujours un message d'erreur, manifestement il n'aime pas le and et le if a la suite

suis perdu !!!!!

merci pour t'on aide
 
Re : condition en vba

Bonjour Pierrot, je t’ai répondu hier mais çà a pas marché!!!

Oui merci çà fonctionne parfaitement !!

sans vouloir abuser as tu une idée sur çà :
Sheets(1).Image1.Picture = LoadPicture("C:\Mes documents\Mes images\Desert.jpg")
cette macro fonctionne parfaitement mais au lieu d’insérer une image dans C: j'aimerai y coller unimprim ecran ( contenu dans le presse papier)

Merci encore pour t'on aide

Greg
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…