Modifier les parametre d'un controles dans une feuille en vba

Résolu/Fermé
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - Modifié par pijaku le 1/12/2014 à 08:02
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - 1 déc. 2014 à 05:07
Bonjour,

j'aimerais modifier le titre de certain Label contenue dans une feuille a partir du code vba de cette feuille en question mais je ne sais pas comment.

Voici ma tentative echoué :

For i = 4 To 7
    
    Workbooks("class.xlsl").ActiveSheet.OLEObjects("Label" & i).Value = Workbooks("class.xlsl").Worksheets("transfert" & po).Range("A" & i).Value

Next i


sa me donne une erreur propriété ou methode non géré par cette objet

Et j'aimerais aussi que cette action de s'effectue seulement une fois lors de la creation de cette feuille en question

Mais je ne sais pas comment

Merci
A voir également:

5 réponses

PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
28 nov. 2014 à 21:53
0
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
28 nov. 2014 à 22:29
Me.controls ne marche pas sa me dit membre de methode ou donnée introuvable

j'ai dejas utilisé cette methode avec mais userform mais on dirais que lorsque les controles sont directement sur la feuille il ne les trouve pas
0
thev Messages postés 1889 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 25 novembre 2024 691
29 nov. 2014 à 10:50
Tout dépend du type de contrôle inséré dans ta feuille .
La collection "OLEOBJECTS" correspond aux contrôles ActiveX. Pour les contrôles formulaire, il faut utiliser la collection "SHAPES"
Pour un Userform, la collection est "CONTROLS".
--
0
thev Messages postés 1889 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 25 novembre 2024 691
29 nov. 2014 à 13:18
Je complète ma réponse.
S'il s'agit d'un contrôle ActiveX :
Workbooks("class.xlsl").ActiveSheet.OLEObjects("Label" & i).Object.Caption = Workbooks("class.xlsl").Worksheets("transfert" & po).Range("A" & i).Value

S'il s'agit d'un contrôle formulaire :
Workbooks("class.xlsl").ActiveSheet.Shapes("Label" & i).AlternativeText = Workbooks("class.xlsl").Worksheets("transfert" & po).Range("A" & i).Value

--
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
1 déc. 2014 à 05:07
Je teste sa dès demain.

Merci bcp,
0