Spinbutton déplace cellule active

[Guigui]

Bonjour,

Voici le projet,

j'ai des cellules avec A, B, C, AA, BB, CC marqués dedans.
En double cliquant sur une, un USF s'ouvre.

Je souhaiterai à l'aide d'un spinbutton, faire deplacer ma cellule active sur les autres cellules contenant, A, B, C ...

Si l'ouverture du USF est sur B (par exemple), un clic sur le Spinbutton me ferais déplacer la cellule active sur la cellule contenant C et ainsi de suite ...

je pensais à un code du genre, on recherche la valeur de la cellule active dans une liste, pour caler le "point de départ", et programmer les évènements SpinUp, SpinDown pour déplacer dans la liste ET bien sur en même temps dans la feuille (2) du projet

(en feuille 1, la liste du contenu des cellules.) utile ? pas utile ?

Bien sur je ne vois pas du tout comment programmer ceci.
(ou plutôt ... mes programmations ne mènent pas loin .. 😉

merci d'avance

Guillaume

 

[JNP]

Re : Spinbutton déplace cellule active

Bonjour Guigui 🙂,
Comme ceci peut-être 🙄

[COLOR=blue]Private Sub[/COLOR] SpinButton1_SpinDown()
[COLOR=blue]With[/COLOR] Selection
[COLOR=blue]If[/COLOR] .Column > 2 [COLOR=blue]Then[/COLOR]
.Offset(0, -1).Select
[COLOR=blue]ElseIf[/COLOR] .Row = 3 [COLOR=blue]Then[/COLOR]
.Offset(4, 3).Select
[COLOR=blue]Else[/COLOR]
.Offset(-4, 3).Select
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
Label1.Caption = ActiveCell
[COLOR=blue]End Sub[/COLOR]
[COLOR=#0000ff][/COLOR] 
[COLOR=blue]Private Sub[/COLOR] SpinButton1_SpinUp()
[COLOR=blue]With[/COLOR] Selection
[COLOR=blue]If[/COLOR] .Column < 5 [COLOR=blue]Then[/COLOR]
.Offset(0, 1).Select
[COLOR=blue]ElseIf[/COLOR] .Row = 3 [COLOR=blue]Then[/COLOR]
.Offset(4, -3).Select
[COLOR=blue]Else[/COLOR]
.Offset(-4, -3).Select
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
Label1.Caption = ActiveCell
[COLOR=blue]End Sub[/COLOR]

Bonne journée 😎

 

[Robert]

Re : Spinbutton déplace cellule active

Bonjour Guigui, JNP, bonjour le forum,

Une autre approche en pièce jointe (je pensais que ça allais être plus simple !) :

 

[Fo_rum]

Re : Spinbutton déplace cellule active

Salut

Un autre exemple, indépendant des colonnes mais pas des contenus.

Private Sub SpinButton1_SpinDown()
  Select Case Selection
    Case "A": d = 4: g = 3
    Case "AA": d = -4: g = 3
    Case Else: d = 0: g = -1
  End Select
  Selection.Offset(d, g).Select
  Label1.Caption = Selection
End Sub

Private Sub SpinButton1_SpinUp()
  Select Case Selection
    Case "DD": d = -4: g = -3
    Case "D": d = 4: g = -3
    Case Else: d = 0: g = 1
  End Select
  Selection.Offset(d, g).Select
  Label1.Caption = Selection
End Sub

@JNP : la couleur c'est bien ! mais je préfère l'indentation.
@Robert : DD bégaie.

 

[Robert]

Re : Spinbutton déplace cellule active

Bonjour Guigui, JNP, bonjour le forum,

Une version 2 plus épurée avec un tableau dynamique :


Édition :
Bonjour Fo rum on s'est croisé

 

[JNP]

Re : Spinbutton déplace cellule active

Re 🙂,

@JNP : la couleur c'est bien ! mais je préfère l'indentation.

C'est vrai... Mais je ne le fais généralement que sur des codes complexes... C'est un tort, mais... J'essayerai de faire mieux la prochaine fois 😛
Bonne journée 😎

 

[Guigui]

Re : Spinbutton déplace cellule active

re tous le monde,

Ah oui ! bien complexe tout ca !
moi qui pensais qu'avec le spinbutton ca allais etre facil !

Un peu de mal à l'adapter !!
et j'avais oublié de préciser que dans mon projet initial, les céllules avec les lettres sont fusionné ... du coup ca beug ...

Bref je vous joint la feuille complete.
si trop galere je laisse tombé et chercherais une autre alternative 🙂

merci à vous tous encore une fois
Guillaume

 

[JNP]

Re : Spinbutton déplace cellule active

Re 🙂,
C'est marrant, il ya 2 jours, j'écrivais

C’est vrai que ça serait bien d’obtenir des questions claires, bien écrites, avec un bon petit fichier d’exemple (bien que souvent, le petit fichier d’exemple est tellement un exemple, qu’il est totalement à côté de la plaque…),...

Là, je ne sais que dire, je reste... aphone 😀...😡...
Bon courage 😎