Discussion :

[yoann7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[jfontaine]

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

[yoann7]

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

[jfontaine]

Inspire toi de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yoann7]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[jfontaine]

as tu déclaré la variable lngLigne?