N
nicoloc
Guest
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 .
Merci de votre aide
nicoloc
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 .
Code:
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 SubMerci de votre aide
nicoloc