Macro étendre formules de plusieurs cellules

Bonjour

Je vais tenter d'être clair, et je vous remercie par avance pour votre aide.

Voilà, j'ai un fichier que je souhaite simplifier au maximum car il comporte 30 étapes que j'aimerai réduire par le biais de macros.

comment faire en sorte que ma sélection du moment descende les formules qui lui sont attribuées jusqu'en bas .

Exemple :

- J'ai une formule en J45, une autre formule en K45....jusqu'en P45

Je voudrais que le fill down se produise uniquement pour les cellules sélectionnées, jusqu'en bas de mon fichier où des données sont présentes....l'équivalent du double clic sur le coin inférieur droit d'une cellule finalement.

Merci vraiment pour ce que vous pourrez faire

Hello,

Sans fichier on ne peut rien faire.

Par contre tu peux passer ton tableau en tableau structuré (existe depuis la version 2007), comme ça les formules feront un filldown en dynamique sans avoir besoin de vba ou de double cliquer

@+

Hello.

Je ne peux passer en tableau structuré a cause d'historisation des donnes.

Je mets 1 fichier demain avec un exemple alors.

Merci pour le conseil

Hello

Donc voici mon fichier simplifié.

Colonnes 1 à 4 filtrées, avec des données que j'importe.

Je ne peux créer de tableau structuré, j'insiste bien.

Colonnes F à I contiennent des formules. J'aimerai les étendre jusqu'en bas des nouvelles données que je pourrais importer, par le biais d'une macro, le principe du double clic dans la cellule en base à droite finalement.

Ce qu'il y a, c'est que la ligne évolue à chaque rapport, c'est ça mon problème. J'aimerai que la Macro s'effectue soit sur ma sélection manuelle, soit à compter de la dernière ligne connue où il y a les formules.

Merci

Bonjour Toutnu

Salut Baroute78

Peut-être quelque chose comme ceci

Sub InscrireFormules()
  Dim dLigDonnée As Long, dLigFormule As Long
  With ThisWorkbook.Sheets("Feuil1")
    ' dernière ligne remplie de données
    dLigDonnée = .Range("A" & Rows.Count).End(xlUp).Row
    ' dernière ligne remplie de formule
    dLigFormule = .Range("F" & Rows.Count).End(xlUp).Row
    ' remplir la plage de cellules entre les 2
    .Range("F" & dLigFormule & ":I" & dLigDonnée).FillDown
  End With
End Sub

A+

Hello

Merci pour ton aide. Je viens de créer ma macro, je l'ai exécutée et j'obtiens un blocage sur cette ligne :

.Range("F" & dLigFormule & "I" & dLigDonnée).FillDown

Une idée ?

Re,

Désolé, j'ai oubli le deux points avant le I

.Range("F" & dLigFormule & ":I" & dLigDonnée).FillDown

A+

Hello

Top

Un grand merci, exactement ce que je souhaité.

Excellente journée