VBA ACCESS probleme avec une boucle for
kesamba
-
jeanbi Messages postés 15119 Date d'inscription Statut Contributeur Dernière intervention -
jeanbi Messages postés 15119 Date d'inscription Statut Contributeur Dernière intervention -
bonjour,
j'ai un problème avec une boucle for.
j'ai un formulaire qui permet de saisir les nombres à calculer
j'aimerai que l'utilisateur puisse faire plusieurs saisis à la fois.
avant de quitter le formulaire.
Pour cela j'ai une boucle for mais ca ne fait pas ce que je veux.
Je veux par exemple saisir 10 données et écrire le résultat dans un fichier Excel .
Quand je saisi la première donnée ca parcoure directement 10 fois la boucle.
voici la partie du code qui fait problème
[code]
for j=2 to 10
objExcel.GoTo Reference:=objExcel.Range("A" & j)
objExcel.ActiveCell.Value = nbre
objExcel.GoTo Reference:=objExcel.Range("B" & j)
objExcel.ActiveCell.Value = article
objExcel.GoTo Reference:=objExcel.Range("D" & j)
objExcel.ActiveCell.Value = prix
objExcel.GoTo Reference:=objExcel.Range("E" & j)
objExcel.ActiveCell.Value = prixTotal
objExcel.GoTo Reference:=objExcel.Range("F" & j)
objExcel.ActiveCell.Value = Rabat
Next
objWorkbook.SaveAs (MyPath & stDocName)
/code
Merci
j'ai un problème avec une boucle for.
j'ai un formulaire qui permet de saisir les nombres à calculer
j'aimerai que l'utilisateur puisse faire plusieurs saisis à la fois.
avant de quitter le formulaire.
Pour cela j'ai une boucle for mais ca ne fait pas ce que je veux.
Je veux par exemple saisir 10 données et écrire le résultat dans un fichier Excel .
Quand je saisi la première donnée ca parcoure directement 10 fois la boucle.
voici la partie du code qui fait problème
[code]
for j=2 to 10
objExcel.GoTo Reference:=objExcel.Range("A" & j)
objExcel.ActiveCell.Value = nbre
objExcel.GoTo Reference:=objExcel.Range("B" & j)
objExcel.ActiveCell.Value = article
objExcel.GoTo Reference:=objExcel.Range("D" & j)
objExcel.ActiveCell.Value = prix
objExcel.GoTo Reference:=objExcel.Range("E" & j)
objExcel.ActiveCell.Value = prixTotal
objExcel.GoTo Reference:=objExcel.Range("F" & j)
objExcel.ActiveCell.Value = Rabat
Next
objWorkbook.SaveAs (MyPath & stDocName)
/code
Merci
A voir également:
- VBA ACCESS probleme avec une boucle for
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Copytrans heic for windows - Télécharger - Visionnage & Diaporama
- Instagram for pc - Télécharger - Divers Communication
- Access appdata - Guide
3 réponses
bonjour,
pourquoi une boucle for ? c'est pas un automatismeque tu fais
donc pose des questions avec des reponses
a+
FC 11 - Mandriva 2009 -Debian squeeze-
Les meilleures choses ont besoin de patience.(JC ANGLADE)
penser aux astuces
pourquoi une boucle for ? c'est pas un automatismeque tu fais
donc pose des questions avec des reponses
a+
FC 11 - Mandriva 2009 -Debian squeeze-
Les meilleures choses ont besoin de patience.(JC ANGLADE)
penser aux astuces
re
comment ça tu n'a pas d'autres solutions?
inputbox, msgbox etc.... enuite les label les text
a+
a+
FC 11 - Mandriva 2009 -Debian squeeze-
Les meilleures choses ont besoin de patience.(JC ANGLADE)
penser aux astuces https://www.commentcamarche.net/list
comment ça tu n'a pas d'autres solutions?
inputbox, msgbox etc.... enuite les label les text
a+
a+
FC 11 - Mandriva 2009 -Debian squeeze-
Les meilleures choses ont besoin de patience.(JC ANGLADE)
penser aux astuces https://www.commentcamarche.net/list