condition en vba

greg954

XLDnaute Junior
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)
 

Pierrot93

XLDnaute Barbatruc
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
@+
 

greg954

XLDnaute Junior
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
 

Discussions similaires

Réponses
7
Affichages
353

Statistiques des forums

Discussions
312 380
Messages
2 087 782
Membres
103 663
dernier inscrit
b4ri5.c