saisir les données dans une feuille

[nrdz83]

Bonsoir à tous,

comment puis je modifier ce code afin que les données ce rangent bien dans la feuille "Feuille DOSSIER)
et non dans les feuilles ou l'userform s'ouvre.

Par avance merci à tous

Amitiés.

' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = Txt_NomDossier
    Cells(DerLig, 2).Value = Txt_RefDossierOrigin
    Cells(DerLig, 3).Value = Txt_CDCReferent
    Cells(DerLig, 4).Value = Txt_PiloteSpe
    Cells(DerLig, 5).Value = Txt_PiloteCours
    Cells(DerLig, 6).Value = ConseillerPeda
    Cells(DerLig, 7).Value = Txt_OBS

 

[Bernard_XLD]

Re : saisir les données dans une feuille

Bonjour

respecte bien les points

Cordialement

    With ThisWorkbook.Sheets("Feuille DOSSIER")
     DerLig = .Range("A65536").End(xlUp).Row + 1
     .Cells(DerLig, 1).Value = Txt_NomDossier
     .Cells(DerLig, 2).Value = Txt_RefDossierOrigin
     .Cells(DerLig, 3).Value = Txt_CDCReferent
     .Cells(DerLig, 4).Value = Txt_PiloteSpe
     .Cells(DerLig, 5).Value = Txt_PiloteCours
     .Cells(DerLig, 6).Value = ConseillerPeda
     .Cells(DerLig, 7).Value = Txt_OBS
     End With

 

[nrdz83]

Re : saisir les données dans une feuille

bonsoir Yeahou et merci pour ton aide.

Par contre j'ai une erreur maintenant à ce niveau

[COLOR="#FF0000"]DerLig[/COLOR] = .Range("A65536").End(xlUp).Row + 1

alors que sur mon pc du travail les code avec Derling fonctionnaient.
D'ou cela peut il provenir?

Par acvance merci pour l'aide et les lumières

amitiés

 

[nrdz83]

Re : saisir les données dans une feuille

re bonsoir pour l'erreur derlig apparement ça vient de ma mfc donc je vais voir d'ou ça vient.

Par contre ça me saisie tout de même les données dans ma feuille ACCUEIL

merci pour votre aide