Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Spinbutton déplace cellule active

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Guigui

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
Re : Spinbutton déplace cellule active

Bonjour Guigui 🙂,
Comme ceci peut-être 🙄
Code: 
[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 😎
 
Vote positif 0 Vote négatif
Re : Spinbutton déplace cellule active

Salut

Un autre exemple, indépendant des colonnes mais pas des contenus.
Code: 
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Spinbutton déplace cellule active

Re 🙂,
C'est marrant, il ya 2 jours, j'écrivais
Là, je ne sais que dire, je reste... aphone 😀...😡...
Bon courage 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
846
Lu76Fer
J
  • Résolu(e)
XL 2013 Liste déroulante et sélection de cellule
Réponses
2
Affichages
638
Jean_Valjean
J
O
  • Question Question
XL 2010 Raccourci_Collage Valeur via VBA
Réponses
5
Affichages
897
sylvanu
B
  • Question Question
Microsoft 365 drag'n drop entre cellule et usf
Réponses
2
Affichages
624
patricktoulon
R
  • Question Question
XL 2019 changer les choix d'une cellule juste en double cliquant dessus
Réponses
5
Affichages
620
Deadpool_CC
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
1 K
Robert
D
  • Résolu(e)
XL 2016 Mettre l'année en cours dans la cellule active
2
Réponses
19
Affichages
2 K
Staple1600
C
  • Résolu(e)
Microsoft 365 Avoir l'adresse d'une cellule qui est pointée par une rechercheV
Réponses
13
Affichages
1 K
Casim
C
D
  • Résolu(e)
Microsoft 365 Documenter la cellule sélectionnée à partir d'un useform
Réponses
3
Affichages
1 K
Dravol
D
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
C
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
C
C
  • Question Question
XL 2016 Obtenir dans cellule la valeur de la plus grande série dans tableau filtré
Réponses
2
Affichages
1 K
carl89
C
  • Résolu(e)
XL 2013 Déclenchement d'évènement sur HyperLinks (Via un Module de Classe personnalisé)
Réponses
5
Affichages
1 K
laurent950
B
  • Résolu(e)
XL 2013 Insérer une image dans une cellule, l'ajuster à la taille de la cellule et l'enregistrer avec le classeur
Réponses
1
Affichages
2 K
Lolote83
L
P
  • Question Question
Microsoft 365 Comparaison de tableaux !
Réponses
1
Affichages
3 K
Patrosso
P
  • Question Question
XL 2016 Récupérer le nom de la cellule dans laquelle se trouve une forme
Réponses
2
Affichages
1 K
xUpsilon
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…