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

cardi

XLDnaute Junior
Bonjour,

Etant débutant, je vous demande votre aide.

J'ai une macro pour retirer 1 à chaque fois que je lance la macro.

VB:
Sub moins_un()

Dim moins_un As Integer

        For i = 1 To 1
          
            moins_un = Cells(3, 24) - i
  
            Cells(3, 24) = moins_un
        Next i

End Sub

Cela retire 1 toujours dans la cellule X3.

J'aimerai que si je sélectionne la cellule A4, cela retire 1 dans la cellule X4.
Si je sélectionne la cellule A5, cela retire 1 dans la cellule X5....

Merci d'avance,

Cardi
 
Dernière édition:

fanfan38

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

fanfan38

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

Discussions similaires

Réponses
17
Affichages
760
Réponses
12
Affichages
537

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou