USF Pb Transfert

xvella · 21 Avril 2007

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 · 21 Avril 2007

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 · 21 Avril 2007

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 · 21 Avril 2007

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)

Code:

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

cela peut éviter des erreurs

Bonne fin de journee

wilfried_42 · 21 Avril 2007

Re : USF Pb Transfert

Bonjour jean marie

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

USF Pb Transfert

xvella

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

xvella

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

USF Pb Transfert

xvella

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

xvella

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency