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
Pas sur d'avoir tout compris
Je tente quand même ma chance
Affecter cette macro aux deux boutons
VB:
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
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
Pas sur d'avoir tout compris
Je tente quand même ma chance
Affecter cette macro aux deux boutons
VB:
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