Fonction copy -> feuille a une autre

Bonjour,

J'ai crée un "userform" avec trois champs : id, nom prenom et deux boutons "recherche" et "ajout".

Cela ressemble a une formulaire de saisi.

Voici ci dessous la fonction de mon bouton "ajout" qui est capable d'ajouter dans la première sheet (résume des personnes), les informations rentrées : id, nom prénom. Mais aussi créer une sheet par personne a la fin du classeur avec comme nom => l'id defini.

Private Sub CommandButton2_Click()

Dim i As Integer

Dim ws As Worksheet

If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then

MsgBox "Merci de remplir tous les champs"

Else

i = 1

Do While Cells(i, 1) <> ""

Cells(i, 1).Offset(1, 0).Select

i = i + 1

Loop

Cells(i, 1).Value = TextBox1.Value

Cells(i, 2).Value = TextBox2.Value

Cells(i, 3).Value = TextBox3.Value

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

ws.name = TextBox1.Value

End If

End Sub

Cela marche bien mais maintenant j'aimerai lorsqu'on crée la nouvelle sheet pour un nouvel id, y inclure aussi le contenu ( un tableau different) de ma feuille qui s'appelle "garde" qui est un tableau.

Malheureusement le replacement : Set ws = Worksheets("garde").Copy(After:=Sheets(Sheets.Count)) ne marche pas et j'ai comme message " object required".

Pourriez vous m'aider s'il vous plait ? j'ai mis mon fichier en piece jointe.

Un grand merci par avance.

Decibulle

Bonjour,

A mon avis, il faut le faire en 2 étapes

       Worksheets("garde").Copy After:=Sheets(Sheets.Count): Set ws = ActiveSheet

Bonjour et bienvenue sur le forum

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

gmb merci infiniment !!! c'est parfait !!!