Merci Galopin01 mais ça ne fonctionne pas correctement.
Tout d'abord je n'ai pas compris ta formule : 1+x*a, avec un clic je ne voyais plus rien donc j'ai laissé simplement la valeur de mon spinbutton et ça marche : x
Ca me donne bien : BCDE au lieu de ABCD
Ensuite j'ai tenté autre chose, j'ai essayé de faire afficher dans plusieurs labels des valeurs dans ma feuille excel.
voici le code quand je clique sur le spinbutton:
Citation :
Private Sub SpinButton1_Change()
SpinButton1.Min = 0
SpinButton1.Max = Module1.spinValueMax
Module1.spinValue = SpinButton1.Value
UserForm2.Label1.Caption = Module1.columnTitle(spinValue)
UserForm2.Label4.Caption = Module1.columnValue(spinValue)
Module1.spinValue = SpinButton1.Value + 1
UserForm2.Label2.Caption = Module1.columnTitle(spinValue)
UserForm2.Label5.Caption = Module1.columnValue(spinValue)
Module1.spinValue = SpinButton1.Value + 2
UserForm2.Label3.Caption = Module1.columnTitle(spinValue)
UserForm2.Label6.Caption = Module1.columnValue(spinValue)
Module1.spinValue = SpinButton1.Value
End Sub
|
Pour mes labels, j'utilise deux fonctions à qui j'envois la valeur du spinbutton : columnTitle et columnValue. Voici une des fonctions (l'autre est la même sauf qu'elle me donne la ligne en cours au lieu de me donner le titre de la colonne :
Citation :
Function columnTitle(spinValue As Integer) As String
columnTitle = CStr(Workbooks(fileName2).Sheets(sheetName).Cells(1, spinValue).Value)
End Function
|
filename2 et sheetName sont en privé
Arrivé à la ligne en rouge, paf une application-defined/object-defined erreur. D'où ça peut bien venir?