Selection plage de cellule au nombre de lignes variable

Bonjour
J'ai un soucis, j'ai une macro excel qui doit coller une formule contenu en V4 dans toute la colonne V (fin jusqu'a V4), mais le nombre de ligne est variable d'une mise à jour à une autre. Il faut que la formule s'applique au bon nombre de ligne.
J'ai essayé en faisant créé a ma macro un nbval dans une cellule et reprendre ce nombre en l'affectant a une variable mais le ça ne fonctionne pas...

Code:

---

1 2 3 4 5 6 7

Range("X4").Select ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C[-3]:R[64997]C[-3])" Range("X4").Select nbr_lign = Range("X4").Select Range("V & nbr_lign : W & nbr_lign").Select Range(Selection, Selection.End(xlUp)).Select

---

Voilà en gros ce que j'ai essayé et aussi quelques variantes...

Si tu as une colonne qui doit être toujours remplie, tu peux l'utiliser pour connaitre le nombre de ligne du tableau.

Oui c'est ce que je fais en gros, mais comment je l'utilise ?

Inspire toi de ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim lngLigne As Long     lngLigne = Range("A1").End(xlDown) + 1   Range("B2").Copy   Range("B3:B" & lngLigne).Select ActiveSheet.Paste

---

Salut, merci pour ta réponse
j'ai adapté ton code comme suit

Code:

---

1 2 3 4 5 6 7 8 9 10 11

lngLigne = Range("A4").End(xlDown) + 1 'affecte a lngligne le nombre de ligne du tableau   Range("V4").Copy 'copier la formule contenue en V4   Range("V4:B" & lngLigne).Select 'selectionner la colonne V ActiveSheet.Paste 'coller la formule   Range("W4").Copy 'copier la formule contenue en W4   Range("W4:B" & lngLigne).Select 'selectionner la colonne W ActiveSheet.Paste 'coller la formule

---

Mais il me met une incompatibilité de type sur la première ligne...

as tu déclaré la variable lngLigne?

Oui oui je l'ai déclaré ;)

Code:

---

Dim lngLigne As Long

---

Essai plutot avec ca; Ca fonctione a tous les coups les boucles :P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim lngLigne As Long   lngLigne = 4 Do While Range("A" & lngLigne).Value <> "" lngLigne = lngLigne + 1 Loop 'supprimer le dernier tour lngLigne = lngLigne - 1     Range("B5").Copy   Range("B6:B" & lngLigne).Select ActiveSheet.Paste

---

Ok j'essaye tout de suite !

edit: olalala ça ma foutu des #REF! partout sauf pour la colonne A...
re edit: En fait c'est moi qui est fait de la merde en adaptant le code, ça marche nikel ! Merci beaucoup !