Aide sur la syntaxe
Résolu
cs_lauresse
Messages postés
3
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
16 janvier 2006
-
27 déc. 2005 à 14:30
cs_lauresse Messages postés 3 Date d'inscription samedi 8 mars 2003 Statut Membre Dernière intervention 16 janvier 2006 - 28 déc. 2005 à 08:02
cs_lauresse Messages postés 3 Date d'inscription samedi 8 mars 2003 Statut Membre Dernière intervention 16 janvier 2006 - 28 déc. 2005 à 08:02
4 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
27 déc. 2005 à 14:55
27 déc. 2005 à 14:55
Moi je ferait un seul groupe de shape LedEnt() ...
AnteManoclis
Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007
27 déc. 2005 à 14:44
27 déc. 2005 à 14:44
Salut, alors en fait, il faut que tu déclares tes LedEnt comme ça:
Redim LedEnt(1 To 14, 0 To x)
...et ça devrait marcher
Tchô
AnteManoclis
Redim LedEnt(1 To 14, 0 To x)
...et ça devrait marcher
Tchô
AnteManoclis
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
27 déc. 2005 à 15:32
27 déc. 2005 à 15:32
salut,
j'ai du mal à comprendre "comment ou pourquoi" tu as besoin d'utiliser cette nomenclature !!!!
si c'est juste pour avoir X lignes sur Y colonnes, même réponse que CRenaud.
et à toi de voir ensuite selon la ligne ou colonne, et ton utilisation.
mais bon, disons que çà m'échappe...
çà t'irait pas un truc de ce genre?
Private Sub Command1_Click()
Dim Shap As Object
For Each Shap In Me
If TypeOf Shap Is Shape Then
If Left$(Shap.Name, 6) "LedEnt" Then Shap.BackColor &HFF&
End If
Next Shap
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
j'ai du mal à comprendre "comment ou pourquoi" tu as besoin d'utiliser cette nomenclature !!!!
si c'est juste pour avoir X lignes sur Y colonnes, même réponse que CRenaud.
et à toi de voir ensuite selon la ligne ou colonne, et ton utilisation.
mais bon, disons que çà m'échappe...
çà t'irait pas un truc de ce genre?
Private Sub Command1_Click()
Dim Shap As Object
For Each Shap In Me
If TypeOf Shap Is Shape Then
If Left$(Shap.Name, 6) "LedEnt" Then Shap.BackColor &HFF&
End If
Next Shap
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
cs_lauresse
Messages postés
3
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
16 janvier 2006
28 déc. 2005 à 08:02
28 déc. 2005 à 08:02
C'était surement la plus sage décision!
J'était resté fixé sur un principe qui ne me servait, en fin de compte, à rien!!
Merci à tous et à bientôt
Laurent
J'était resté fixé sur un principe qui ne me servait, en fin de compte, à rien!!
Merci à tous et à bientôt
Laurent
