Cellules contigues

[JUMJ]

Bonjour,

j'ai un tableau avec des données sur chaque ligne.

Je veux insérer une colonne au début du tableau et recopier une formule dans celle-ci j'usqu'à la dernière ligne du tableau. Ordinairement sur excel je double clic sur le coin inférieur droit de la cellule, ce qui a pour effet de recopier vers le bas en suivant les cellules contigues.

Ma macro doit pouvoir s'appliquer à un tableau qui n'aura pas toujours le même nombre de lignes.

Merci pour toute proposition où tout lien vers un post.

Cdt

 

[Robert]

Bonjour Jumj (c'est pratique ton pseudo, je viens de manger un carambar...), bonjour le forum,

Pourrais-tu nous dire où commence le tableau et quelle est la colonne qui détermine le nombre de ligne de celui-ci. Ainsi que ta formule pour que l'on puisse l'écrire dans le code.

 

[pat1545.]

Salut Jumj,


dans un module standard:

Dim dern_ligne As Integer
Range('A1').Select
ActiveCell.FormulaLocal = 'ta formule'
dern_ligne = Range('B65000').End(xlUp).Row
Range(ActiveCell, Selection.Offset(dern_ligne, 0)).Select
Selection.FillDown

Patrick

 

[JUMJ]

Merci pour la réponse.

J'ai essayé, ma formule commense en A2, j'ai donc modifié la macro.

Ca marche mais 'ta formule' se recopie 2 lignes plus bas que la dernière ligne de mon tableau. pourquoi ?

 

[pierrejean]

bonjour JUMJ

je pense que pat1545 ne m'en voudra pas de repondre à sa place

pour depart en A2

Dim dern_ligne As Integer
Range('A2').Select
ActiveCell.FormulaLocal = 'ta formule'
dern_ligne = Range('B65000').End(xlUp).Row
Range(ActiveCell, Selection.Offset(dern_ligne, 2)).Select
Selection.FillDown

 

[JUMJ]

Merci beaucoup.

J'espère pouvoir un jour rendre la pareille.

 

[pat1545.]

Pas de blem PierreJean


Pat

 

[Hervé]

Bonjour tout le monde

une autre syntaxe possible :

Range('a2', Range('b65536').End(xlUp)(1, 0)).FormulaLocal = 'ta formule'

salut