Discussion :

[jackborogar]

Bonjour à tous,

j'ai un problème car j'ai un tableau sur la feuille "feuil3" que je copie colle avec les formules vers la feuille "feuil1" en appuyant sur un bouton "ajouter".

Cependant il y a une colonne du tableau "feuil3" où la formule est:
"='Feuil2'!H27" et ainsi de suite.

Quand dans ma feuil1 grâce au bouton j'appel mon tableau feuil3 j'obtiens un #REF! car il ne veut pas aller chercher le "H27" et la formule au lieu d'être:

"='Feuil2'!H27" est "='Feuil2'!#REF! "

Comment résoudre ce problème.

Bien Cordialement,

[Daniel.C]

Bonjour,

Si tu veux reproduire la formule telle quelle, il faut utiliser les références absolues :

Code :

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

=Feuil2!$H$27

[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,

[Daniel.C]

Bonjour,
Dans le code suivant (non testé), j'ai ajouté "xlpastevalues" après "pastespecial"; modifie selon tes besoins. J'ai nommé la plage cible selon le nom du textbox. Vérifie les règles de nommage, en particulier, le nom ne doit pas comprendre de "/".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
With shCible
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
    Set Rng = shSource.Range("engagement")
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(Rng.Rows.Count, Rng.Columns.Count).Name = TextBox1.Text
End With