XL 2010 Etirer une formule jusqu'où il y a des données quand on rajoute des lignes

[elisagssrd]

Bonjour tout le monde !

Voici le contexte :

J'ai un fichier avec une macro et qui m'ouvre un fichier exporté avec des données et quand je l'ouvre tous mes indicateurs ce calcul automatiquement.
Mais le fichier exporté (selon le mois par exemple) peut avoir des lignes en moins ou en plus. Je voudrais donc que ma macro étende la formule de calcul jusqu'où il y a des données.

Je laisse un fichier en pièce jointe pour mieux illustrer mon propos. (en faite sur le fichier que je laisse je voudrais par exemple que la formule dans la colonne "Indicateur" s'étende automatiquement si il y a des lignes en plus (ou en moins)).

Merci de votre aide

 

[M12]

Bonjour,
La pièce jointe est magnifique

 

[elisagssrd]

Bonjour,
La pièce jointe est magnifique

Oups dsl, en effet j'ai oublié de la mettre.

Merci de me l'avoir fait remarquer

 

[M12]

Re,

Avec une petite macro
En cliquant sur le bouton, la formule se recopie jusqu'à la dernière ligne renseignée

 

[Victor21]

Bonjour à tous.

Sans la petite macro, en double cliquant sur le coin inférieur droit de la cellule J135, la formule (et le format) de J135 se recopie automatiquement jusqu'en J145 (I145 étant renseigné).

 

[elisagssrd]

Bonjour à tous.

Sans la petite macro, en double cliquant sur le coin inférieur droit de la cellule J135, la formule (et le format) de J135 se recopie automatiquement jusqu'en J145 (I145 étant renseigné).

Oui mais comment faire çà automatiquement dans ma macro ? Que la formule s'étende jusqu'où il y a des données.

 

[Victor21]

Re,

Un peu de sérieux, Elisa. Vous oubliez d'abord de joindre le fichier, puis vous joignez un .xlsx. On vous répond avec une macro et une alternative, et vous demandez comment le faire automatiquement dans VOTRE macro (qui ne figure pas bien entendu dans votre fichier).
Fournissez-nous votre adresse, nous viendrons modifier votre macro chez vous. (Préparez les bières, nous serons nombreux...)

 

[elisagssrd]

Re,

Un peu de sérieux, Elisa. Vous oubliez d'abord de joindre le fichier, puis vous joignez un .xlsx. On vous répond avec une macro et une alternative, et vous demandez comment le faire automatiquement dans VOTRE macro (qui ne figure pas bien entendu dans votre fichier).
Fournissez-nous votre adresse, nous viendrons modifier votre macro chez vous. (Préparez les bières, nous serons nombreux...)

Je ne suis pas bien réveillée aujourd'hui, après avoir oublié de joindre le fichier je n'ai carrement pas vu la réponse de M12 avec la macro qu'il a réalisé... (qui en plus me convient parfaitement, merci M12)

En tout cas, merci de votre aide !
(J'ai peur de ne pas avoir assez de place pour inviter tout le monde...)

 

[elisagssrd]

Re,

Avec une petite macro
En cliquant sur le bouton, la formule se recopie jusqu'à la dernière ligne renseignée

Merci pour ta formule M12, elle marche super !

Par contre j'aimerais savoir à quoi corespond le F dans le code VBA ?

Merci

Sub Formule()

  Dim F$
  Dim DernLigne As Long
 
  DernLigne = Range("A" & Rows.Count).End(xlUp).Row
  F = "=IF(AND(RC[-3]=RC[-1],RC[-2]>=RC[-4]),""J"",IF(RC[-2]<=RC[-4],""L"",IF(ROUND(RC[-2]*VLOOKUP(RC3*1,'[Taux conversion]Feuil1'!R1C1:R56C7,6,0),3)>=RC[-4],""J"",""L"")))"
  Range("J2").Formula = F
  Range("J2").AutoFill Destination:=Range("J2:J" & DernLigne), Type:=xlFillDefault

End Sub

 

[Victor21]

Bonjour.

Une variable de chaîne (string) qui contient la formule ?

 

[eriiic]

Bonjour,

et si tu transformes ta plage en tableau (Insertion / tableau) tout ajout de ligne intégrera formats et formules automatiquement (partir d'un tableau correct)
eric

 

[elisagssrd]

Bonjour,

et si tu transformes ta plage en tableau (Insertion / tableau) tout ajout de ligne intégrera formats et formules automatiquement (partir d'un tableau correct)
eric

Oui merci, j'avais déjà essayer mais ca n'avait pas fonctionner. Je n'ai pas dû faire la manip comme il faut.

 

[eriiic]

Bonjour,

Pour éviter tout soucis partir d'un tableau avec juste la ligne de titre et 1 ligne de donnée complétée des formules et mises en forme avant de le convertir.
eric

 

[elisagssrd]

Bonjour,

Pour éviter tout soucis partir d'un tableau avec juste la ligne de titre et 1 ligne de donnée complétée des formules et mises en forme avant de le convertir.
eric

Bonjour Eric,

C'est ce que j'avais fait mais ca n'a pas marché...
Pas grave j'ai réussi à avoir ce que je voulais avec le code VBA de M12.

Merci