Problème formules étirés par macro

Résolu/Fermé
paquito - 27 mars 2023 à 21:50
 paquito - 27 mars 2023 à 22:39

Bonjour,

je rencontre un petit souci avec des formules étirés par macro. 

Si cellule vide la formule est étirée

Si j'ai plusieurs lignes de tableau (tableau commence à A5), pas de souci

Si je n'ai qu'une seule ligne de tableau, c'est la valeur de la cellule qui est étirée et non la formule. 

Si j'ai par exemple 15 comme résultat j'aurai 16, 17, ... 

Si j'ai par exemple mars, j'aurai avril, mai, ... 

Voici la partie de mon code : 

Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B303")

à savoir que j'ai essayé avec : 

Dim LastRow As Long
LastRow = Sheets("Indemnités_km").Cells(Rows.Count, 1).End(xlUp).Row
Range("B5:B" & LastRow).FillDown

mais pas mieux ... 

Les données sont dans un tableau (MEF tableau), ça peut jouer ? Celui-ci va jusqu'à ligne 303 et ne sera pas évolutif ... à priori

Merci
Windows / Office 365

A voir également:

2 réponses

Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
27 mars 2023 à 22:26

Bonjour,

Vous avez un tableau de  303 lignes non évolutif, donc vous étirez la formule en $B$5 manuellement  par copier/coller jusqu'ä $B$303 et c'est fini. Pas besoin de macro...!


0

non car c'est une partie du code activé par 1 CommandButton. 

Mais j'ai trouvé d'où vient le problème et finalement ça n'a rien à voir

Merci quand-même

0