Fichier Excel
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
16 déc. 2003 à 16:23
Arsena Messages postés 190 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 septembre 2005 - 17 déc. 2003 à 19:51
Arsena Messages postés 190 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 septembre 2005 - 17 déc. 2003 à 19:51
2 réponses
juvamine
Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
2
17 déc. 2003 à 09:55
17 déc. 2003 à 09:55
tout dépen si c du vb ou du vba
Si c'est du VBA: (programmmation sus excel)
tu fais:
Dim cpt as Integer
Worksheets("Feuil1").Select
cpt=0
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
cpt=cpt+1
Wend
MsgBox cpt
Si c'est du VB:
Dim ex as new Excel.Application
Dim cpt as Integer
ex.Application.Workbooks.Open ("C:\tonFichier.xls")
ex.ActiveWorkbook.Worksheets("Feuil1").Select
ex.Range("A1").Select
While ex.ActiveCell.Value <> ""
ex.ActiveCell.Offset(1, 0).Select
cpt=cpt+1
Wend
Msgbox cpt
vala
++
juvamine
Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation
Si c'est du VBA: (programmmation sus excel)
tu fais:
Dim cpt as Integer
Worksheets("Feuil1").Select
cpt=0
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
cpt=cpt+1
Wend
MsgBox cpt
Si c'est du VB:
Dim ex as new Excel.Application
Dim cpt as Integer
ex.Application.Workbooks.Open ("C:\tonFichier.xls")
ex.ActiveWorkbook.Worksheets("Feuil1").Select
ex.Range("A1").Select
While ex.ActiveCell.Value <> ""
ex.ActiveCell.Offset(1, 0).Select
cpt=cpt+1
Wend
Msgbox cpt
vala
++
juvamine
Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation
Arsena
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005
17 déc. 2003 à 19:51
17 déc. 2003 à 19:51
' Dans VB tu peut faire aussi :
Sub COMPTE_LG()
Dim MonObjet As Object, Total As Integer
' Affiche Excel sans le fichier "TonFichier.XLS"
Set MonObjet = GetObject("C:\TonFichier.xls")
' Affiche ensuite la fenêtre contenant le fichier "TonFichier.xls"
MonObjet.Windows("TonFichier.xls").Activate
MonObjet.Application.Range("A1").Select
' Compte les lignes
Total = MonObjet.Application.CountA(MonObjet.Application.Columns("A"))
MsgBox "Le nombre de lignes est : " & Total & "."
End Sub
A+
MD
Sub COMPTE_LG()
Dim MonObjet As Object, Total As Integer
' Affiche Excel sans le fichier "TonFichier.XLS"
Set MonObjet = GetObject("C:\TonFichier.xls")
' Affiche ensuite la fenêtre contenant le fichier "TonFichier.xls"
MonObjet.Windows("TonFichier.xls").Activate
MonObjet.Application.Range("A1").Select
' Compte les lignes
Total = MonObjet.Application.CountA(MonObjet.Application.Columns("A"))
MsgBox "Le nombre de lignes est : " & Total & "."
End Sub
A+
MD
