Titre du sujet : Re: Problème de remplissage d'un tableau via userform
par Skoobi le 03/12/2008 20:23:38
Bonsoir,
Pour commencer, enlève dans chaque contrôle ce que tu as mis dans "ControleSource" dans la fenêtre propriété. En effet, cela écrira systématiquement sur la ligne 3 donc impossibilité de créer d'autre lignes.
Voici les nouveaux codes pour le bouton "Nouvelle convention"et "Valider":
Private Sub Nouvconvention_Click()
'Ouvrir un formulaire de saisie
With UserForm1
.NumConvention.Text = ""
.Nature.Text = ""
.Nom.Text = ""
.Charg�Op�rations.Text = ""
.NumAttributaire.Text = ""
.Dept.Text = ""
.DateD�cision.Text = ""
.Travaux.Text = ""
.MontantTrav.Text = ""
.MontantAide.Text = ""
.TauxAide.Text = ""
.MontantAvance.Text = ""
.TauxAvance.Text = ""
.Commentaires.Text = ""
End With
UserForm1.Show
End Sub
Private Sub Valider_Click()
DerLig = Range("A65536").End(xlUp).Offset(1, 0).Row
Range("A" & DerLig).Value = NumConvention
Range("B" & DerLig).Value = Nature
Range("C" & DerLig).Value = Nom
Range("Q" & DerLig).Value = ChargéOpérations
Range("D" & DerLig).Value = NumAttributaire
Range("R" & DerLig).Value = Dept
Range("B" & DerLig).Value = DateDécision
Range("E" & DerLig).Value = Travaux
Range("F" & DerLig).Value = MontantTrav
Range("H" & DerLig).Value = MontantAide
Range("I" & DerLig).Value = TauxAide
Range("J" & DerLig).Value = MontantAvance
Range("K" & DerLig).Value = TauxAvance
Range("P" & DerLig).Value = Commentaires
UserForm1.Hide
Range("BDConv").Sort Key1:="NumConvention", Header:=xlYes 'Tri par ordre alphabétique par rapport au numéro de convention
End Sub
|
Didier FOURGEOT