vba : fonction jusqu'à la fin d'un tableau

Bonjour,

J'ai un fichier excel, dans lequel, j'ai un tableau, dans le premier onglet, contenant :
- modèle de voiture
- marque de la voiture
- réparateur

Dans un 2° onglet, le tableau contient :
- modèle de voiture
- marque (qui doit être remonté avec les données du 1° tableau)
- gamme
- quantité

Et finalement dans le 3° onglet, je dois afficher :
- nom du réparateur
- marque
- quantité

J'ai réussi à faire la macro sur une taille donnée de tableau.
Mais cela ne fonctionne plus si on rajoute des lignes dans le 2° tableau

pour remplir les différents tableau, j'utilise :

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(Feuil2!RC[1],Feuil1!R2C2:R9C3,2,FALSE)"

---

=> pour chercher dans le 1° onglet, la marque correspondant au modèle
et

Code:

---

"=SUMIFS(Feuil2!R2C4:R9C4,Feuil2!R2C3:R9C3,"">2"",Feuil2!R2C2:R9C2,RC[-1])"

---

=> pour calculer la quantité de véhicule disponible, et dont la gamme est supérieure à 2.

Comment faire pour indiquer de réaliser ces calculs tant que la cellule n'est pas vide ?

Je vous joins le fichier exemple.
(désolé, je ne m'y connais pas en vba, j'ai donc utilisé l'assistant pour avoir une base)

MerciPièce jointe 259323

Bonjour,
Le code suivant :

Code:

---

1 2	Dim n As Long n = Sheets("maFeuille").Cells(Rows.Count, 1).End(xlUp).Row

---

te permet d'obtenir le numéro de ligne de la dernière ligne non vide de ta feuille.

• Rows.Count donne le nombre de lignes total dansles fuilles de calculs
• Du coup, Cells(Rows.Count, 1) est la dernière cellule de la colonne A
• End(xlUp) permet de remonter à la première cellule non vide depuis la cellule où on est.

Je pense que dans ton code, ça devrait donner quelque chose comme :

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(Feuil2!RC[1],Feuil1!R2C2:R" & n & "C3,2,FALSE)"

---