Séries de données non fixes
Emakhtila
Messages postés
17
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
10 mai 2006
-
5 mai 2006 à 15:18
Emakhtila Messages postés 17 Date d'inscription lundi 24 avril 2006 Statut Membre Dernière intervention 10 mai 2006 - 10 mai 2006 à 16:18
Emakhtila Messages postés 17 Date d'inscription lundi 24 avril 2006 Statut Membre Dernière intervention 10 mai 2006 - 10 mai 2006 à 16:18
A voir également:
- Séries de données non fixes
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Base de données javascript - Conseils pratiques -Javascript
- Connexion base de données - Conseils pratiques -PHP
- Nomenclature base de données - Conseils pratiques -PHP
- Ebp impossible de se connecter à la base de données ✓ - Forum SQL
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
6 mai 2006 à 00:29
6 mai 2006 à 00:29
Salut
Bah c'est de l'ASCII classique.
Que va rentrer l'utilisateur dans ton InputBox ? R4C1 (dans D1) puis R373C1 (dans D2) ? (je suppose)
Ensuite, il faut isoler le chiffre qui suit le C et le convertir en chiffre pour pouvoir l'incrémenter
Chiffre1 = Val(Mid(D1, Instr(1, D1, "C") + 1))
D1 = Left(D1, Instr(1, D1, "C"))
Chiffre2 = Val(Mid(D2, Instr(1, D2, "C") + 1))
D2 = Left(D1, Instr(1, D2, "C"))
puis l'insérer dans ta boucle où I est l'incrément
ActiveChart.SeriesCollection(I).XValues = "=Tous!" & D1 & CStr(Chiffre1 + I - 1) & ":" & D2 & CStr(Chiffre2 + I - 1)
ActiveChart.SeriesCollection(I).Values = "=Tous!" & D1 & CStr(Chiffre1 + I) & ":" & D2 & CStr(Chiffre2 + I)
...
Je viens de voir qu'il faudra aussi isoler le chiffre après le R pour transformer R4 en R2.
Le principe est le même (un peu plus compliqué puisqu'il faut choper le chiffre entre R et C, mais analyse les fonctions de traitement de chaine comme Left, Right et Mid).
A toi de jouer
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
Bah c'est de l'ASCII classique.
Que va rentrer l'utilisateur dans ton InputBox ? R4C1 (dans D1) puis R373C1 (dans D2) ? (je suppose)
Ensuite, il faut isoler le chiffre qui suit le C et le convertir en chiffre pour pouvoir l'incrémenter
Chiffre1 = Val(Mid(D1, Instr(1, D1, "C") + 1))
D1 = Left(D1, Instr(1, D1, "C"))
Chiffre2 = Val(Mid(D2, Instr(1, D2, "C") + 1))
D2 = Left(D1, Instr(1, D2, "C"))
puis l'insérer dans ta boucle où I est l'incrément
ActiveChart.SeriesCollection(I).XValues = "=Tous!" & D1 & CStr(Chiffre1 + I - 1) & ":" & D2 & CStr(Chiffre2 + I - 1)
ActiveChart.SeriesCollection(I).Values = "=Tous!" & D1 & CStr(Chiffre1 + I) & ":" & D2 & CStr(Chiffre2 + I)
...
Je viens de voir qu'il faudra aussi isoler le chiffre après le R pour transformer R4 en R2.
Le principe est le même (un peu plus compliqué puisqu'il faut choper le chiffre entre R et C, mais analyse les fonctions de traitement de chaine comme Left, Right et Mid).
A toi de jouer
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
Emakhtila
Messages postés
17
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
10 mai 2006
10 mai 2006 à 11:33
10 mai 2006 à 11:33
en fait dans mon inputbox, l'utilisateur va juste renter 2 s'il a 2 groupes ou 3 s'il en a 3.
Emakhtila
Messages postés
17
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
10 mai 2006
10 mai 2006 à 16:18
10 mai 2006 à 16:18
merci de ton aide. Cela m'a beaucoup aidé. Bye