XL 2010 Bouton select

[yahya belbachir]

Bonjour
je me demande si possible résoudre comment avec deux boutons.
j'ai une colonne (A1:A20) et 2 boutons
si je clique sur moins le bouton selectionne le numéro et l'affiche dans la cellule(F8)
pour bien comprendre bouton moins selection la cellule (A) vers le haut et bouton plus vers le bas
merci

 

[fanfan38]

Bonjour
J'espère avoir répondu à ton problème..
A+ François

 

[Staple1600]

Bonjour le fil, yahya, fanfan38

Pas sur d'avoir tout compris
Je tente quand même ma chance
Affecter cette macro aux deux boutons

Sub Bouton()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(Application.Caller)
Select Case shp.TextFrame.Characters.Text
Case Is = "-"
If ActiveCell.Row = [F8] Then Exit Sub
Cells(ActiveCell.Row - [F8], 1).Select
Case Is = "+"
Cells(ActiveCell.Row + [F8], 1).Select
End Select
End Sub

 

[yahya belbachir]

Bonjour
J'espère avoir répondu à ton problème..
A+ François

merci beaucoup Monsieur
iil ya trois exemple très intéressant mieux que celle que je veux

 

[Staple1600]

Re,

=>yahya belbachir
Et le message#3 ?
Je peux savoir si il est intéressant ou pas ?

 

[yahya belbachir]

Bonjour
J'espère avoir répondu à ton problème..
A+ François

Bonjour
J'espère avoir répondu à ton problème..
A+ François

Bonjour Mr François c'est super bien,merci beaucoup,cela a bien fonctionné comme je le veux

 

[Staple1600]

Bonsoir le fil

=>yahya belbachir
Moi je ne suis pas Monsieur François

C'est Staple1600
Et je suis content de savoir que sa solution fonctionne
Mais je me questionne sur la mienne de solution.
Donc je repète
Est-ce que la macro du message N°3 fonctionne ?
Le message trois étant celui-ci

https://www.excel-downloads.com/threads/bouton-select.20038633/#post-20276190

 

[yahya belbachir]

Bonjour le fil, yahya, fanfan38

Pas sur d'avoir tout compris
Je tente quand même ma chance
Affecter cette macro aux deux boutons

Sub Bouton()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(Application.Caller)
Select Case shp.TextFrame.Characters.Text
Case Is = "-"
If ActiveCell.Row = [F8] Then Exit Sub
Cells(ActiveCell.Row - [F8], 1).Select
Case Is = "+"
Cells(ActiveCell.Row + [F8], 1).Select
End Select
End Sub

Bonjour
je m'excuse staple
votre code a bien fonctionné également,car c'est très simple et rapide,merci beaucoup