Discussion :

[Cadet69]

Salut à tous,

Maintenant que je suis parvenu à remonter la valeur de ma cellule dans la textBox1 de mon usreform2 puis à récupérer mon modèle pour le coller
en dernier dans mon classeur, j'ai 2 soucis que je n'attendais évidemment pas.

1 - Au lieu de me coller simplement ma feuille modèle en tout dernier, mon code ajoute aussi une feuille vierge dont je n'ai aucun besoin ?
Comment l'éviter ? Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets.Add Type:= _
        "C:\Users\papa\AppData\Roaming\Microsoft\Templates\Modèle pour consultation.xltm"
 
    Range("b9").Value = UserForm2.TextBox1.Text
    Sheets("Modèle consult").Name = Range("b10") & Format(Date, " dd-mm-yyyy") 'Détermine le nom de la feuille copiée
 
    Unload Me
 
End Sub

2 - Dans le but de renseigner automatiquement plusieurs cellules dans mon modèle, j'avais collé des formules, à base de RechercheV dans les cellules en question.
Mais visiblement Excel ne trouve plus le bon chemin car il me place #REF# dans ces cellules-là.

J'en conclu que je dois trouver un autre moyen pour renseigner ces cellules.

[deedolith]

Code :

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

Sheets.Add After:=Sheets(Sheets.Count)

Ca ajoute une 1er feuille vierge.

Code :

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

1
2
Sheets.Add Type:= _
        "C:\Users\papa\AppData\Roaming\Microsoft\Templates\Modèle pour consultation.xltm"

Ca ajoute une 2e feuille.

Tu dois donc faire l'operation en 1 seule instruction:

Code :

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

Sheets.add After:=......, Type:=.......

[Cadet69]

Bonsoir Deedolith,

Cool, merci c'est bien çà, je suis un âne.

Je passe à la suite maintenant (c.f. le point 2 de mon post précédent)

Bonne soirée à tous.