Discussion :

[kia_c]

Bonjour,

Je suis ultra-débutant en VBA et requiert une précieuse aide à qui veut bien:

J'ai des cellules remplies sur toute la première colonne et j'aimerais coller une formule sur la deuxième colonne depuis la deuxième ligne jusqu'à l'avant-dernière qui contient des données.

Plus clairement, par-exemple j'ai des données en A1:A50, j'aimerais coller une formule en B2:B49

Mais je n'arrive pas à trouver quoi taper; j'imagine qu'il faut intégrer

Code :

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

Range("A1").End(xldown)

Bref si quelqu'un peut me venir en aide

[rvtoulon]

si ta plage de donnée est fixe = B2:B50 directement :

Code :

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

Range("B2:B50").FormulaR1C1 = 'ici ta formule

maintenant si plage est dynamique alors:

Code :

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

1
2
3
4
5
With Sheets("Feuil1")
    'dernière ligne utilisée de la colonne A
    derlign = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("B2:B" & derlign).FormulaR1C1 = 'ici ta formule
   End With

[kia_c]

Merci de la réponse.

C'est ce que je cherchais sauf que je ne veux pas coller la formule dans la dernière case:
Donc le faire en B2:B49 (plage dynamique).

Merci d'avance

[rvtoulon]

enlève 1 a derlign :

Code :

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

    derlign = .Range("A" & Rows.Count).End(xlUp).Row - 1

[kia_c]

Merci énormément, tout fonctionne bien