PB Userform recherche

[gabriel]

Bonsoir à toutes et à tous,
J'ai tellement de problèmes sur le programme que je suis en train de faire ... je me lance :
Mon application est faite de plusieurs base de données dont une principale (saisie) et 3 USF (saisie, recherche, facturation)
à la suite de recherche on à la possibilité d'apporter des modifications sur la ou les fiches trouvées. a la suite des modifs :
1°)comment valider mes modifications, je n'y arrive pas (18 txtbox, 1 combo, 1 spinbutton)
2°)je souhaiterais savoir s'il est possible de transferer une ligne complète (sans laisser de blanc) d'un base à une autre (de la feuil1 à feuil2)après validation d'une checkbox.
3°) Pouvez vous m'aider ? j'espère que c'est assez clair.
Merci pour l'aide que vous voudrez bien m'apporter.

 

[CBernardT]

Bonsoir Gabriel,

Pour pouvoir t'aider au mieux de tes intérêts, il serait bon que tu nous places un extrait de ton travail.

Cordialement

Bernard

 

[Gabriel]

Je pensais l'avoir fait... j'ai joint un fichier txt avec les différrents codes.
Je reessaye...
Apparamment ca marche pas, voila le code qui ne fonctionne pas (il me rajoute des lignes au lieu de les remplacer)
Private Sub ValidModifs_Click() 'Validation Modification
Sheets('Base').Select
BDindex = Sheets('Base').Range('A65536').End(xlUp).Row + 1
With Sheets('Base')
.Range('A' & BDindex).Value = LabelTypeDossier
.Range('B' & BDindex).Value = LabelAnnee.Value
.Range('C' & BDindex).Value = LabelAffectation.Value
.Range('D' & BDindex).Value = LabelEnseigne.Value
.Range('E' & BDindex).Value = LabelNomSociete.Value
.Range('F' & BDindex).Value = LabelAdresse.Value
.Range('G' & BDindex).Value = LabelCodePostal.Value
.Range('H' & BDindex).Value = LabelVille.Value
.Range('I' & BDindex).Value = LabelTel.Value
.Range('J' & BDindex).Value = LabelFax.Value
.Range('L' & BDindex).Value = LabelObs.Value
.Range('M' & BDindex).Value = LabelContact.Value
.Range('N' & BDindex).Value = LabelFonction.Value
.Range('O' & BDindex).Value = LabelTelResp.Value
.Range('P' & BDindex).Value = LabelFaxResp.Value
.Range('Q' & BDindex).Value = LabelObsResp.Value
.Range('R' & BDindex).Value = LabelCommercial.Value
.Range('S' & BDindex).Value = LabelDate.Value
.Range('T' & BDindex).Value = CheckBox1.Value
.Range('U' & BDindex).Value = CheckBox2.Value
End With
End Sub

Message édité par: gabriel, à: 01/03/2006 07:55

 

[gabriel]

 

[gabriel]