Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problème de syntaxe dans une formule

mumu

XLDnaute Occasionnel
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 :

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
 
Dernière édition:

mumu

XLDnaute Occasionnel
Re : problème de syntaxe dans une formule

un début de solution pour la plage de cellule

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

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

James007

XLDnaute Barbatruc
Re : problème de syntaxe dans une formule

A tester ...
Code:
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 +
 

James007

XLDnaute Barbatruc
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 +
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…