Nouvelles saisie dans Userform a la suite dans un tableau

Bonjour,

Mon problème est que pour chaque nouvelles saisies que j'effectue, j'aimerais que les valeurs de certaines ComboBox s'ajoutent a la suite dans un tableau excel [sheets("récapitulatif")]. Pour le moment elles se remplacent !

Private Sub CommandButton1_Click()
'Fait un copier/coler de la fuille modèle
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Combonom

'Inscrit dans la cellule définie (VERTICAL,HORIZONTAL)
    'combotitre
Cells(5, 2).Value = Combotitre.Value
Sheets("recapitulatif").Range("C5").Value = Combotitre.Value

    'combonom
Cells(5, 3).Value = Combonom.Value
Sheets("recapitulatif").Range("D5").Value = Combonom.Value

    'combosociete
Cells(7, 2).Value = Combosociete.Value
Sheets("recapitulatif").Range("F5").Value = Combosociete.Value

    'comboadresse
Cells(8, 2).Value = Comboadresse.Value

    'combocp
Cells(9, 2).Value = Combocp.Value

    'comboville
Cells(9, 3).Value = Comboville.Value

    'combomail
Cells(12, 2).Value = Combomail.Value
Sheets("recapitulatif").Range("L5").Value = Combomail.Value

    'comboportable
Cells(15, 2).Value = Comboportable.Value
Sheets("recapitulatif").Range("J5").Value = Comboportable.Value

    'combofixe
Cells(14, 2).Value = Combofixe.Value
Sheets("recapitulatif").Range("H5").Value = Combofixe.Value

    'textboxdebut
Cells(17, 2).Value = TextBoxdebut.Value
Sheets("recapitulatif").Range("N5").Value = TextBoxdebut.Value

    'textboxfin
Cells(18, 2).Value = TextBoxfin.Value
Sheets("recapitulatif").Range("P5").Value = TextBoxfin.Value

'Selectionne les données d'une cellule de la USERFORM'
Selection.Insert
With UserFormrenseignements
      .Combotitre.Text = ""
      .Combonom.Text = ""
      .Combosociete.Text = ""
      .Comboadresse.Text = ""
      .Combocp.Text = ""
      .Comboville.Text = ""
      .Combomail.Text = ""
      .Comboportable.Text = ""
      .Combofixe.Text = ""
      .TextBoxdebut.Text = ""
      .TextBoxfin.Text = ""
End With
UserFormrenseignements.Hide
End Sub

J'ai beau regarder comment sont fait les codes " ligne=sheets" ou "derlign" sur les forums, impossible de les transposer !

Une bonne âme pour m'expliquer ??!!

Merci,

Re

Peux-tu envoyer ton fichier pour tests STP ?

Nad

Bonjour NAD,

Heureusement que tu es la ... 2 fois en 2jours que tu m' apportes ton aide !

As tu un mail pour que je te l'envoie ??

Re

Tu peux le placer sur le forum.

Autrement j'ai essayé de reproduire l'Userform. Essaye ce code :

Private Sub CommandButton1_Click()
Dim derlg As Integer
'Fait un copier/coler de la fuille modèle
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
'UserForm1.Show
ActiveSheet.Name = Combonom

'Inscrit dans la cellule définie (VERTICAL,HORIZONTAL)

'combotitre
Cells(5, 2).Value = Combotitre.Value
'combonom
Cells(5, 3).Value = Combonom.Value
'combosociete
Cells(7, 2).Value = Combosociete.Value
'comboadresse
Cells(8, 2).Value = Comboadresse.Value
'combocp
Cells(9, 2).Value = Combocp.Value
'comboville
Cells(9, 3).Value = Comboville.Value
'combomail
Cells(12, 2).Value = Combomail.Value
'comboportable
Cells(15, 2).Value = Comboportable.Value
'combofixe
Cells(14, 2).Value = Combofixe.Value
'textboxdebut
Cells(17, 2).Value = TextBoxdebut.Value
'textboxfin
Cells(18, 2).Value = TextBoxfin.Value

'Inscrit dans le Récapitulatif

With Sheets("recapitulatif")
.Select
derlg = Range("C65536").End(xlUp).Row + 1
.Range("C" & derlg).Value = Combotitre.Value
.Range("D" & derlg).Value = Combonom.Value
.Range("F" & derlg).Value = Combosociete.Value
.Range("H" & derlg).Value = Combofixe.Value
.Range("J" & derlg).Value = Comboportable.Value
.Range("L" & derlg).Value = Combomail.Value
.Range("N" & derlg).Value = TextBoxdebut.Value
.Range("P" & derlg).Value = TextBoxfin.Value
End With

'Vide et ferme la USERFORM'
Unload Me

End Sub

Si pas bon, joins ton fichier.

Nad

ok le voici,

AVEC LE BON !!!!!!!

Désolé,

Re

Tu es sûr qu'il s'agit du bon fichier ?

Il n'y a pas d'Userform ni de feuille Modele ni de feuille Recapitulatif ...

Nad

Re

Je suppose que tu a pris le code avant que je ne modifie le "derlg" qui faisait référence à la colonne A au lieu de la C

Reprends-le - Il fonctionne dans ton fichier.

Nad

Ca y est je m'y suis remis et ....

.... Une fois de plus grâce a toi je vais pouvoir avancer !!

Bon je te dis a bientot !! Mais bon j'espère pas trop tôt quand même ... Je peux le faire ! lol

Gros merci !!