Bonjout tout le monde,
 
je voudrais exécuter ce petit code, mais il me met une erreur:
 
Erreur de compilation
Sub ou Fonction non définie
 
option explicite
Private Sub WorkBook_open()
Dim image$
Dim i As Integer
For i = 4 To 6
    If Range("B" & i).Value <> "" Then
       If Controls("Textbox" & Range("A" & i).Value).BackColor = &HFFFF80 Then
          image = "C:\image1.gif"
       Else
          image = "C:\image2.gif"
       End If
       Worksheets("Feuil1" ).Shapes.AddPicture image, False, True, 211, 32.25 + (i * 12), 8, 10
    End If
Next
End Sub
     
Et je ne comprends pas ce qu'il veut. Merci pour votre aide.
Eric D

Je ne sais pas si la syntaxe écrite dans ton message est bien celle que tu utilises dans ton programme, mais la première ligne de ton code devrait plutôt être :

donc sans « e » à Explicit

Salut,
 
Comme la dis tegu, deja pas de e a explicit, de plus, ton code doit etre placé dans le module du usf et nom pas dans le module ThisWorbook. Essaye tu verras qu'il ne genere plus d'erreur sur le Controls.
 
@+

Bonjour tegu, porcinet82 et le forum,
 
Merci pour vos réponses, néanmoins porcinet82, j'ai mis mon code à l'emplacement réservé à celui de la feuille, car ma Textbox est directement sur la feuille sans USF, mais cela ne marche pas, même effets.
Merci pour vos réponses.
Eric D

Salut Eric D,
 
Sorry, je pensais que tu travaillais avec un USF, le Controls ne fonctionne qu'avec USF, si tu travails sur ta feuille, il faut utiliser Shapes a la place de Controls et ca devrait le faire.
 
@+

Salut porcinet82, le forum,
 
Il me met, maintenant une erreur 438, Propriété ou Méthode non gérer par cet objet.
Merci pour l'aide.
Eric D

La propriété BackColor n'existe pas pour l'objet Shape.