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

elisagssrd · 2 Juin 2017

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 · 2 Juin 2017

Bonjour,
La pièce jointe est magnifique

elisagssrd · 2 Juin 2017

M12 à dit:
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 · 2 Juin 2017

Re,

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

Victor21 · 2 Juin 2017

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 · 2 Juin 2017

Victor21 à dit:
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 · 2 Juin 2017

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 · 2 Juin 2017

Victor21 à dit:
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 · 8 Juin 2017

M12 à dit:
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

VB:

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 · 8 Juin 2017

Bonjour.

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

eriiic · 8 Juin 2017

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 · 8 Juin 2017

eriiiic à dit:
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 · 10 Juin 2017

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 · 13 Juin 2017

eriiiic à dit:
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

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

elisagssrd

XLDnaute Junior

Pièces jointes

M12

XLDnaute Accro

elisagssrd

XLDnaute Junior

M12

XLDnaute Accro

Pièces jointes

Victor21

XLDnaute Barbatruc

elisagssrd

XLDnaute Junior

Victor21

XLDnaute Barbatruc

elisagssrd

XLDnaute Junior

elisagssrd

XLDnaute Junior

Victor21

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

elisagssrd

XLDnaute Junior

eriiic

XLDnaute Barbatruc

elisagssrd

XLDnaute Junior

Discussions similaires