Connaître le nombre de lignes contenant des données à partir d'une cellule donnée

[nougitch]

Bonjour,

J'aimerais connaître le nombre de lignes contenant des données à partir d'une cellule donnée (en VBA).
Il s'agit de mettre en place une boucle qui va insérer des données dans une base de données Access.
Une ligne = une valeur pour un champ, qui lui est représenté par une colonne.

J'ai fait un petit exemple plus parlant en pièce jointe.

Merci par avance pour votre aide !

 

[Robert]

Re : Connaître le nombre de lignes contenant des données à partir d'une cellule donnée

Bonjour Nougitch, bonjour le forum,

Pas sûr d'avoir bien compris ton problème... Regarde ce bout de code :

Sub Macro1()
 
Dim ld As Long ''déclare la variable ld (Ligne de Début)
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Dim x As Long 'déclare la variable x
 
ld = ActiveCell.Row 'définit la variable ld
lf = Range("B65536").End(xlUp).Offset(1, 0).Row 'définit la variable lf
 
For x = ld To lf
'ton code
Next x
 
End Sub

 

[Pierrot93]

Re : Connaître le nombre de lignes contenant des données à partir d'une cellule donnée

Bonjour Nougitch, Robert

pas sur d'avoir tout compris non plus, c'est fait alors je donne tout de même :

Sub test()
Dim x As Integer, c As Range
'pour le nombre de lignes
x = Range(ActiveCell, Range("B65536").End(xlUp)).Rows.Count
'pour tester les cellules vides
For Each c In Range(ActiveCell, Range("B65536").End(xlUp))
    If IsEmpty(c.Value) Then MsgBox "cellule vide"
Next c
End Sub

bonne journée
@+

 

[nougitch]

Re : Connaître le nombre de lignes contenant des données à partir d'une cellule donné

Bonjour,

Je vous remerciep our vos réponses.
En effet, c'est bien cela que je souhaitais faire.

Bonne journée !