Bonjour à tous,
comme je suis débutant, J'ai un problème .
J'ai créé une scroll bar dans une feuille avec une macro pour me déplacer plus vite dans ma feuille.
J'ai procédé comme suit:
Sub Barrededéfilement4_QuandChangement()
If ActiveSheet.Range("a4").Value = 1 Then
ActiveWindow.ScrollColumn = 3
ElseIf ActiveSheet.Range("a4").Value = 2 Then
ActiveWindow.ScrollColumn = 18
ElseIf ActiveSheet.Range("a4").Value = 3 Then
ActiveWindow.ScrollColumn = 32
ElseIf ActiveSheet.Range("a4").Value = 4 Then
ActiveWindow.ScrollColumn = 46
ElseIf ActiveSheet.Range("a4").Value = 5 Then
ActiveWindow.ScrollColumn = 60
Else
ActiveWindow.ScrollColumn = 3
End If
End Sub
J'ai attribué A4 comme cellule liée
Ça fonctionne très bien.
Je voudrais améliorer le tout et faire une userform dans laquelle il y aurait la même scrollbar. Mais je n'arrive pas à trouver le bon code à inscrire.
Quelqu'un peut-il m'aider??
Merci !!
comme je suis débutant, J'ai un problème .
J'ai créé une scroll bar dans une feuille avec une macro pour me déplacer plus vite dans ma feuille.
J'ai procédé comme suit:
Sub Barrededéfilement4_QuandChangement()
If ActiveSheet.Range("a4").Value = 1 Then
ActiveWindow.ScrollColumn = 3
ElseIf ActiveSheet.Range("a4").Value = 2 Then
ActiveWindow.ScrollColumn = 18
ElseIf ActiveSheet.Range("a4").Value = 3 Then
ActiveWindow.ScrollColumn = 32
ElseIf ActiveSheet.Range("a4").Value = 4 Then
ActiveWindow.ScrollColumn = 46
ElseIf ActiveSheet.Range("a4").Value = 5 Then
ActiveWindow.ScrollColumn = 60
Else
ActiveWindow.ScrollColumn = 3
End If
End Sub
J'ai attribué A4 comme cellule liée
Ça fonctionne très bien.
Je voudrais améliorer le tout et faire une userform dans laquelle il y aurait la même scrollbar. Mais je n'arrive pas à trouver le bon code à inscrire.
Quelqu'un peut-il m'aider??
Merci !!