Userform

Le
Michel69
Bonjour à toutes et à tous,
Excel 2003. J'ai un userform qui fonctionne très bien. Lorsque je click sur
le bouton enregistrement tous les contenus des txtboxs, combo..etc.. vont
s'écrire sur une feuille BDD.
Je souhaiterais qu'en même temps le contenu de certaines box soient écrites
sur une autre feuille mais là ça coince !
exemple (début d'enregistrement) :
Sheets("bdd").Select
' partie enregistrement, Bouton Enregistrer

On Error Resume Next
With Range("a1")
'== infos sur la personne déclarante Page 1 ==
.End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = CDate(TxtDateCandidature.Value)
.End(xlDown)(1, 3).Value = TxtNomCandidat.Value
.
' fin
.End(xlDown)(1, 35).Value = TxtDatePrévue.Value
End With
Sheets("DépartsPrévus").Select
On Error Resume Next
With Range("a1")
.End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = txtNomAgentParti.Value
.End(xlDown)(1, 3).Value = TxtPrénomAgentParti.Value
.End(xlDown)(1, 4).Value = TxtDatePrévue.Value
.End(xlDown)(1, 5).Value = CboFonction.Value
.End(xlDown)(1, 6).Value = CboMotifDépart.Value
End With
Rien ne se passe !!
Ou est l'erreur ?
Merci d'avance
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel69
Le #17610241
"Michel69" a écrit :

Bonjour à toutes et à tous,
Excel 2003. J'ai un userform qui fonctionne très bien. Lorsque je click sur
le bouton enregistrement tous les contenus des txtboxs, combo..etc.. vont
s'écrire sur une feuille BDD.
Je souhaiterais qu'en même temps le contenu de certaines box soient écrites
sur une autre feuille mais là ça coince !
exemple (début d'enregistrement) :
Sheets("bdd").Select
' partie enregistrement, Bouton Enregistrer

On Error Resume Next
With Range("a1")
'===== infos sur la personne déclarante Page 1 ==== > .End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = CDate(TxtDateCandidature.Value)
.End(xlDown)(1, 3).Value = TxtNomCandidat.Value
.........................
' fin
.End(xlDown)(1, 35).Value = TxtDatePrévue.Value
End With
Sheets("DépartsPrévus").Select
On Error Resume Next
With Range("a1")
.End(xlDown)(2, 1).Value = "2008-" &
Sheets("BDD").Range("A3").End(xlDown).Row - 1
.End(xlDown)(1, 2).Value = txtNomAgentParti.Value
.End(xlDown)(1, 3).Value = TxtPrénomAgentParti.Value
.End(xlDown)(1, 4).Value = TxtDatePrévue.Value
.End(xlDown)(1, 5).Value = CboFonction.Value
.End(xlDown)(1, 6).Value = CboMotifDépart.Value
End With
......Rien ne se passe !!
Ou est l'erreur ?
Merci d'avance
Michel


Publicité
Poster une réponse
Anonyme