bonsoir,
je cherche à modifier un grand nombre de Label(n).Caption
... soit avec une boucle Next... For soit avec un tableau.
Il s'agit de Label issue de la barre d'outils Controle :
Il semble que VBA ne leur reconnaisse pas cette propriété.
J'ai essayé avec Shapes, ShapesRange
Avez vous une solution?
Cordialement
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
Bonjour,
Essayez ce code qui utilise:
1) ProgId (pour retenir uniquement les contrôles Label)
2) Object (remplace la propriété Caption pour ce genre de contrôle)
'**************************
Option Explicit
Sub LabelCaption()
Dim O As OLEObject
For Each O In ActiveSheet.OLEObjects
If O.ProgId = "Forms.Label.1" Then _
MsgBox O.Object
Next O
End Sub
'**************************
Est-ce que ça marche ?
PMO
Patrick Morange
bonsoir,
je cherche à modifier un grand nombre de Label(n).Caption
.... soit avec une boucle Next... For soit avec un tableau.
Il s'agit de Label issue de la barre d'outils Controle :
Il semble que VBA ne leur reconnaisse pas cette propriété.
J'ai essayé avec Shapes, ShapesRange
Avez vous une solution?
Cordialement
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
galopin01
Bonsoir, C'est bon je n'ai pas encore eu beaucoup le temps que ronger mon os jusqu'à la moelle, mais je pense m'en tirer avec ça. Je cherche maintenant à tripatouiller tout cela avec des index pour modifier directement les Object qui m'intéressent sans avoir à passer par la boucle For each O... S'il y a une possibilité avec une boucle For i = a To n ????( i ) .Object = Tableau( i ) Next ... Ca serait le pied! mais déjà un grand merci !
"PMO" a écrit dans le message de news:
Bonjour,
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
Bonsoir,
C'est bon je n'ai pas encore eu beaucoup le temps que ronger mon os jusqu'à
la moelle, mais je pense m'en tirer avec ça.
Je cherche maintenant à tripatouiller tout cela avec des index pour modifier
directement les Object qui m'intéressent sans avoir à passer par la boucle
For each O...
S'il y a une possibilité avec une boucle
For i = a To n
????( i ) .Object = Tableau( i )
Next
... Ca serait le pied! mais déjà un grand merci !
"PMO" <PMO@discussions.microsoft.com> a écrit dans le message de
news:7761ED84-0697-44FA-A9C5-68C9559F9469@microsoft.com...
Bonjour,
Essayez ce code qui utilise:
1) ProgId (pour retenir uniquement les contrôles Label)
2) Object (remplace la propriété Caption pour ce genre de contrôle)
'**************************
Option Explicit
Sub LabelCaption()
Dim O As OLEObject
For Each O In ActiveSheet.OLEObjects
If O.ProgId = "Forms.Label.1" Then _
MsgBox O.Object
Next O
End Sub
'**************************
Est-ce que ça marche ?
PMO
Patrick Morange
bonsoir,
je cherche à modifier un grand nombre de Label(n).Caption
.... soit avec une boucle Next... For soit avec un tableau.
Il s'agit de Label issue de la barre d'outils Controle :
Il semble que VBA ne leur reconnaisse pas cette propriété.
J'ai essayé avec Shapes, ShapesRange
Avez vous une solution?
Cordialement
Bonsoir, C'est bon je n'ai pas encore eu beaucoup le temps que ronger mon os jusqu'à la moelle, mais je pense m'en tirer avec ça. Je cherche maintenant à tripatouiller tout cela avec des index pour modifier directement les Object qui m'intéressent sans avoir à passer par la boucle For each O... S'il y a une possibilité avec une boucle For i = a To n ????( i ) .Object = Tableau( i ) Next ... Ca serait le pied! mais déjà un grand merci !
"PMO" a écrit dans le message de news:
Bonjour,
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
galopin01
Bonjour, La nuit porte conseil... J'ai trouvé. Encore merci.
"PMO" a écrit dans le message de news:
Bonjour,
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
Bonjour,
La nuit porte conseil... J'ai trouvé.
Encore merci.
"PMO" <PMO@discussions.microsoft.com> a écrit dans le message de
news:7761ED84-0697-44FA-A9C5-68C9559F9469@microsoft.com...
Bonjour,
Essayez ce code qui utilise:
1) ProgId (pour retenir uniquement les contrôles Label)
2) Object (remplace la propriété Caption pour ce genre de contrôle)
'**************************
Option Explicit
Sub LabelCaption()
Dim O As OLEObject
For Each O In ActiveSheet.OLEObjects
If O.ProgId = "Forms.Label.1" Then _
MsgBox O.Object
Next O
End Sub
'**************************
Est-ce que ça marche ?
PMO
Patrick Morange
bonsoir,
je cherche à modifier un grand nombre de Label(n).Caption
.... soit avec une boucle Next... For soit avec un tableau.
Il s'agit de Label issue de la barre d'outils Controle :
Il semble que VBA ne leur reconnaisse pas cette propriété.
J'ai essayé avec Shapes, ShapesRange
Avez vous une solution?
Cordialement
Bonjour, La nuit porte conseil... J'ai trouvé. Encore merci.
"PMO" a écrit dans le message de news:
Bonjour,
Essayez ce code qui utilise: 1) ProgId (pour retenir uniquement les contrôles Label) 2) Object (remplace la propriété Caption pour ce genre de contrôle)
'************************** Option Explicit Sub LabelCaption() Dim O As OLEObject For Each O In ActiveSheet.OLEObjects If O.ProgId = "Forms.Label.1" Then _ MsgBox O.Object Next O End Sub '**************************
Est-ce que ça marche ?
PMO Patrick Morange
bonsoir, je cherche à modifier un grand nombre de Label(n).Caption .... soit avec une boucle Next... For soit avec un tableau. Il s'agit de Label issue de la barre d'outils Controle : Il semble que VBA ne leur reconnaisse pas cette propriété. J'ai essayé avec Shapes, ShapesRange Avez vous une solution? Cordialement
