Renommer une plage dans formule

[Sabrina]

Bonjour à tous,

Je voudrais renommer une plage dans une formule mais le code :

Range('B' & n).Select
ActiveCell.FormulaR1C1 = _
'=IF(SUMPRODUCT(( ' = Sheets(nouvelle_feuille_précédemment_créée)!M3: M50 ' =''Joint Colonne'')*(TODAY()-MAX(' = Sheets(nouvelle_feuille_précédemment_créée)!L3: L50 ')<85)),''Joint de colonne remplacé en curatif'',''Remplacement du joint de colonne'')'

Ne fonctionne pas...

Si quelqu'un peut me donner un petit coup de pouce svp

 

[ERIC S]

Bonjour

pb syntaxe j epense

essaie d'adapter

'=IF(SUMPRODUCT((nouvelle!r3c13:r50c13 =''Joint Colonne'')*(TODAY()-MAX(nouvelle!r3c12:r50c12 )<85)),''Joint de colonne remplacé en curatif'',''Remplacement du joint de colonne'')'

A+

 

[Sabrina]

Cela ne fonctionne pas, VBA surligne r50c13 et me signale une 'erreur de compilation : Sub ou Function non définie'

 

[ERIC S]

re

je viens de réessayer, cela marche mais quand je dis adapter :

mets le nom complet au lieu de 'nouvelle'

enlève bien les ' et = (regarde ta formule de départ et la mienne)

A+

 

[Sabrina]

J'ai tapé :
ActiveCell.FormulaR1C1 = _
'=IF(SUMPRODUCT(( Sheets(nom)!R3C13: R50C13 =''Joint Colonne'')*(TODAY()-MAX(Sheets(nom)!R3C12: R50C12)<85)),''Joint de colonne remplacé en curatif'',''Remplacement du joint de colonne'')'

et on me signale :'Erreur d'éxécution '1004'. Erreur définie par l'application ou par l'objet'

Je ne trouve pas ce qui cloche...

 

[ERIC S]

re

il n'y a plus de 'Sheet' dans ma formule

avec la fonction .formulaR1C1, après le premier '=' tu mets un texte en langage américain mais ce n'est plus du vba, c'est du texte où les fonctions (en américain) seront traduites en français dans ta cellule.

A+

 

[Sabrina]

Quand je retire 'Sheets', vba me signale qu'il ne retrouve pas la 'nouvelle feuille'...

Je ne vois plus ce que je peux faire

 

[ERIC S]

re

'=IF(SUMPRODUCT((feuille_précédemment_créée!r50c13 =''Joint Colonne'')*(TODAY()-MAX(feuille_précédemment_créée!r50c12)<85)),''Joint de colonne remplacé en curatif'',''Remplacement du joint de colonne'')'

fonctionne si la feuille existe dans le fichier, mais le nom

nouvelle_feuille_précédemment_créée doit être trop long

A+

 

[Sabrina]

J'ai copié/collé la formule mais excel ne trouve pas le fichier. Je ne sais pas pourquoi...

 

[ERIC S]

re

il faut que dans ton fichier, tu aies une feuille qui s'appelle

feuille_précédemment_créée

si tu peux envoies un bout de ton fichier, zippé, moins de 50k, sans accent, espace...

et sans données confidentielles

A+

 

[Sabrina]

Désolé, ERIC mais même réduit au max, le fichier est trop lourd pour pouvoir l'envoyer...

Je suis complètement perdue

 

[ERIC S]

re

envoie le en direct

eric.seigneur@freesbee.fr

A+

 

[Sabrina]

Ca y est Eric, je me suis arrangée pour le réduire au max.Voici mon fichier. Merci beaucoup pour ton aide, je suis très reconnaissante [file name=pb_20060516114150.zip size=24479]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pb_20060516114150.zip[/file]

 

[ERIC S]

re

ActiveCell.FormulaR1C1 = _
'=IF(SUMPRODUCT((' & nom & '!r50c13 =''Joint Colonne'')*(TODAY()-MAX(' & nom & '!r50c12)<85)),''Joint de colonne remplacé en curatif'',''Remplacement du joint de colonne'')'


en fait comme je te l'ai dit, c'est du texte donc la syntaxe est :

'texte' & variable & 'texte'...

A+

 

[Sabrina]

Ce code ne fonctionne toujours pas. Il recherche toujours le fichier 'nom'