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
A voir également:
- Remplissage d'un tableau à la 1ère ligne vide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
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 :
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.
voir cette astuce pour obtenir la dernière ligne non vide, quelque soit les versions d'Excel.
Cordialement.