Macro étirer une formules en fonction d'un nombre de ligne.

[enzogat]

Bonjour à tous,

après de nombreuses recherches et surtout vu mes compétences en macros je n'arrive pas à faire ce que je souhaite.
J'aimerais tirer une formule dans une colonne en fonction des lignes sur la colonne précédente.
Je m'explique
Lors d'une extraction, j'obtiens un nombre différent de lignes (des jours 12000, d'aute 8000, ...).
L'extraction comprend par contre le meme nombre de colonne (A jusqu'a L)
Grâce à cette extraction je fais des formules dans la colonne M qui prend en compte les données de A à L.

Il faut donc d'en un premier temps que je regarde jusqu'a quel ligne s'arrete l'extraction puis que je réalise les formules.

quelqu'un pourrait-il m'aider a faire le code macro ?

je rappelle que je n'y connaît absolument rien et que je suis plus que débutant dans le VBA.


je vous remercie.
SI vous avez besoin d'un fichier dite le mois.

Enzo

 

[Pierrot93]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Bonjour,

le code ci-dessous te donnera la dernière ligne de la colonne A, sans plus de détails difficile de t'en dire plus :

Dim x As Long
x = Range("A65536").End(xlUp).Row

bon après midi
@+

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Bonjour,

un fichier t'aiderait-il à m'en dire plus ?

 

[Pierrot93]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Re,

sans doute... tu as déjà testé le code donné....

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

ben lorsque je met le code comme ca il n'y a rien qui se passe du coup je pense qu'il est bon mais j'ai aucune idée de comment le faire marcher. Peut être faut-il rajouter des lignes dans le code ?

voici un fichier que j'ai créer.
Il faudrait donc que la formule en C3 s'étire en fonction du nombre de ligne de la colonne B.

 

[Pierrot93]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Bonjour,

dans ton objet, tu précises "macro", or tu mets un fichier de type "xlsx" qui ne prend pas en charge les macros.... et la tu parles de formule en C3 ? perso pas 2007, peux donc pas l'ouvrir... place un fichier xls, plus de monde pourrons y acceder et précise bien exactement ce que tu veux....

bonne journée
@+

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Ben j'aimerais réalisé une macro...
mais je ne sais pas comment ca marche c'est pour ca que mon fichier n'en a pas. J'aimerais savoir si vous avez un code que je puisse comprendre pour pouvoir l'appliquer à mon autre fichier que je ne peux pas vous communiquer.

J'aimerais que la formule dans la cellule C1 (désolé je suis me trompé) qui est somme de A1 et de B1 s'effectue jusqu'à ce qu'il y ait une chiffre dans la colonne B.

Voici le nouveau fichier en xls.

 

[Pierrot93]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Re,

essaye ceci :

Option Explicit
Sub test()
Range("C1").AutoFill Range("C1:C" & Range("A65536").End(xlUp).Row)
End Sub

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

c'est parfait
je te remercie Pierrot.
Je revient vers toi si j'ai du mal à appliquer ces codes à mon autre fichier mais en tout cas MERCI!

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

juste une question pierrot.
Si l'on veut que deux colonnes soit étirer, il faut rajouter une ligne avec la colonne en plus a tirer ou rajouter nom de la colonne dans la parenthèse ?

J'ai essayé les deux mais ca ne marche pas

 

[Pierrot93]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Re,

bah si tu veux étirer les colonnes c et d :

Sub test()
Range("C1").AutoFill Range("C1:C" & Range("A65536").End(xlUp).Row)
Range("D1").AutoFill Range("D1:D" & Range("A65536").End(xlUp).Row)
End Sub

bon après midi
@+

 

[enzogat]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

A mince j'avais pourtant fait ca mais j'ai oublie de change un truc...
je te remercie en tout cas.

bonne aprem a toi aussi
ciao

 

[tototiti2008]

Re : Macro étirer une formules en fonction d'un nombre de ligne.

Bonjour enzogat, Bonjour Pierrot ,

ou bien

Sub test()
Range("C1:D1").AutoFill Range("C1:D" & Range("A65536").End(xlUp).Row)
End Sub