XL 2019 Problème avec les références L1C1 en VBA

  • Initiateur de la discussion Initiateur de la discussion SgTrGt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SgTrGt

XLDnaute Nouveau
Bonjour à tous, petit problème avec mes références L1C1.
Quand j'écris
f.Range("B" & derlign).FormulaR1C1 = "=IFERROR(INDIRECT(RC[-1]&""!b18""),"""")"
en partant de la colonne B pour faire référence à la colonne A

Voici ce que j'obtiens
=SIERREUR(INDIRECT(XFD10&"!b19");"")

Je pars de la droite du tableur

je souhaiterai obtenir
=SIERREUR(INDIRECT(A10&"!b19");"")
Merci de votre aide
 
Bonsoir.
Vous devez faire erreur: c'est seulement en colonne A que RC[-1] peut se référer à la colonne XFD. Dans toutes les autres ça se réfère à la cellule immédiatement à gauche de celle portant la formule, donc la A si c'est en B.
 
Bonsoir, je vous assure que je ne fais pas d'erreur. Lorsque j'exécute le code via un userform, j'obtiens bien ceci dans ma cellule.
C'est très bizarre, cela ne m'est jamais arrivé.
Mauvais paramétrage dans les options d'Excel ou bien mauvais paramétrage du VBA
 
Bonjour.
L'instruction que vous citez marche très bien, ce sont celles en dessous, dont la première l'écrase, qui ne vont pas. De toute façon mettez donc plutôt la même référence absolue à la colonne A à toutes les formules, RC1 ce sera plus simple.
VB:
f.Range("B" & derlign).FormulaR1C1 = "=IFERROR(INDIRECT(RC1&""!b18""),"""")"
 
Dernière édition:
Je viens de voir votre fichier, c'est Top mais ce userform rentre dans un autre beaucoup plus grand, et une multitude de personne vont l'utiliser et je souhaite pouvoir verrouillé certaine chose.
Après je "bricole" en VBA je suis loin d'avoir le niveau que j'aimerai… Mais j'adore ça 😉
encore merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour