Nom dans une formule par VB

  • Initiateur de la discussion Initiateur de la discussion thomlau
  • 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 !

thomlau

XLDnaute Occasionnel
Bonjour le forum.

J'ai une nouvelle fois un problème assez difficile à résoudre (enfin pour moi).

Pour la création d'un tableau avec de très nombreux onglets, j'ai créé des formules par macro, afin d'éviter des copier/coller en rafales.

Voici un exemple de formule :
Code:
ActiveSheet.Range("F5").FormulaR1C1 = _
        "=IF(R[-1]C="""","""",IF(R[-1]C<'Recep TD'!R[3]C[-1],'Recep TD'!R[3]C,LOOKUP(R[-1]C,'Recep TD'!R[3]C:R[16]C)))"

Est-il possible de remplacer 'Recep TD'! par un nom contenu dans la feuille active?

D'avance merci pour votre aide.

Bonne journée.
 
Re : Nom dans une formule par VB

Bonjour thomlau,

à priori, oui, pas de soucis :

Code:
NomFeuil = Activesheet.Range("A1").value
ActiveSheet.Range("F5").FormulaR1C1 = _
        "=IF(R[-1]C="""","""",IF(R[-1]C<'" & NomFeuil & "'!R[3]C[-1],'" & NomFeuil & "'!R[3]C,LOOKUP(R[-1]C,'" & NomFeuil & "'!R[3]C:R[16]C)))"
 
Re : Nom dans une formule par VB

Bonjour Thomlau

si j'ai bien compris :

Code:
ActiveSheet.Range("F5").FormulaR1C1 = _
        "=IF(R[-1]C="""","""",IF(R[-1]C<" & Range("A1").Value & "!R[3]C[-1]," & Range("A1").Value & "!R[3]C,LOOKUP(R[-1]C," & Range("A1").Value & "!R[3]C:R[16]C)))"

bonne journée
@+

Edition, aarf Tototiti plus rapide.... bonne journée
 
- 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

Discussions similaires

Réponses
5
Affichages
241
Réponses
10
Affichages
443
Retour