ranger dans une feuille différente

[nrdz83]

Bonjour, voila ma question j'ai un appel d'userform dans ma feuille"acceuil", et le code suivant pour valider mon userform >>>>
Private Sub Bn_modifications_Click()
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TB_2
Cells(DerLig, 2) = TB_3
Cells(DerLig, 3) = TB_7
Cells(DerLig, 4) = TB_8
Cells(DerLig, 5) = Format(Val(TB_1), "0#"" ""##"" ""##"" ""##"" ""##")
Cells(DerLig, 6) = TB_9
Cells(DerLig, 7) = TB_10
Cells(DerLig, 8) = TB_11
Cells(DerLig, 9) = TB_12
Cells(DerLig, 10) = TB_13
Cells(DerLig, 12) = TB_14
Cells(DerLig, 13) = TB_15
Cells(DerLig, 15) = TB_16
Cells(DerLig, 16) = TB_17
Cells(DerLig, 18) = TB_4
Cells(DerLig, 19) = TB_5
Cells(DerLig, 20) = TB_6
' On décharge le formulaire
Unload Me

End Sub
Je voudrais que ces données soit enregistrées dans ma feuille "base de données", mais je n'arrive pas a modifier mon code pour que ça fonctionne.
D'avance un grand merci mes amitiés 😉

 

[Dull]

Re : ranger dans une feuille différente

Salut nrdz8, Le Forum

Peut-être comme cela

DerLig = [COLOR=Red][B]Sheets("Base de Données").[/B][/COLOR]Range("A" & Rows.Count).End(xlUp).Row + 1

A tester

bonne Journée

 

[nrdz83]

Re : ranger dans une feuille différente

bonjour dull je viens d'essayer ton code mais il range toujours dans la feuille acceuil, merci 😎

 

[Dull]

Re : ranger dans une feuille différente

Re

essaye plutôt çà

Private Sub Bn_modifications_Click()
With Sheets("Base de Données")
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(DerLig, 1) = TB_2
    .Cells(DerLig, 2) = TB_3
    .Cells(DerLig, 3) = TB_7
    .Cells(DerLig, 4) = TB_8
    .Cells(DerLig, 5) = Format(Val(TB_1), "0#"" ""##"" ""##"" ""##"" ""##")
    .Cells(DerLig, 6) = TB_9
    .Cells(DerLig, 7) = TB_10
    .Cells(DerLig, 8) = TB_11
    .Cells(DerLig, 9) = TB_12
    .Cells(DerLig, 10) = TB_13
    .Cells(DerLig, 12) = TB_14
    .Cells(DerLig, 13) = TB_15
    .Cells(DerLig, 15) = TB_16
    .Cells(DerLig, 16) = TB_17
    .Cells(DerLig, 18) = TB_4
    .Cells(DerLig, 19) = TB_5
    .Cells(DerLig, 20) = TB_6
End With
    ' On décharge le formulaire
    Unload Me

End Sub

Bonne Journée

 

[nrdz83]

Re : ranger dans une feuille différente

re bonjour dull et non ça me range toujours dans ma feuille acceuil😉merci

 

[Dull]

Re : ranger dans une feuille différente

Re Re,

Tu m'étonnes là 😕

j'ai refais ton USF (Unmorceau...onestDimanche) 😉 et les données vont bien dans la feuille Base de Données

teste et dis moi. si ça persiste met nous ton Fichier

 

[nrdz83]

Re : ranger dans une feuille différente

Merci DUll ça marche maintenant , ça ne fonctionnait pas parce que je n'avais pas mis de . devant cells super merci

Par contre ce code me sert a modifier une fiche perso de ma base de données mais maintenant il me creer une nouvelle entrée , as tu une idée pour eviter ces doublons? merci d'avance amitiés 😉