Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé "ScrollBar21". Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la valeur maximale en tenant pour acquis que la valeur maximale que ce contrôle peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule. Au fur et à mesure que tu va bouger le curseur, la cellule active va se déplacer vers la droite ou vers la gauche. '------------------------------------------------------- Private Sub ScrollBar21_Change() Dim X As Long X = ScrollBar21.Value Cells(ActiveCell.Row, X).Select
End Sub '------------------------------------------------------- Private Sub ScrollBar21_Scroll() ScrollBar21_Change End Sub '-------------------------------------------------------
Bonjour,
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé
"ScrollBar21".
Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la
valeur maximale en tenant pour acquis que la valeur maximale que ce contrôle
peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux
déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule.
Au fur et à mesure que tu va bouger le curseur, la cellule active va se
déplacer vers la droite ou vers la gauche.
'-------------------------------------------------------
Private Sub ScrollBar21_Change()
Dim X As Long
X = ScrollBar21.Value
Cells(ActiveCell.Row, X).Select
End Sub
'-------------------------------------------------------
Private Sub ScrollBar21_Scroll()
ScrollBar21_Change
End Sub
'-------------------------------------------------------
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé "ScrollBar21". Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la valeur maximale en tenant pour acquis que la valeur maximale que ce contrôle peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule. Au fur et à mesure que tu va bouger le curseur, la cellule active va se déplacer vers la droite ou vers la gauche. '------------------------------------------------------- Private Sub ScrollBar21_Change() Dim X As Long X = ScrollBar21.Value Cells(ActiveCell.Row, X).Select
End Sub '------------------------------------------------------- Private Sub ScrollBar21_Scroll() ScrollBar21_Change End Sub '-------------------------------------------------------
loic.andre73
Bonsoir MichD
merci pour ce tuyau de noel
je vais m'amuser maintenant
As tu regardé mon precedent message concernant le remplissage de tableau.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit :
Bonjour,
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé "ScrollBar21". Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la valeur maximale en tenant pour acquis que la valeur maximale que ce contr ôle peut accepter est déjà inscrite dans les propriétés. Cependant, t u peux déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule . Au fur et à mesure que tu va bouger le curseur, la cellule active va se déplacer vers la droite ou vers la gauche. '------------------------------------------------------- Private Sub ScrollBar21_Change() Dim X As Long X = ScrollBar21.Value Cells(ActiveCell.Row, X).Select
End Sub '------------------------------------------------------- Private Sub ScrollBar21_Scroll() ScrollBar21_Change End Sub '-------------------------------------------------------
Bonsoir MichD
merci pour ce tuyau de noel
je vais m'amuser maintenant
As tu regardé mon precedent message concernant le remplissage de tableau.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit :
Bonjour,
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé
"ScrollBar21".
Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la
valeur maximale en tenant pour acquis que la valeur maximale que ce contr ôle
peut accepter est déjà inscrite dans les propriétés. Cependant, t u peux
déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule .
Au fur et à mesure que tu va bouger le curseur, la cellule active va se
déplacer vers la droite ou vers la gauche.
'-------------------------------------------------------
Private Sub ScrollBar21_Change()
Dim X As Long
X = ScrollBar21.Value
Cells(ActiveCell.Row, X).Select
End Sub
'-------------------------------------------------------
Private Sub ScrollBar21_Scroll()
ScrollBar21_Change
End Sub
'-------------------------------------------------------
As tu regardé mon precedent message concernant le remplissage de tableau.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit :
Bonjour,
Suppose un contrôle "scrollbar" de la barre d'outils contrôle nommé "ScrollBar21". Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la valeur maximale en tenant pour acquis que la valeur maximale que ce contr ôle peut accepter est déjà inscrite dans les propriétés. Cependant, t u peux déterminer une valeur maximale autre...
Tu copies ce code dans le module de la feuille où l'action se déroule . Au fur et à mesure que tu va bouger le curseur, la cellule active va se déplacer vers la droite ou vers la gauche. '------------------------------------------------------- Private Sub ScrollBar21_Change() Dim X As Long X = ScrollBar21.Value Cells(ActiveCell.Row, X).Select
End Sub '------------------------------------------------------- Private Sub ScrollBar21_Scroll() ScrollBar21_Change End Sub '-------------------------------------------------------
Le jeudi 11 décembre 2014 22:55:44 UTC+1, a écrit :
Bonsoir MichD
merci pour ce tuyau de noel
je vais m'amuser maintenant
As tu regardé mon precedent message concernant le remplissage de tablea u.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit : > Bonjour, > > Suppose un contrôle "scrollbar" de la barre d'outils contrôle nomm é > "ScrollBar21". > Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la > valeur maximale en tenant pour acquis que la valeur maximale que ce con trôle > peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux > déterminer une valeur maximale autre... > > Tu copies ce code dans le module de la feuille où l'action se dérou le. > Au fur et à mesure que tu va bouger le curseur, la cellule active va se > déplacer vers la droite ou vers la gauche. > '------------------------------------------------------- > Private Sub ScrollBar21_Change() > Dim X As Long > X = ScrollBar21.Value > Cells(ActiveCell.Row, X).Select > > End Sub > '------------------------------------------------------- > Private Sub ScrollBar21_Scroll() > ScrollBar21_Change > End Sub > '-------------------------------------------------------
Le jeudi 11 décembre 2014 22:55:44 UTC+1, loic.a...@gmail.com a écrit :
Bonsoir MichD
merci pour ce tuyau de noel
je vais m'amuser maintenant
As tu regardé mon precedent message concernant le remplissage de tablea u.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit :
> Bonjour,
>
> Suppose un contrôle "scrollbar" de la barre d'outils contrôle nomm é
> "ScrollBar21".
> Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la
> valeur maximale en tenant pour acquis que la valeur maximale que ce con trôle
> peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux
> déterminer une valeur maximale autre...
>
> Tu copies ce code dans le module de la feuille où l'action se dérou le.
> Au fur et à mesure que tu va bouger le curseur, la cellule active va se
> déplacer vers la droite ou vers la gauche.
> '-------------------------------------------------------
> Private Sub ScrollBar21_Change()
> Dim X As Long
> X = ScrollBar21.Value
> Cells(ActiveCell.Row, X).Select
>
> End Sub
> '-------------------------------------------------------
> Private Sub ScrollBar21_Scroll()
> ScrollBar21_Change
> End Sub
> '-------------------------------------------------------
Le jeudi 11 décembre 2014 22:55:44 UTC+1, a écrit :
Bonsoir MichD
merci pour ce tuyau de noel
je vais m'amuser maintenant
As tu regardé mon precedent message concernant le remplissage de tablea u.
j'ai passé ma journée dessus sans avancer
Le jeudi 11 décembre 2014 22:39:52 UTC+1, MichD a écrit : > Bonjour, > > Suppose un contrôle "scrollbar" de la barre d'outils contrôle nomm é > "ScrollBar21". > Dans les propriétés du contrôle, tu définis la valeur minimale à 1 et la > valeur maximale en tenant pour acquis que la valeur maximale que ce con trôle > peut accepter est déjà inscrite dans les propriétés. Cependant, tu peux > déterminer une valeur maximale autre... > > Tu copies ce code dans le module de la feuille où l'action se dérou le. > Au fur et à mesure que tu va bouger le curseur, la cellule active va se > déplacer vers la droite ou vers la gauche. > '------------------------------------------------------- > Private Sub ScrollBar21_Change() > Dim X As Long > X = ScrollBar21.Value > Cells(ActiveCell.Row, X).Select > > End Sub > '------------------------------------------------------- > Private Sub ScrollBar21_Scroll() > ScrollBar21_Change > End Sub > '-------------------------------------------------------
MichD
J'ai vu la question, mais je ne la trouve pas claire. Je ne sais pas (ne comprends pas) vraiment ce que tu veux faire. Dans ce cas, il n'est difficile de propose quelque chose! Ceci étant dit, peut être que d'autres sont plus perspicaces!
J'ai vu la question, mais je ne la trouve pas claire. Je ne sais pas (ne
comprends pas) vraiment ce que tu veux faire. Dans ce cas, il n'est
difficile de propose quelque chose! Ceci étant dit, peut être que d'autres
sont plus perspicaces!
J'ai vu la question, mais je ne la trouve pas claire. Je ne sais pas (ne comprends pas) vraiment ce que tu veux faire. Dans ce cas, il n'est difficile de propose quelque chose! Ceci étant dit, peut être que d'autres sont plus perspicaces!