transfert de donnees(via un usf)

Le
andre
Bonjour,
dans un usf je recupere les donnees afin de proceder a des modifs de
personnes. Que faut il rajouter a cette procedure de validation
-pour que le champ "nom" soit mis en nom propre
-et aussi lorsque je le corrige (en cas de faute de frappe)
il se valide , dans cette procedure je ne peux pas
- peux t'on rajouter une ligne de code pour supprimer une ligne
complete
dans un 1er temps je recupere les donnees
Private Sub UserForm_Initialize()
Multipage1.Value = 0
Me.listing.RowSource = "Adh_Individuel!A1:I" & _
Sheets("Adh_Individuel").[A500].End(xlUp).Row
Me.Choix_Nom.RowSource = "Adh_Individuel!C2:C" & _
Sheets("Adh_Individuel").[A50].End(xlUp).Row
End Sub
Sub recupere()
Me.Nom1 = ActiveCell
Me.N_Adh = ActiveCell.Offset(0, -2)
Me.Titre1 = ActiveCell.Offset(0, -1)
Me.Prenom1 = ActiveCell.Offset(0, 1)
Me.Adresse1 = ActiveCell.Offset(0, 2)
Me.Ville1 = ActiveCell.Offset(0, 3)
Me.Telephone1 = ActiveCell.Offset(0, 4)
Me.Date_Naiss = ActiveCell.Offset(0, 5)
Me.EMail = ActiveCell.Offset(0, 6)
End Sub
ensuite la validation
Private Sub Validation2_Click()
On Error Resume Next
Me.nom1 = ActiveCell
'-transferer les données dans la l'onglet Adh_Individuel
ActiveCell.Offset(0, -2).Value = Me.N_Adh
ActiveCell.Offset(0, -1).Value = Application.Proper(Me!Titre1)
ActiveCell.Offset(0, 1).Value = Application.Proper(Me!Prenom1)
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Adresse1)
ActiveCell.Offset(0, 3).Value = UCase(Me.Ville1)
ActiveCell.Offset(0, 4).Value = Me.Telephone1
ActiveCell.Offset(0, 5).Value = CVDate(Me.Date_Naiss)
ActiveCell.Offset(0, 6).Value = Me.EMail
Range("G2:G100").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
nettoie 'sub d'effacement des textbox
End Sub
merci de m'avoir lu jusqu'au bout

--
andre
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
andre
Le #5147811
andre à dit
petite erreur
il fallait lire (en dessous) au lieu de la sub "recupere" qui sert a
une autre fonction
Private Sub Choix_Nom_Change()
Sheets("Adh_Individuel").Select
[C2].Offset(Choix_Nom.ListIndex, 0).Select

Me.Nom1 = ActiveCell
Me.N_Adh = ActiveCell.Offset(0, -2)
Me.Titre1 = ActiveCell.Offset(0, -1)
Me.Prenom1 = ActiveCell.Offset(0, 1)
Me.Adresse1 = ActiveCell.Offset(0, 2)
Me.Ville1 = ActiveCell.Offset(0, 3)
Me.Telephone1 = ActiveCell.Offset(0, 4)
Me.Date_Naiss = ActiveCell.Offset(0, 5)
Me.EMail = ActiveCell.Offset(0, 6)
End Sub

--
andre
Publicité
Poster une réponse
Anonyme