MACRO VB SOUS EXCEL

zanu -  
 zanu -
Bonjour,
je voudrais réaliser une macro VB sous excel qui compte le nombre de ligne d'un tableau sous excel.
quelqu'un peut il m'aider?
merci d'avance.
A voir également:

5 réponses

PleaseCallMe
 
Dim R As Double
Dim D As Double
For D = 1 To Cells(65536, 1).End(xlUp).Row
If Not Rows(D).Hidden Then R = R + 1
Next D

MsgBox "Nombre de lignes du tableau : " & D & " "

Essaye ceci, ça devrait marcher ;)
0
zanu
 
merci beaucoup,
mais dans le cas où je dois compter les lignes d'un tableau que j'ai préalablement sélectionné, comment je fais?
et c'est quoi l'en tête? sub ou function?
0
PleaseCallMe
 
C'est-à-dire le tableau sur lequel tu travailles lorsque tu comptes les lignes?
Sinon pour choisir la feuille ou le classeur voulu sert toi des .Activate

Sub Compt_Lignes()

Dim R As Double
Dim D As Double
For D = 1 To Cells(65536, 1).End(xlUp).Row
If Not Rows(D).Hidden Then R = R + 1
Next D

End Sub
0
zanu
 
oui, le tableau sur lequel je travaille et que j'ai sélectionné. lorsque j'execute ta fonction, j'ai toujours pour résultat 2. pourquoi?
merci encore
0
PleaseCallMe
 
Logiquement si il s'agit de la feuille où tu travailles, Excel la sélectionne par défaut.

Essaye Ceci :

Sub Compte()

Dim y As Integer

Range("Cel1", "Cel2").Select
Entre ta plage de données
y = Selection.Rows.Count

End Sub
0
zanu
 
j'ai un tableau excel k jexporte d'un logiciel et je met dans un onglet excel qui est toujours le meme a chaque fois. Mais le problème cest ke le nombre de ligne du tableau exporté varie (n'est pas fixe).
Donc jvoudrais une macro ki va dans cet onglet qui sappelle "zanu", selectionne le tableau et détermine le nombre de ligne qu'il contient.
merci pour ton aide
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
paolo_en_espagne Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   12
 
Bonjour
tu enregistres ta macro en te mettant en dessous de la dernière ligne ddeton tableau sur une colonne toujours remplie et tu prends comme formule =NB(sélection de toute ta colonne).
et ensuite il te reste à coder la sélection de ta colonne.

Pour enregistrer une macro
Outils->Macro->Nouvelle macro

POur aller dans VBA:
Outils->Macro->Visual Basic Editor (ou raccourci clavier Alt+F11)
-1
zanu
 
oui merci bokou, pour la formule je connais, mais je voudrais une vraie fonction VBA stp
0