Attribuer nom à une colonne

chris

XLDnaute Barbatruc

• 9 Mars 2006

• #2

Bonjour
Tu peux soit attribuer un nom à une plage soit nommer une formule mais un nom ne peux désigner les 2 à la fois.
Chris

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #3

Bonjour le forum, chris!

J'ai mis une fichier en exemple:

Ce que j'ai fais:
-s&lectionner la colonne B et faire
insertion - nom - définir :
ColAccJanvier et la formule :
=DECALER(Janvier!$B$4;;;NBVAL(Janvier!$B:$B)-1)

mais ce que je veux faire c de mettre ça dans le code VBA de la feuille 'Janvier' en VBA.

suis je plus clair?

merci d'avance
[file name=exemple_20060310063936.zip size=3257]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060310063936.zip[/file]

 

Pièces jointes

• exemple_20060310063936.zip

  3.2 KB · Affichages: 47

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #4

je viens de me relire g du mal il est tôt mais je pense ke l'essentiel est là

merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2006

• #5

bonjour rudymagny

vois si cela te conviens
j'ais testé sur la colonne c et ça a l'air de fonctionner
c'est dans un module mais il ne doit pas etre difficile de le deplacer [file name=rudimagny.zip size=8214]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/rudimagny.zip[/file]

 

Pièces jointes

• rudimagny.zip

  8 KB · Affichages: 37

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #6

bonjour pierrejean et merci!

Il faut que je ragarde si ça fonctionne sur mes feuilles et je te tiens au courant!


Merci @ + tard

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #7

J'ai essayé de faire ça:

Sub Macro1()
Sheets('Janvier').Activate

Columns('C:C').Select
ActiveWorkbook.Names.Add Name:='ColGetJanvier', RefersToR1C1:='=OFFSET(Janvier!R4C4,,,COUNTA(Janvier!C4)-1)'

Columns('E:E').Select
ActiveWorkbook.Names.Add Name:='ColAccJanvier', RefersToR1C1:='=OFFSET(Janvier!R4E4,,,COUNTA(Janvier!E4)-1)'
End Sub

pour attribuer des noms à deux colonnes et chacune leur formule.

Mais une erreur 1004 apparait sur la partie en rouge

je sais po pkoi?

je vais chercher mais si tu sais?

Merci

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #8

erreur de traduction de la formule!!

Sub Macro1()
Sheets('Janvier').Activate

Columns('C:C').Select
ActiveWorkbook.Names.Add Name:='ColGetJanvier', RefersToR1C1:='=OFFSET(Janvier!R4C4,,,COUNTA(Janvier!C4)-1)'

Columns('E:E').Select
ActiveWorkbook.Names.Add Name:='ColAccJanvier', RefersToR1C1:='=OFFSET(Janvier!R4C5,,,COUNTA(Janvier!C5)-1)'
End Sub

ça passe beaucoup mieux ça!

Merci

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 10 Mars 2006

• #9

Merci beaucoup pierrejean!!

C extra c exactement ce que je voulais et ça va me faciliter le boulot!
J'étais souvent obligé de recréer ma formule quand j'ajoutait des lignes à ma colonne et ça devenait lourd!

Merci et bon week end

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2006

• #10

bonsoir rudymagny

essaie cela

ActiveWorkbook.Names.Add Name:='ColccJanvier', RefersToR1C1:= _
'=OFFSET(Janvier!R4C5,,,COUNTA(Janvier!C5)-1)'

Je l'ais obtenu grace à l'enregistrement automatique de macro

regarde la difference entre la version vba de la formule et la version dans la definition du nom

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 13 Mars 2006

• #11

Bonsoir le forum, pierrejean!

Je viens de rentrer de week end.

C'est ce que j'avais fais, j'ai utilisé l'enregistrment automatique de macro et j'ai trouvé!

Merci beaucoup @+ tard

 

Vote positif 0 Vote négatif