Discussion :

[cazimiro33]

Bonjour à tous,

Voici quelque temps que je me casse les dents sur la fonction indirect:

J'ai un code VBA qui permet de générer des feuilles avec un nom variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nom_Feuille As String
nom_Feuille = New_Enfant.TextBox1.Text & "_" & New_Enfant.TextBox2.Text

Jusqu'ici tout va bien, la feuille est bien généré avec ce nom issu de Userform remplit par l'utilisateur.

Là ou ca se complique, c'est que j'ai une feuille nomméé "liste" que je souhaite remplir à partir des donnée de ces feuilles avec le nom variable.

Petit schéma de fonctionnement

1- Le code génère la feuille "nom_Feuille" et la remplit avec des données
2- Le code doit remplir une feuille existante nommée "liste" avec les données de "nom_Feuille" (Nom variable)

Après avoir un peu fouiller sur mon meilleur ami google, je pense que pour faire l'étape 2, il faut que j'utilise la fonction Indirect
J'ai donc ajouter le nom de la feuille dans une cellule de la feuille "liste" et une variable numero_ligne pour recuperer le nom de la feuille.$
Colonne AA et Ligne (Numero_Ligne)

j'essai avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = INDIRECT("AA" & Numero_Ligne & "!" & "D2")

J'obtient une réponse: Fonction inconnu ou end sub....


Vous avez une idée?

[Gorfael]

Salut cazimiro33 et le forum
Regarde sur l'aide Formula, FormulaR1C1, Formulalocal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Formulalocal = INDIRECT("'" & "AA" & Numero_Ligne & "'!D2")

Je suppose que ta formule renvoi le texte en AA & Numero_Ligne (pour le nom de la feuille ?
Moi je préfère utiliser Adresse() quand ma variable est un nom de feuille
A+

[AlainTech]

Il me semble, déjà, voir une grosse erreur de syntaxe.
La formule à assigner est une String (donc guillemets) et doit commencer par le signe =.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=INDIRECT(...)"

[Gorfael]

Salut AlainTech et le forum

Il me semble, déjà, voir une grosse erreur de syntaxe

S'il n'y avait que ça....
Il faut toujours vérifier les infos que l'on donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").FormulaLocal = "=INDIRECT(ADRESSE(2;4;;;"""AA"" & Numero_Ligne))"

Devrait être mieux
A+