Comment incrementer le nom d'un objet
Résolu
ralf_j
Messages postés
4
Date d'inscription
jeudi 27 avril 2006
Statut
Membre
Dernière intervention
30 novembre 2008
-
30 nov. 2008 à 00:40
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 30 nov. 2008 à 14:57
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 30 nov. 2008 à 14:57
4 réponses
Salut Ralf_j
Il faut créer des groupes de contrôles avec des indices tout comme des tableaux de variables
Sur une feuille vierge pose un label : son nom sera Label1
Fait un copier-coller de ce label sur ta feuille
Accepte de créer des groupes de contrôles
Le premier label s'appelle Labe1(0) et le second Label1(1)
Fait un nouveau copier-coller de ces 2 label sur ta feuille : tu obtiens les label Label1(2) et Label1(3)
Etc ......
pour ton exemples tu crées 100 Label de 0 à 99 comme indice
ensuite tu fais
For i% = 0 to 99
Label1(i%).Caption = str$(i% +1)
Next i%
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Il faut créer des groupes de contrôles avec des indices tout comme des tableaux de variables
Sur une feuille vierge pose un label : son nom sera Label1
Fait un copier-coller de ce label sur ta feuille
Accepte de créer des groupes de contrôles
Le premier label s'appelle Labe1(0) et le second Label1(1)
Fait un nouveau copier-coller de ces 2 label sur ta feuille : tu obtiens les label Label1(2) et Label1(3)
Etc ......
pour ton exemples tu crées 100 Label de 0 à 99 comme indice
ensuite tu fais
For i% = 0 to 99
Label1(i%).Caption = str$(i% +1)
Next i%
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
30 nov. 2008 à 08:20
30 nov. 2008 à 08:20
Salut,
Sinon si tu ne veux pas effacer tes 100 label et tout recommencer, ou bien si tu n'est pas en VB6 mais en VBA, tu peux utiliser la collection Controls de ton objet Form.
Dim i As Integer
For i = 1 To 100
Me.Controls("Label_" & CStr(i)).Caption = CStr(i)
Next , ----
[../code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
Sinon si tu ne veux pas effacer tes 100 label et tout recommencer, ou bien si tu n'est pas en VB6 mais en VBA, tu peux utiliser la collection Controls de ton objet Form.
Dim i As Integer
For i = 1 To 100
Me.Controls("Label_" & CStr(i)).Caption = CStr(i)
Next , ----
[../code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
ralf_j
Messages postés
4
Date d'inscription
jeudi 27 avril 2006
Statut
Membre
Dernière intervention
30 novembre 2008
30 nov. 2008 à 14:15
30 nov. 2008 à 14:15
Je vous remercie pour votre aide, ca va bien me simplifier le code
a bientot et merci encore.
a bientot et merci encore.
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
30 nov. 2008 à 14:57
30 nov. 2008 à 14:57
Salut,
Si ton problème est résolu, penses à appuyer sur le bouton "réponse acceptée" sur le ou les posts qui t'ont aidé.
@+: Ju£i€n
Pensez: Réponse acceptée
Si ton problème est résolu, penses à appuyer sur le bouton "réponse acceptée" sur le ou les posts qui t'ont aidé.
@+: Ju£i€n
Pensez: Réponse acceptée