Probleme avec image vba excel 2007

Signaler
Messages postés
1
Date d'inscription
jeudi 1 décembre 2011
Statut
Membre
Dernière intervention
22 décembre 2011
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour à tous,

Voila, j'ai un un userform de saisie pour excel avec des images a charger sur excel.
Avec mon code, j'arrive à charger les 2 images dans excel mais certaines fois je dois en charger qu'une seule et là, je me retrouve avec un message d'erreur de vba.
Pourriez vous m'aider a modifier mon code pour permettre de ne pas renvoyer un message d'erreur si une des deux images n'est pas chargé.

Voici mon code:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("C38").Value = TextBox1.Value
Sheets("Feuil1").Range("C39").Value = TextBox2.Value
Sheets("Feuil1").Range("C40").Value = TextBox3.Value
Sheets("Feuil1").Range("C41").Value = TextBox4.Value
Sheets("Feuil1").Range("C42").Value = TextBox5.Value
Sheets("Feuil1").Range("C43").Value = TextBox6.Value
Sheets("Feuil1").Range("C44").Value = TextBox7.Value
Sheets("Feuil1").Range("C45").Value = TextBox8.Value
Sheets("Feuil1").Range("C46").Value = TextBox12.Value
Sheets("Feuil1").Range("C47").Value = TextBox10.Value
Sheets("Feuil1").Range("B28").Value = TextBox11.Value

Sheets("Feuil1").Range("H52").Value = TextBox1.Value + "."
Sheets("Feuil1").Range("I52").Value = TextBox2.Value

Dim Sh As Shape

For Each Sh In Worksheets("Feuil1").Shapes
If Sh.Type = msoPicture Then Sh.Delete
Next

ActiveSheet.Pictures.Insert(Image1.Tag).Select
Selection.Top = Range("B3").Top
Selection.Left = Range("B3").Left

ActiveSheet.Pictures.Insert(Image2.Tag).Select
Selection.Top = Range("E3").Top
Selection.Left = Range("E3").Left

ActiveSheet.Pictures.Insert("C:\Users\seb\Desktop\Macro word\attention.jpg").Select
Selection.Top = Range("B28").Top
Selection.Left = Range("B28").Left
Selection.Height = Range("C28").Height
Selection.Width = Range("B31").Width

Unload UserForm1

End Sub


Merci de votre aide.

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut

Avant de commencer, quelques règles :
- Catégorie : Si tu fais du VBA, ce n'est pas du VB.Net
Regarde la catégorie modifiée et mémorise la pour la prochaine fois
- Code : Quand tu colles du code, merci d'utiliser la coloration syntaxique (3ème icone à droite) = plus facile à relire et conserve les indentations

" je me retrouve avec un message d'erreur de vba "
Laquelle ?
Sur quelle ligne ?

"si une des deux images n'est pas chargé"
Pas clair.
C'est toi qui décide de charger 1 ou 2 images ?
Oui : Où se trouve la condition qui le définit ?
Non : Que veux-tu dire ?

La prochaine fois, inutile de coller du code qui n'a pas de lien avec le problème, comme les premières lignes d'affectation des Range - concentre-toi sur l'essentiel du problème.

Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)