Excel
lilington
Messages postés
158
Date d'inscription
samedi 31 janvier 2004
Statut
Membre
Dernière intervention
12 mars 2009
-
3 mai 2005 à 10:18
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 - 12 mai 2005 à 21:01
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 - 12 mai 2005 à 21:01
4 réponses
FFkiller
Messages postés
72
Date d'inscription
lundi 28 juin 2004
Statut
Membre
Dernière intervention
12 mai 2005
1
3 mai 2005 à 11:54
3 mai 2005 à 11:54
Salut,
la dernière ligne est la N° 65536
la dernière colonne est la N° 256 (IV)
pour ton tableau
ligne=1
x=1
do while cells (x,1).value <>""
ligne =ligne+1
x=x+1
if x=65537 then goto colonne
loop
colonne:
y=1
colonneindex =1
do while cells (1,y).value <>""
colonneindex = colonneindex + 1
y=y+1
if y=257 then goto suite
loop
suite:
@+
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
la dernière ligne est la N° 65536
la dernière colonne est la N° 256 (IV)
pour ton tableau
ligne=1
x=1
do while cells (x,1).value <>""
ligne =ligne+1
x=x+1
if x=65537 then goto colonne
loop
colonne:
y=1
colonneindex =1
do while cells (1,y).value <>""
colonneindex = colonneindex + 1
y=y+1
if y=257 then goto suite
loop
suite:
@+
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
lilington
Messages postés
158
Date d'inscription
samedi 31 janvier 2004
Statut
Membre
Dernière intervention
12 mars 2009
3 mai 2005 à 13:11
3 mai 2005 à 13:11
merci mais le probleme c'est que dans mon fichier exel il y a des
lignes et des colones vides je risk donc d'avoir un faux resultat si je
suis ton code. au faite j'ouvre excel en automatisation ex:
Dim app As Object
Set app = CreateObject("Excel.Application")
app.Visible = True
app.workbooks.Open ("K:\projet mazar\Balance générale.xls")
Dim c As String
c = ""
For i = 65 To 68 '64 + 25 'de A à Z
For j = 1 To X ' avec X= nbr total de ligne
c = CStr(Chr(i)) + CStr(j) + ":" + CStr(Chr(i)) + CStr(j)' pour obtenir "A1:A1" avec i=65 et j =1
a = app.activesheet.range(c).Value
msgbox a
ce code doit par exemple m'afficher à l'écrant tout les élément de A à
Z de la 1er à la dernière ligne. mais je cherche justement cette
dernière ligne.pour les colones aussi mai là pour le moment je me
limite à Z.
lignes et des colones vides je risk donc d'avoir un faux resultat si je
suis ton code. au faite j'ouvre excel en automatisation ex:
Dim app As Object
Set app = CreateObject("Excel.Application")
app.Visible = True
app.workbooks.Open ("K:\projet mazar\Balance générale.xls")
Dim c As String
c = ""
For i = 65 To 68 '64 + 25 'de A à Z
For j = 1 To X ' avec X= nbr total de ligne
c = CStr(Chr(i)) + CStr(j) + ":" + CStr(Chr(i)) + CStr(j)' pour obtenir "A1:A1" avec i=65 et j =1
a = app.activesheet.range(c).Value
msgbox a
ce code doit par exemple m'afficher à l'écrant tout les élément de A à
Z de la 1er à la dernière ligne. mais je cherche justement cette
dernière ligne.pour les colones aussi mai là pour le moment je me
limite à Z.
FFkiller
Messages postés
72
Date d'inscription
lundi 28 juin 2004
Statut
Membre
Dernière intervention
12 mai 2005
1
12 mai 2005 à 20:59
12 mai 2005 à 20:59
Salut,
'boucle compage
lig= 1
do while cells (lig,tacolonneteste).value<>""
X=X+1
lig = lig+1
loop
For i = 65 To 89 '64 + 25 'de A à Z
For j = 1 To X ' avec X= nbr total de ligne
c = CStr(Chr(i)) + CStr(j) + ":" + CStr(Chr(i)) + CStr(j)' pour obtenir "A1:A1" avec i=65 et j =1
a = app.activesheet.range(c).Value
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
'boucle compage
lig= 1
do while cells (lig,tacolonneteste).value<>""
X=X+1
lig = lig+1
loop
For i = 65 To 89 '64 + 25 'de A à Z
For j = 1 To X ' avec X= nbr total de ligne
c = CStr(Chr(i)) + CStr(j) + ":" + CStr(Chr(i)) + CStr(j)' pour obtenir "A1:A1" avec i=65 et j =1
a = app.activesheet.range(c).Value
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
FFkiller
Messages postés
72
Date d'inscription
lundi 28 juin 2004
Statut
Membre
Dernière intervention
12 mai 2005
1
12 mai 2005 à 21:01
12 mai 2005 à 21:01
Salut,
Tu peux rajouter des "And" de test si tu ta colonne peux ne pas être remplie mais ta ligne est non vide
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
Tu peux rajouter des "And" de test si tu ta colonne peux ne pas être remplie mais ta ligne est non vide
FFkiller
PS : Pensez que si une réponse vous convient à le signaler ("Réponse acceptée") afin que d'autres utilisateurs le sache
