Bonjour XC, le forum
le Iif est en fait un test If déguisé en une instruction, c'est ici équivalent à
Code:
If MyPage=0 then
set mySheet=Worksheets('Private')
Else
set mySheet=Worksheets('Public')
End If
et donc ca permet dans remplacer 5 lignes par une seule. Mais donc, ce qui marchait pour 2 pages ne marche plus pour 4 pages, et il y a mieux que d'enchainer les If...then...Elseif...then etc.
C'est la commande select Case : elle répertorie les cas suivant les valeurs de myPage
Code:
myPage = MultiPage1.Value
Select Case myPage
Case 0: Set mySheet = Worksheets('Private')
myLine = mySheet.Range('A65000').End(xlUp).Row + 1
myEntity = ComboBox11.Value
myRabais = TextBox12.Value
'etc'
Case 1: Set mySheet = Worksheets('Public')
myLine = mySheet.Range('A65000').End(xlUp).Row + 1
myEntity = ComboBox21.Value
myRabais = TextBox22.Value
'etc'
Case 2: Set mySheet = Worksheets('Feuil3')
myLine = mySheet.Range('A65000').End(xlUp).Row + 1
myEntity = ComboBox31.Value
myRabais = TextBox32.Value
'etc'
Case 3: Set mySheet = Worksheets('Feuil4')
myLine = mySheet.Range('A65000').End(xlUp).Row + 1
myEntity = ComboBox41.Value
myRabais = TextBox42.Value
'etc'
Case Else: 'si aucune page n est sélectionnée...'
End Select
j'ai également rajouté une petite ligne de code de sorte que lorsqu'on modifie la valeur du rabais ou du prix final, l'autre est automatiquement modifiée également.
Voila, j'espère que ca pourra déjà t'aider à avancer. Si tu as d'autres questions, n'hésites pas. Bon courage !
le Fnake
[file name=Correctdata5ter.zip size=35843]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Correctdata5ter.zip[/file]
Message édité par: le Fnake, à: 17/12/2005 11:25
Message édité par: le Fnake, à: 17/12/2005 11:25
Message édité par: le Fnake, à: 17/12/2005 11:27