Cellules contigues

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Février 2006

• #2

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.

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 27 Février 2006

• #3

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

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 27 Février 2006

• #4

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 ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Février 2006

• #5

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

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 27 Février 2006

• #6

Merci beaucoup.

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

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 28 Février 2006

• #7

Pas de blem PierreJean


Pat

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 28 Février 2006

• #8

Bonjour tout le monde 🙂

une autre syntaxe possible :

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif