Parcourir fichier Excel jusqu'à la fin de la ligne et passer à la suivante
cs_jiojio
Messages postés
20
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
4 juin 2006
-
10 janv. 2006 à 10:52
yoanndarquest Messages postés 3 Date d'inscription lundi 5 décembre 2005 Statut Membre Dernière intervention 27 février 2006 - 23 mars 2006 à 09:36
yoanndarquest Messages postés 3 Date d'inscription lundi 5 décembre 2005 Statut Membre Dernière intervention 27 février 2006 - 23 mars 2006 à 09:36
A voir également:
- Parcourir fichier Excel jusqu'à la fin de la ligne et passer à la suivante
- Revenir a la ligne python - Forum Python
- Roue de la chance à personnaliser en ligne - Forum Flash
- Retour a la ligne - Forum PHP
- Vba msgbox retour à la ligne ✓ - Forum Visual Basic 6
- Creation roue de la fortune ✓ - Forum Flash
4 réponses
cs_lacomm
Messages postés
298
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
10 janv. 2006 à 16:20
10 janv. 2006 à 16:20
salut,
Je sais pas si ca peut t'aider mais en VBA, tu peux utiliser ActiveCell.Value <> "" et ActiveCell.Offset (0,0) pour déplacer le curseur dans la colonne ou dans le rang ou dans les deux.
Je sais pas si ca peut t'aider mais en VBA, tu peux utiliser ActiveCell.Value <> "" et ActiveCell.Offset (0,0) pour déplacer le curseur dans la colonne ou dans le rang ou dans les deux.
cs_jiojio
Messages postés
20
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
4 juin 2006
11 janv. 2006 à 08:56
11 janv. 2006 à 08:56
le truc est que le fichier excel peut être amené à être modifié....
ajout de 3 4 colonnes en plus, idem pour les lignes avec 500 nouvelles lignes
donc je ne peux pas trop prendre un indice de fin précis. En ce moment j'ai 1127 lignes donc j'ai fait un test comme cela
k = 26 ' nombre de ligne
For i = 1 To 2 ' i correspond au numéro de colonne
TabValeur(i - 1) = wsExcel.Cells(k, i) '(ligne, colonne)
MsgBox TabValeur(i - 1)
Next i ' fin de la boucle
End Function
mais je dois pas utiliser d'indice vu que le fichier va changer...
ajout de 3 4 colonnes en plus, idem pour les lignes avec 500 nouvelles lignes
donc je ne peux pas trop prendre un indice de fin précis. En ce moment j'ai 1127 lignes donc j'ai fait un test comme cela
k = 26 ' nombre de ligne
For i = 1 To 2 ' i correspond au numéro de colonne
TabValeur(i - 1) = wsExcel.Cells(k, i) '(ligne, colonne)
MsgBox TabValeur(i - 1)
Next i ' fin de la boucle
End Function
mais je dois pas utiliser d'indice vu que le fichier va changer...
cs_lacomm
Messages postés
298
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
11 janv. 2006 à 09:12
11 janv. 2006 à 09:12
je ne sais pas comment on fait en Excel, mais avec un fichier texte tu peux faire un tableau avec SPLIT et un séparateur : Split(texte, séparateur), ensuite tu fais un for i = 0 to Ubound(tableau)
Désolé pour la mise en page, je suis sur mac
Désolé pour la mise en page, je suis sur mac
yoanndarquest
Messages postés
3
Date d'inscription
lundi 5 décembre 2005
Statut
Membre
Dernière intervention
27 février 2006
23 mars 2006 à 09:36
23 mars 2006 à 09:36
Salut,
tu peux essayer de récupérer la dernière ligne de ton fichier Excel en utilisant ceci:
dim lignevide as integer
lignevide=workbooks("nom de ton classeur").sheets("nom de ta feuille").cells(65000,1).End(xlUp).Row.
Voilà, à +
tu peux essayer de récupérer la dernière ligne de ton fichier Excel en utilisant ceci:
dim lignevide as integer
lignevide=workbooks("nom de ton classeur").sheets("nom de ta feuille").cells(65000,1).End(xlUp).Row.
Voilà, à +