Etendre une formule jusqu'à la dernière ligne non vide Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Mskander
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 8 avril 2015
Version d'Excel : 2010

Message par Mskander » 20 janvier 2017, 11:50

Bonjour les amis :)

J'ai besoin d'un code VBA qui me permet de détecter la dernière ligne non vide de ma base et étendre la formule jusqu'à cette ligne.
Pouvez vous m'aider là dessus?

Merci d'avance
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'716
Appréciations reçues : 78
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 janvier 2017, 11:57

Bonjour,

sans exemple pas facile à mettre en place

une soluce :?
DL=Range("A" & Rows.Count).End(xlUp).Row 'Derniere ligne de la colonne A
F = "=IF(AND(A13="""",F13=""""),G13,"""")"  'Formule ) mettre la formule après le F = (venant de la macro automatique par exemple)
Range("L13").Formula = F 'Emplacement de la 1ere cellule recevant la formule
Range("L13").AutoFill Destination:=Range("L13:" & DL), Type:=xlFillDefault   'incrémentation jusqu'à la derniere ligne
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
M
Mskander
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 8 avril 2015
Version d'Excel : 2010

Message par Mskander » 20 janvier 2017, 14:33

Je viens de vous rattacher un exemple simplifié de mon fichier réel.
Merci
Nouveau Feuille de calcul Microsoft Excel.xlsm
(14.65 Kio) Téléchargé 77 fois
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'716
Appréciations reçues : 78
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 janvier 2017, 14:55

Re,

A tester
Nouveau Feuille de calcul Microsoft Excel.xlsm
(22 Kio) Téléchargé 148 fois
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
M
Mskander
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 8 avril 2015
Version d'Excel : 2010

Message par Mskander » 20 janvier 2017, 15:20

Merci beaucoup :)
ca fonctionne mais dans le cas de formules compliquées et nombreuses est ce que je doit les définir à chaque fois.
g
gullaud
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 11
Inscrit le : 13 décembre 2016
Version d'Excel : 2013

Message par gullaud » 20 janvier 2017, 15:28

une proposition sans programmation, j'utilise la notion de tableau
un seul inconvénient, dans une colonne on a toujours la même formule
a plus, je pars pour 4 jours en vacances, il faudra attendre si tu veux d'autres pécision
recopie formule.xlsx
(10.16 Kio) Téléchargé 76 fois
A
Amadéus
Modérateur
Modérateur
Messages : 17'744
Appréciations reçues : 66
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 20 janvier 2017, 16:14

Bonjour
Code module associé au bouton
Sub incrémenter()
    Range("D6:G6").Select
    Selection.AutoFill Destination:=Range("D6:G" & [C65000].End(xlUp).Row)
    Range("D5").Select
End Sub
Cordialement
Nouveau Feuille de calcul Microsoft Excel.xlsm
(16.91 Kio) Téléchargé 146 fois
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
M
Mskander
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 8 avril 2015
Version d'Excel : 2010

Message par Mskander » 22 janvier 2017, 11:08

Merci beaucoup Gullaud :)
@Amadéus , merci énormément, ça marche très bien et c'est exactement la solution dont j'en avais besoin :) :)
M
Mskander
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 8 avril 2015
Version d'Excel : 2010

Message par Mskander » 22 janvier 2017, 11:08

Merci beaucoup Gullaud :)
@Amadéus , merci énormément, ça marche très bien et c'est exactement la solution dont j'en avais besoin :) :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message