Insertion dans excel
Yahan
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002
-
21 oct. 2002 à 14:48
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 21 oct. 2002 à 20:23
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 21 oct. 2002 à 20:23
A voir également:
- Insertion dans excel
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Arctangente excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Inverse Sinus, Cos, et Tangent ✓ - Forum Visual Basic 6
6 réponses
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
21 oct. 2002 à 17:31
21 oct. 2002 à 17:31
Je ne vois pas bien ce que tu veux faire exactement car actuellement, ton code fait ceci :
10 fois de suite, il écrit la valeur i en A1 soit 1, 2, ... jusque 10. Donc autant inscrire 10 directement.
Par contre si l'idée est de mettre une valeur dans les 10 premières lignes de la colonne A, alors tu devrais écrire ceci :
For i = 1 to 10
XL.range("A" & i)= Valeur
next i
Ici Valeur est toujours la même.
Si tu veux mettre des valeurs différentes et qui ne soient pas en rapport avec une boucle quelconque, fais plutôt :
XL.range("A1") =Valeur1
XL.range("A2") =Valeur2
etc.
J'espère avoir pû t'aider, sinon n'hésites pas à me resoumettre ton problème en étant plus explicite sur tes attentes.
10 fois de suite, il écrit la valeur i en A1 soit 1, 2, ... jusque 10. Donc autant inscrire 10 directement.
Par contre si l'idée est de mettre une valeur dans les 10 premières lignes de la colonne A, alors tu devrais écrire ceci :
For i = 1 to 10
XL.range("A" & i)= Valeur
next i
Ici Valeur est toujours la même.
Si tu veux mettre des valeurs différentes et qui ne soient pas en rapport avec une boucle quelconque, fais plutôt :
XL.range("A1") =Valeur1
XL.range("A2") =Valeur2
etc.
J'espère avoir pû t'aider, sinon n'hésites pas à me resoumettre ton problème en étant plus explicite sur tes attentes.
Yahan
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002
21 oct. 2002 à 18:29
21 oct. 2002 à 18:29
non, enfin oui aussi.
for = a une suite de mots plus exactement à ça
For intI = LBound(strTab) To UBound(strTab)
et donc maintenant je voudrais
XL.range("A1") = strtab(inti)
next inti
mais en créant une range A2 et ainsi de suite.
me suis je fais comprendre ?
merci
Yann
for = a une suite de mots plus exactement à ça
For intI = LBound(strTab) To UBound(strTab)
et donc maintenant je voudrais
XL.range("A1") = strtab(inti)
next inti
mais en créant une range A2 et ainsi de suite.
me suis je fais comprendre ?
merci
Yann
Yahan
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002
21 oct. 2002 à 18:29
21 oct. 2002 à 18:29
non, enfin oui aussi.
for = a une suite de mots plus exactement à ça
For intI = LBound(strTab) To UBound(strTab)
et donc maintenant je voudrais
XL.range("A1") = strtab(inti)
next inti
mais en créant une range A2 et ainsi de suite.
me suis je fais comprendre ?
merci
Yann
for = a une suite de mots plus exactement à ça
For intI = LBound(strTab) To UBound(strTab)
et donc maintenant je voudrais
XL.range("A1") = strtab(inti)
next inti
mais en créant une range A2 et ainsi de suite.
me suis je fais comprendre ?
merci
Yann
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
21 oct. 2002 à 18:39
21 oct. 2002 à 18:39
Je résume : tu voudrais mettre dans ta colonne A la liste des mots de strTab() ???
Alors je ferais ainsi :
For intI = LBound(strTab) To UBound(strTab)
XL.range("A" &intI) = strtab(inti)
next inti
Serait-ce la solution ???
Alors je ferais ainsi :
For intI = LBound(strTab) To UBound(strTab)
XL.range("A" &intI) = strtab(inti)
next inti
Serait-ce la solution ???
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Yahan
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002
21 oct. 2002 à 19:10
21 oct. 2002 à 19:10
cool, ça progresse
juste un soucis c'est que intI = 0 dans la première série de la boucle.
et si je lui dit qu'il est = à 1 ben ça fout tout en l'air forcement
ha je crois savoir XL.range("A1") +, heu non je ne vois pas.
donc voilà le nouveau pb, sinon oui c'est bien ça...
merci
juste un soucis c'est que intI = 0 dans la première série de la boucle.
et si je lui dit qu'il est = à 1 ben ça fout tout en l'air forcement
ha je crois savoir XL.range("A1") +, heu non je ne vois pas.
donc voilà le nouveau pb, sinon oui c'est bien ça...
merci
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
21 oct. 2002 à 20:23
21 oct. 2002 à 20:23
Autant pour moi, j'ai oublié le 0 de départ
Mais ne te fatigue pas avec les guillemets "A" &"1" +intI
tapes directement "A" &intI+1
Mais ne te fatigue pas avec les guillemets "A" &"1" +intI
tapes directement "A" &intI+1