Discussion :

[jackborogar]

Bonjour,

Je tiens à faire un copier coller d'un tableau de référence dans une autre feuille. Mon tableau de référence se nomme "engagement", et j'aimerais qu'il prenne le nom du Textbox qui permet de coller mon tableau de référence dans cette feuille "Bilan".

Voici début de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Sheets("Matrices").Visible = True
Set shSource = ThisWorkbook.Sheets("Matrices")
Set shCible = ThisWorkbook.Sheets("Bilan")
 
Sheets("Matrices").Range("K46").Value = "Engagement céréale Exercice  " & TextBox1
Sheets("Matrices").Range("I46:I100").Value = TextBox1
Sheets("Matrices").Range("J49:J100").Value = Split(TextBox1, "/")(1)
shSource.Range("engagement").Copy
shCible.Range("A" & shCible.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial

Pour le copie-colle tout fonctionne très bien par contre je souhaite garder le nom de mon tableau de référence comme "engagement" mais que celui qui sera collé dans le shCible prenne le nom de TextBox1

Bien Cordialement,

[issoram]

Bonjour,

Essaie avec la méthode Add de Names:

Code :

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

1
2
3
Dim str_plage as string
str_plage = ' ici ta plage à nommer
ThisWorkbook.Names.Add Name:=TextBox1.Text, RefersTo:= str_plage

Jamais testé, mais ça devrait fonctionner.

[jackborogar]

J'ai mis ça en dessous de mon copier coller mais négatif j'ai un message d'erreur et la nomination ne se fait pas

Code :

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

1
2
3
Dim str_plage As String
str_plage = "engagement"
ThisWorkbook.Names.Add Name:=TextBox1.Value, RefersTo:=str_plage

La dernière ligne posant problème

[issoram]

Dans

Code :

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

str_plage

c'est une chaine de caractère correspondant à la référence de ta plage qu'il faut mettre. Ex: "=feuil1!$A1$A10" ....

C'est vrai que le nom de ma variable n'est pas très explicite.

Je te renvoie à l'aide Office de la méthode, tu y trouveras toutes les informations dont tu as besoin.

Bon courage

[jackborogar]

Sa ne fonctionne pas du tout

[issoram]

C'est assez vague comme post. Qu'est ce qui ne fonctionne pas?

essaie comme ça

Code :

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

1
2
3
Dim str_plage As String
str_plage = "=engagement"
ThisWorkbook.Names.Add Name:=TextBox1.Text, RefersToR1C1:=str_plage

Je n'ai fait que lire l'aide et utiliser l'enregistreur de macros.

Cordialement.