problème de syntaxe dans une formule

[mumu]

Bonjour le forum,

Encore moi aujourd'hui....
J'ai besoin de reporter dans une formule les numéros de colonne et ligne. Je m'explique :
J'ai un tableau croisé dynamique en A3 et un autre tableau à remplir à coté
J'ai écrit ce code :

Lig = Sheets("mafeuil").Range("A" & Rows.Count).End(xlUp).Row
col = Sheets("mafeuil").Cells(4, Columns.Count).End(xlToLeft).Column
Cells(4, col + 3).Activate
ActiveCell.FormulaR1C1 = "=INDEX(R5C2:R43C20,MATCH(RC23,R5C1:R43C1,0),MATCH(R4C24,R4C2:R4C20,0))"

Je voudrais remplacer dans la formule :
R43 par R & Lig - 1
C20 par C & col - 1
C'est à dire la plage du tableau croisé dynamique sans la colonne "Total"
Mais je ne sais pas où mettre les parenthèses, les guillements...... Je suis en train de m'arracher les cheveux !!!

Une question subsidiaire..... Comment faire pour que la plage soit fixe car ensuite je vais incrémenter la formule sur plusieurs lignes..... ?

Merci de me venir en aide avant que je ne sois chauve !

@ +

Mumu

 

[mumu]

Re : problème de syntaxe dans une formule

un début de solution pour la plage de cellule

tcdAdr = Cells(Lig - 1, col - 1).Address

Je peux utiliser ça à la place de R43C20 mais comment l'écrire.... ????

 

[James007]

Re : problème de syntaxe dans une formule

A tester ...

ActiveCell.FormulaR1C1 = "=INDEX(R5C2:R" & Lig -1 & "C" & col-1 &",MATCH(RC23,R5C1:R" & Lig -1 &"C1,0),MATCH(R4C24,R4C2:R4C" & col-1 &",0))"

A +

 

[mumu]

Re : problème de syntaxe dans une formule

Salut James007,

Je te remercie ça marche !!!!!
Tu viens de sauver mon après-midi !!

Bonne journée et @ +

Mumu

 

[James007]

Re : problème de syntaxe dans une formule

Salut James007,

Je te remercie ça marche !!!!!
Tu viens de sauver mon après-midi !!

Bonne journée et @ +

Mumu

Je suis surtout ravi que ta superbe chevelure n'ait pas eu à faire les frais des tensions créées par ... l'entêté VBA ... !!!

Cela représente bien plus que l'économie d'une perruque ... !!!

A + 🙂