USF Pb Transfert

[xvella]

Bonjour forum,
Bonjour Tous,

J'ai un userform (Création) qui au lieu de me Transfèré les données dans la feuille Tableau me les mes dans la feuille début.
Pouvez-vous m'aider?
Et me dire ou est l'erreur.

Merci d'avance.
@+

 

[wilfried_42]

Re : USF Pb Transfert

bonjour xvella

pour associer un objet avec un with, il faut mettre devant l'objet un point

With Sheets("Tableau")
Derlig = Range("A65536").End(xlUp).Row
lig = Derlig + 1

.Cells(lig, 1).Value = NRef 'N° de Référence
.Cells(lig, 2).Value = ComboBox1.Value 'Date
.Cells(lig, 3).Value = ComboBox2.Value 'Poste
.Cells(lig, 4).Value = ComboBox3.Value 'Produit
.Cells(lig, 5).Value = ComboBox4.Value 'Heure
.Cells(lig, 6).Value = ComboBox5.Value 'Donnée1
.Cells(lig, 8).Value = ComboBox6.Value 'Donnée3

End With

 

[xvella]

Re : USF Pb Transfert

Merci Wilfried,

Plus j'apprends, plus je sais....... plus je sais que je ne sais rien.
C'est bien cela car plus j'en apprend sur excel et VBA plus je me mélange les pinceaux.

Bonne journée
@+

 

[ChTi160]

Re : USF Pb Transfert

Salut xvella
Bonjour Wilfried
Bonjour le Forum
juste pour m'y remettre après une semaine de sevrage Lol

il faut et je pense que c'est un oubli ajouter un point devant le premier Range (en rouge dans le texte Lol)

     Derlig = [COLOR=Red].[/COLOR]Range("A65536").End(xlUp).Row
    lig = Derlig + 1

cela peut éviter des erreurs

Bonne fin de journee

 

[wilfried_42]

Re : USF Pb Transfert

Bonjour jean marie

exacte, il est passé à l'as celui la, merci pour la rectif