> Tous les forumsWindows XP

 Calculer nombre de ligne dans Excel [Résolu]
Statut du sujet : NON RESOLU Imprimer
 medium21
  Posté le 27/10/2003 @ 21:53  
 Petit astucien


100 Messages
Comment, par formule ou VBA, calculer le nombre de ligne d'une colonne (non vide), ne sachant pas au départ si elle en comporte 1 ou n (n pouvant aller jusqu'à 200 environ). Mis à part de déterminer au départ une plage "fictive" de 300 par ex. merci.
 
 Aller en bas de la page  
 
Publicité
 droug  Posté le 28/10/2003 à 01:19  
Petit astucien

25 Messages
UP Intéressé par la réponse ; Possible ou non???
 Aller en bas de la page Revenir au message précédent Revenir en haut de la page
 ximi  Posté le 28/10/2003 à 04:30  
Petit astucien

346 Messages
Medium 21 bonsoir, Voici la réponse: Sub NbLignes() ' ' NbLignes Macro ' Macro enregistrée le 28/10/2003 ' 'Pour le test tu mets des valeurs numériques dans les cellules A1;A2;A3;.... 'Les données sont dans la colonne A (modifiable à ta convenance) 'La 1er ligne occupée de la colonne A est en 1 (modifiable à ta convenance) Range("A1").End(xlDown).Select 'Sélection de la dernière ligne non vide de la colonne A 'Toutes les boites de dialogue sont pour info MsgBox ActiveCell.Value 'Affichage Valeur contenue dans la dernière cellule de A MsgBox ActiveCell.Address() 'Affichage de l'adresse de la dernière ligne MsgBox ActiveCell.Row 'N° de la dernière ligne MsgBox "Le nombre de ligne est " & ActiveCell.Row 'si tu commences en ligne 2 dans la colonne A il faudra mettre -1 à la formule MsgBox "Le nombre de ligne est " & ActiveCell.Row - 1 'si tu commences en ligne 3 dans la colonne A il faudra mettre -2 à la formule etc... End Sub !!! ATTENTION tu dois créer ta macro dans Excel. Copier/Coller de ce texte ne marche pas. Byyyyyyyyeeeeeee et bonne nuit
 Aller en bas de la page Revenir au message précédent Revenir en haut de la page
 ximi  Posté le 28/10/2003 à 08:35  
Petit astucien

346 Messages
Medium 21 bonjour, Quant je dis
!!! ATTENTION tu dois créer ta macro dans Excel. Copier/Coller de ce texte ne marche pas.
Cela signifie qu'il faut créer sous Excel la macro Dans le menu: /Outils/macro/nouvelle macro ==< nom de ta macro Sub NbLignes() !!! Ici tu peux faire un copier/coller !!! End sub
 Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Haut de la page 

 > Tous les forumsWindows XP

 
Forum PC Astuces© 1997-2014 WebastucesAller en haut de la page