Discussion :

[StandManMike]

bonjour

je suis un peu embeté par une petite ligne de ce petit bout de code qui consiste à créer des boutons sur toutes les feuilles d'un meme classeur nommé WbkT

la portion de code concerné est celle ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With WbkT
 
    For i = 1 To Sheets.Count
   With Sheets(i).BUTTONS.Add(599.25, 1964.25, 120.75, 39).Select
       .Characters.Text = "sortant"
       .OnAction = " 'GESTION .xls'!GOOUT"
        With .Characters(Start:=1, Length:=23).Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 22
            .ColorIndex = xlAutomatic
        End With
        End With
        Next i
    End With

la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Characters.Text = "sortant"

me renvois l'erreur

" objet requis " , je ne vois pas ce que cela peut etre !!

Qui pourrait bien m'expliquer en vous remerciant pour l'interet portée à la question ?

Cordialement

[casefayere]

Bonjour,

Sans avoir regardé plus avant ton problème, corriges déjà cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Sheets(i).BUTTONS.Add(599.25, 1964.25, 120.75, 39).Select

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 With Sheets(i).BUTTONS.Add(599.25, 1964.25, 120.75, 39)

à mon avis......

[StandManMike]

Merci , c'était bien cela !!