Etirer formules sur plusieurs colonnes Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Log-Alex
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 3 janvier 2019
Version d'Excel : 2016FR

Message par Log-Alex » 19 février 2019, 14:52

Amis Exceliens, Bonjour !

J'ai potassé sur une macro qui permettrait d'étirer mes formules colonne K à P tant que la colonne J n'est pas vide.

A partir d'un sujet créé avant celui-ci, je suis arrivé au résultat suivant :

Sub Etirer()

Dim DernLigne As Integer
DernLigne = Cells(Rows.Count, 11).End(xlUp).Row
Range("K2:P2").Select
Selection.AutoFill Destination:=Range("K2:P" & DernLigne)
End Sub

Evidemment ça ne fonctionne pas :bof: . Pouvez vous m'éclairer sur la faisabilité de ce projet ?

Petite précision il ne faut pas une simple copie des fonctions, mais qu'elles s'incrémentent comme si je le faisait avec la souris.

Un grand merci à vous,
Bonne journée !

Je joins un fichier bateau pour que vous vous fassiez une petite idée.
Fichier exemple.xltm
(16.46 Kio) Téléchargé 2 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'518
Appréciations reçues : 203
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 19 février 2019, 15:36

Bonjour,

à tester,
Sub test()
Dim DernLigne As Integer
DernLigne = Cells(Rows.Count, 11).End(xlUp).Row
Range("K2:P" & DernLigne).FillDown
End Sub
Si le problème est résolu, pensez au clic sur le bouton
isabelle
L
Log-Alex
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 3 janvier 2019
Version d'Excel : 2016FR

Message par Log-Alex » 19 février 2019, 15:48

Bonjour i20100,

Merci pour votre réponse, et votre temps précieux.

Le code que vous m'avez envoyé copie la première ligne sur la deuxième.

Or, il me faut un code qui me permettrait d'incrémenter les formules qui se situent sur la deuxième ligne en K2, L2, M2, N2, O2, P2 jusqu'à la dernière cellule de la colonne J non vide.

En espérant être clair dans mes explications,

En vous remerciant,
Bonne journée.
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'518
Appréciations reçues : 203
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 19 février 2019, 16:49

re,

normalement une formule s'incrément tout seule, si l'adressage est relatif.
Si le problème est résolu, pensez au clic sur le bouton
isabelle
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'420
Appréciations reçues : 88
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 19 février 2019, 19:59

Bonjour toutes et tous

coucou I20100
1 au lieu de 11
DernLigne = Cells(Rows.Count, 1).End(xlUp).Row
testé fonctionnel
Fichier exemple__v1.xltm
(25.54 Kio) Téléchargé 6 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'518
Appréciations reçues : 203
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 19 février 2019, 20:12

Merci Andre13,
clavier avec touche 1 sensible :wink:
1 membre du forum aime ce message.
Si le problème est résolu, pensez au clic sur le bouton
isabelle
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'518
Appréciations reçues : 203
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 19 février 2019, 20:15

Merci Andre13 :wink:
je n'avais pas ouvert le fichier
Si le problème est résolu, pensez au clic sur le bouton
isabelle
L
Log-Alex
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 3 janvier 2019
Version d'Excel : 2016FR

Message par Log-Alex » 20 février 2019, 10:05

Bonjour I20100, Andre13,

Super ça fonctionne ! Je vous remercie tous les deux pour cette solution et votre réactivité ;;)

Passez une bonne journée !
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'420
Appréciations reçues : 88
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 20 février 2019, 11:10

Bonjour toutes et tous,
toi aussi également, bonne journée :wink:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message