avant de partir en WE...

[valentine__]

Bonsoir à tous,

Avant de partir en week-end, je m'arrache les cheveux sur un problème apparemment tout bête :

Dans une macro, je crée une nouvelle feuille 'Casimir', et je souhaite que la cellule A1 d'une autre feuille (par exmeple 'Casimir') 'pointe' vers la cellule active de ma feuille source.

Avec la formule suivante, seule la valeur est copiée...

Sheets('Casimir').Range('A1').FormulaR1C1 = ActiveCell.Formula

Avez-vous une idée ???

Bon WE,

Valentine

 

[G.David]

Sheets.Add 'ajout feuille
ActiveSheet.Name = 'Casimir' ' nomme feuiille :Casimir
Range('A1').Select 'selectionne a1
ActiveCell.FormulaR1C1 = '=Feuil1!RC' 'la cellul a1 casimir pointe la cellule A1 de la feuille1
Bon Week
G.David

 

[valentine__]

Merci G.David, mais ce n'est pas tout à fait ce que je cherche.
Je me rends compte que je ne me suis pas très bien expliquée inch:

Dans ma macro idéale, la cellule A1 d'une feuille (par exemple \\'Casimir\\') pointe vers la cellule active de la feuille source (celle à partir de laquelle je lance ma macro).

Ainsi, si sur ma Feuil1 je lance ma macro en étant sur B4, la cellule A1 de 'Casimir' pointe sur B4.

Pour cela, le code suivant sur lequel je bloque copie la valeur de la cellule active de la feuille source, mais ne pointe pas vers elle comme souhaité.

Sheets('Casimir').Range('A1').FormulaR1C1 = ActiveCell.Formula

En vous souhaitant à tous un bon début de WE,

Velentine

Message édité par: valentine__, à: 02/07/2005 10:04

 

[G.David]

AAAAHHHRRRGGG
sub casimir()
dim nom_source as string
nom_source=activsheet.name
sheet.add.name ='Casimir'
range ('A1').formulaR1C1 = '=' & nom_source & '!RC'
end sub
PS le nom de ta nouvelle feuille peut etre recupere dans une cellule de ta feuille active
Cordialement
G.David

 

[valentine__]

Merci beaucoup G.David !!!!
Je progresse

Avec la formule

range ('A1').formulaR1C1 = '=' & nom_source & '!RC'

la cellule qui est renvoyée en A1 de la nouvelle feuille est la cellule A1 de la feuille source, et non pas la cellule en cours 'ActiveCell' de la page source.

Problème excel en cours en milieu tempéré et humide.

Bon début de semaine à tous,