[le Fnake]

re le fil

bon déja, c'est bien le Fnake, même si la ressemblance avec Snake n'est peut-être pas fortuite :lol:

Sinon, je viens de modifier le code pour l'ajout et la modification de données (au passage, le report de données n'est pas bon quand on choisit un élément dans la liste, il y a un décalage : mettre NomLBindex = ListBox1.ListIndex + 2 au lieu de +3)

Private Sub CommandButton1_Click()
Dim mySheet As Worksheet

myPage = MultiPage1.Value
Set mySheet = IIf(myPage = 0, Worksheets('Private'), Worksheets('Public'))
With mySheet
    myLine = .Range('A65000').End(xlUp).Row + 1
    myEntity = IIf(myPage = 0, ComboBox11.Value, ComboBox21.Value)
    myRabais = IIf(myPage = 0, TextBox12.Value, TextBox22.Value)
    .Cells(myLine, 3) = myEntity
    .Cells(myLine, 5) = myRabais
    'etc.'
End With
Unload Me
End Sub
Private Sub CommandButton10_Click()
Dim mySheet As Worksheet

Msg = MsgBox('Attention, vous êtes sur le point de changer des données !', vbOKCancel + vbExclamation)
If Msg = vbCancel Then Exit Sub

myPage = MultiPage1.Value
Set mySheet = IIf(myPage = 0, Worksheets('Private'), Worksheets('Public'))
myLine = 2 + IIf(myPage = 0, ListBox1.ListIndex, ListBox2.ListIndex)
With mySheet
    myEntity = IIf(myPage = 0, ComboBox11.Value, ComboBox21.Value)
    myRabais = IIf(myPage = 0, TextBox12.Value, TextBox22.Value)
    .Cells(myLine, 3) = myEntity
    .Cells(myLine, 5) = myRabais
    'etc.'
End With
Unload Me
End Sub

Alors il faut ensuite adapter ce bout de code pour rapporter toutes les données et pour vérifier leurs validités, mais la base est là !

Bon courage !

le Fnake [file name=Correctdata5bis.zip size=33371]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Correctdata5bis.zip[/file]

Message édité par: le Fnake, à: 15/12/2005 16:20