Séparer des chiffres vba
cs_TTHIERRY
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005
-
21 déc. 2005 à 14:05
cs_TTHIERRY Messages postés 50 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 22 décembre 2005 - 21 déc. 2005 à 14:53
cs_TTHIERRY Messages postés 50 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 22 décembre 2005 - 21 déc. 2005 à 14:53
4 réponses
cs_funseb
Messages postés
154
Date d'inscription
dimanche 29 juin 2003
Statut
Membre
Dernière intervention
28 janvier 2010
1
21 déc. 2005 à 14:17
21 déc. 2005 à 14:17
je connais pas trop le vba mais je pense que tu peux déclarer un tableau de int de taille 11 ; int tab(11)
et ensuite tu met tab = tonchiffre
label1 = tab(1)
label2 = tab(2)
....
et ensuite tu met tab = tonchiffre
label1 = tab(1)
label2 = tab(2)
....
cs_TTHIERRY
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005
21 déc. 2005 à 14:24
21 déc. 2005 à 14:24
salut
mon chiffre et dans une cellule et je dois le decomposer en 11
je ne comprend pas trop
TThierry133
mon chiffre et dans une cellule et je dois le decomposer en 11
je ne comprend pas trop
TThierry133
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
21 déc. 2005 à 14:42
21 déc. 2005 à 14:42
bonjour
tu parles de 11 Labels , mais il y a 12 caracteres dans la chaine 123456789123
si tes labels sont dans un userForm tu peux tester
Dim i As Byte
Dim Chaine As String
Chaine = "123456789123"
For i = 1 To Len(Chaine)
Controls("Label" & i) = Mid(Chaine, i, 1)
Next i
si les Labels sont dans une Feuille Excel
Dim i As Byte
Dim Chaine As String
Chaine = "123456789123"
For i = 1 To Len(Chaine)
Feuil1.OLEObjects("Label" & i).Object.Caption = Mid(Chaine, i, 1)
Next i
bon apres midi
michel
tu parles de 11 Labels , mais il y a 12 caracteres dans la chaine 123456789123
si tes labels sont dans un userForm tu peux tester
Dim i As Byte
Dim Chaine As String
Chaine = "123456789123"
For i = 1 To Len(Chaine)
Controls("Label" & i) = Mid(Chaine, i, 1)
Next i
si les Labels sont dans une Feuille Excel
Dim i As Byte
Dim Chaine As String
Chaine = "123456789123"
For i = 1 To Len(Chaine)
Feuil1.OLEObjects("Label" & i).Object.Caption = Mid(Chaine, i, 1)
Next i
bon apres midi
michel
cs_TTHIERRY
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005
21 déc. 2005 à 14:53
21 déc. 2005 à 14:53
salut michel
je ne sais pas comment faire, sur le Feuil1 j'es la collonne A (avec le nom) la B (le numéro de 12 chiffres) comment je peu faire pour incerer en un clic le chiffre dans les Label qui se trouve sur le Feuil2
merci encore pour ton aide
TThierry133
je ne sais pas comment faire, sur le Feuil1 j'es la collonne A (avec le nom) la B (le numéro de 12 chiffres) comment je peu faire pour incerer en un clic le chiffre dans les Label qui se trouve sur le Feuil2
merci encore pour ton aide
TThierry133
