Remplissage d'un tableau à la 1ère ligne vide
Résolu
Groupe8
-
Groupe 8 -
Groupe 8 -
Bonjour,
je souhaiterais remplir un tableau de la manière suivante: le programme cherche la 1ère ligne vide et ensuite la remplit avec les valerus renseignées par l'utilisateur dans une interface de saisie.
J'ai pour l'instant écrit cela:
While Range("A" & 2 + I & ":F" & 2 + I).Text <> ""
I = I + 1
Wend
With Range("A" & 2 + I & ":F" & 2 + I)
.Cells(1).Value = NomImmo
.Cells(2).Value = TypeImmo
.Cells(3).Value = DateDebut
.Cells(4).Value = BaseAmo
.Cells(5).Value = TypeAmo
.Cells(6).Value = Prorata
End With
Le problème est qu'il remplit toujours les données dans la 1ère ligne, qu'elle soit vide ou non.
Quelqu'un pourrait-il m'aider svp?
Merci d'avance
je souhaiterais remplir un tableau de la manière suivante: le programme cherche la 1ère ligne vide et ensuite la remplit avec les valerus renseignées par l'utilisateur dans une interface de saisie.
J'ai pour l'instant écrit cela:
While Range("A" & 2 + I & ":F" & 2 + I).Text <> ""
I = I + 1
Wend
With Range("A" & 2 + I & ":F" & 2 + I)
.Cells(1).Value = NomImmo
.Cells(2).Value = TypeImmo
.Cells(3).Value = DateDebut
.Cells(4).Value = BaseAmo
.Cells(5).Value = TypeAmo
.Cells(6).Value = Prorata
End With
Le problème est qu'il remplit toujours les données dans la 1ère ligne, qu'elle soit vide ou non.
Quelqu'un pourrait-il m'aider svp?
Merci d'avance
4 réponses
-
-
Bonjour Groupe8,
le code ci-dessous te permet de récupérer la dernière ligne non vide, donc pour avoir la première ligne vide suivante, il te suffit de mettre +1 à la suite comme suit :
imax = Range("A65536").End(xlUp).Row + 1
-
Bonjour,
voir cette astuce pour obtenir la dernière ligne non vide, quelque soit les versions d'Excel.
Cordialement. -
