XL 2016 VBA, sélectionner ligne suivant cellule sélectionnée

fanfan38

XLDnaute Barbatruc

• 31 Juillet 2019

• #2

Bonjour
Clic droit sur le nom de ta feuille
choisir "Visualiser le code"
Copier cette macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("X" & Target.Row).Value = Range("X" & Target.Row).Value - 1
End Sub

Par contre ta boucle for i=1 to 1 ça sert à rien...

A+ François

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 31 Juillet 2019

• #3

Bonjour

VB:

Sub moins()
On Error Resume Next
Selection.Offset(0, 23).Value = Selection.Offset(0, 23).Value - 1
End Sub

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 31 Juillet 2019

• #4

fanfan38 à dit:

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cliquez pour agrandir...

Mmmmhhh,
c'est vrai que je n'avais pas pris en compte la demande avec "si je SELECTIONNE"...

 

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 31 Juillet 2019

• #5

Merci mais j'ai du mal m'exprimer, je ne veux pas faire "-1" directement quand je vais dans une cellule de la colonne A.

Si je vais dans une cellule de la colonne A et que je lance la macro avec un bouton, là cela retire 1.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 31 Juillet 2019

• #6

dans un module, en haut du module, juste après option explicit tu mets
dim lig as long
ensuite dans la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lig= Target.Row).Value
End Sub
et ta macro
Sub moins_un()
Cells(lig, 24) = Cells(lig, 24) -1
end sub

 

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 31 Juillet 2019

• #7

Parfait, merci !

 

Vote positif 0 Vote négatif