Excel-MAcro- texte textbox

[nicoloc]

bonjour,
j'ai 2 problême avec une macro excel
Je souhaite que ma macro
- copy une textbox existante
- Lui donne un nom particulier (avec une variable)
- lie le yexye affiché avec une cellule

j'ai fait plusieur tentative ,
- Mais à chaque fois j'ai une erreur de compilation ou de fonction sub non reconnue (avec les shapes ou les controls)
- remarque : la textbox est sur une feuille excel et non sur un usf .

Sub creer_indic()
Call count_fleche
Sheets("Indicateurs").Activate
ActiveSheet.Shapes.Range(Array("Flèche 2", "Tableau Bord 2_vert", _
"Tableau Bord 2_Ambre", "Tableau Bord 2_Rouge" _
, "Tableau Bord 2"), "TextBox2").Select
Selection.Copy
  ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 400
Selection.ShapeRange.IncrementTop 30
ActiveSheet.Shapes("Flèche 2").Name = "Flèche " & nb_indic + 2
ActiveSheet.Shapes("Tableau Bord 2_vert").Name = "Tableau Bord " & nb_indic + 2 & "_vert"
ActiveSheet.Shapes("Tableau Bord 2_Ambre").Name = "Tableau Bord " & nb_indic + 2 & "_Ambre"
ActiveSheet.Shapes("Tableau Bord 2_Rouge").Name = "Tableau Bord " & nb_indic + 2 & "_Rouge"
ActiveSheet.Shapes("Tableau Bord 2").Name = "Tableau Bord " & nb_indic + 2
ActiveSheet.Shapes("TextBox2").Name = "TextBox" & nb_indic + 2
Shapes("TextBox" & nb_indic + 2).LinkedCell = Cells(7, 3)
'ActiveSheet.Shapes('Forme libree94').Name = 'Forme libre 94'
End Sub

Merci de votre aide
nicoloc

 

[bonsouarmessieux]

Re : Excel-MAcro- texte textbox

Salut nicoloc!
Il se peut que ton sub ne fonctionne pas car l'utilisation de "call" implique que tu indique ton nom de procédure suivit de parenthèses (entre les quelles peuvent apparraître des paramètres).
Si j'étais tois, j'écrirais

Call count_fleche[COLOR="Red"]()[/COLOR]

ou bien même encore plus simple

count_fleche

car call est facultatif.
Pour le reste je ne peut pas t'aider plus car sans fichier joint je ne peux pas faire d'essaie.
Ciao

 

[nicoloc]

Re : Excel-MAcro- texte textbox

Le call fonctionne correctement .
Je joint le fichier .
j'ai enlever pas mal de truc pcqu'il est trops lourds sinon.
Nicoloc

 

[bonsouarmessieux]

Re : Excel-MAcro- texte textbox

J'ai trouvé deux erreurs:

 [COLOR="Red"]ActiveSheet.[/COLOR]Shapes("TextBox" & nb_indic + 2).LinkedCell = Cells(7, 3)
...
For Each forme In ws.Shapes
        If [COLOR="red"]Strings[/COLOR].Left(forme.Name, 6) = "Flèche" Then 'modif
        nb_indic = nb_indic + 1
        End If
        Next forme
Next ws

Mais ça plante encore. désolé!🙁
Je continue de chercher

 

[nicoloc]

Re : Excel-MAcro- texte textbox

c'est bizarre parce que malgrés les erreurs que tu as corrigé, les lignes de codes en questions font ce qu elles doivent 🙂

 

[nicoloc]

Re : Excel-MAcro- texte textbox

personne ne peut m'aider ?
pour rappel :
j'ai fait plusieur tentative ,
- Mais à chaque fois j'ai une erreur de compilation ou de fonction sub non reconnue (avec les shapes ou les controls)
- remarque : la textbox est sur une feuille excel et non sur un usf .