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