Symplifier avec Active

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Symplifier avec Active

PGreg

Salut, :hello:

Je me suis crée une palette de peinture personnaliser et je voudrais qu' elle colorie l' objet séléctionner quel qu' il soit (qui ne soit pas une cellule).
Jusqu' à présents, j' avais définis tout ce que font les objets en cliquant desssus.(Si je click sur mon label1, Label1 = Couleur. Si je click sur label2, Label2 = etc..)
Mais lorsque que l' on à près d' une Trentaine de Label...

Se serait sympa de me donner un p' tit coup de main

Merci

Publicité

PGreg

ReSalut,

Voilà un code (Très petit et tout simple):

If Label1 = "Bleu" Then
Label2.BackColor = &HFF0000
End If

Et moi je pensais à remplacer l' object Label2 par Object.

Pourquoi ça marche pas ?

Merci à tous

PGreg

Bonjour,

Pour essayer de résoudre mon problème, j' aimerai savoir à quoi sert exactement Object ?

Est -ce qu' il serait possible de séléctionner l' objet avec une fonction (active) x ?

Merci

PGreg

Stl, :hello:

J' ai trouvé Controls et ActiveControl pour mes objects (sur un userform), mais j' ai pas encore trouvé la commande pour un Label(x) ?

Est -ce que vous pourriez me donner cette commade ?
Merci :jap: :jap:

galopin01

Bonjour,
Cette macro renvoie le numéro d'index et le Caption des Label :

Code :

Sub Test()
For Each O In ActiveSheet.OLEObjects
If O.progID = "Forms.Label.1" Then MsgBox O.Index & " " & O.Object
Next
End Sub

Cette autre macro renvoie la liste des objets de Feuille1 et leur ProgId dans Feuille2

Code :

Sub ListProgID()
rw = 0
For Each O In Worksheets(1).OLEObjects
With Worksheets(2)
rw = rw + 1
.Cells(rw, 1).Value = O.progID
End With
Next
End Sub

A+

---------------
roger

PGreg

Salut,

Merci pour le code, mais il y a quelque notions/fonction? qui me sont un peu floues, peux tu me dire se que représente Each, OLEObjects et progid ?

Merci encore

galopin01

Euh...
Vaste sujet !
Tu vas dans VBA tu tapes successivement Each, OLEObjects et progID
et tu sélectionnes chaque mot puis F1 : tu auras des définitions surement bien meilleures que celles que je peux te fournir !
Tu remarqueras d'ailleurs que la deuxième macro est directement issue de cette aide...
Nota : en suivant attentivement les liens à l'intérieur de l'aide tu auras également de nombreuse notions fort bien expliquées relatives à ton sujet (en particulier dans l'aide sur OLEObjects et progID
A+

Message édité par galopin01 le 23-11-2005 à 20:41:17

---------------
roger

PGreg

ReSlt,

Ok, mais le problème, c' est que l' aide VBA est un composant à part et qu' il n' est pas installé sur l' ordinateur que j' utilise. Tout du moins, le peu que VBA me donne ne me permet pas de comprendre ses 3 fonctions.
Ou bien alors il ya un moyen de le savoir avec la séquence d' enregistrement ?

C' est possible ?

Merci

galopin01

Re:
Each est un élément des boucles For... Next
Tu peux écrire :

Code :

Sub Test1
For i = 1 to 10
Cells(i,1) = i
Next
End Sub

Ou...

Code :

Sub test()
Range("A1:A10" ).Select
For Each o In Selection
Cells(i + 1, 1) = i + 1
i = i + 1
Next
End Sub

On pourrait traduire For each o in ... par : Pour chaque objet dans la collection.

Pour les autres définitions ils y a plusieurs pages de textes avec des liens hypertextes...
et ce sont ces liens qui sont les plus instructifs !
Il faudra donc que tu te trouves un VBA complet si tu veux approfondir.
Ce n'est pas obligatoire dans l'immédiat ça devrait suffire pour te dépanner.
Ces Méthodes/Propriétés fonctionnent dans les 2 sens Lire/Ecrire donc tu as de quoi faire.
A+

Message édité par galopin01 le 23-11-2005 à 21:02:11

---------------
roger

PGreg

Ok,

Merci, et comme tu dit, il y a de quoi faire...

Publicité

PGreg

Bjr,

Je sais que ça n' a pas grand chose à voir avec le sujet initial, mais j' aimerais savoir si il n' y aurait pas une (ou des ?) adresse pour télécharger gratuitement une aide VBA Excel.

Merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Symplifier avec Active

Sujets relatifs
Kix et Active Directory	Export Active Directory vers Excel
Active Directory et Vbscript	Est ce que Online.net à la fonction zip activé - phpinfo inside
[CSS] Problème avec hover & active	a:active dans FF
N° de ligne de la cellule active d'excel dans une macro	Modifier profil Terminal Server sous Active Directory avec Openldap
Active directory recuperer le champ picture	Est ce que Online.net a la fonction ftp activé, telecharger en http
Plus de sujets relatifs à : Symplifier avec Active

Page générée en 0.064 secondes