OVH Cloud OVH Cloud

dernière valeur de la colonne

2 réponses
Avatar
Philippe BRONCHART
bonjour à tous

pour calculer un régime je reporte dans La colonne B des poids quotidien

puis je lance cette macro :


Sub maval()

Range("B2").Select
DernierPoids = Selection.End(xlDown).Value
Range("f56").Value = DernierPoids - 57
Range("f56").Activate
End Sub

cela fonctionne, mais ce que je voudrais c'est qu'a chaque fois qu'une
valeur est rentrée dans La colonne B la macro se déclenche.

Une idée ?
--
Amicalement

Philippe BRONCHART dit la bronche

2 réponses

Avatar
Joël
Bonjour,

A partir de VBA, double-clic sur l'objet feuille concerné.

Dans la liste déroulante degauche de l'éditeur, choisir "Worksheet" puis
dans celle de droite, choisir "Change", inscrire le code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 2 Then
maval
End If
End Sub

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"Philippe BRONCHART" <no a écrit dans
le message de news: #
bonjour à tous

pour calculer un régime je reporte dans La colonne B des poids quotidien

puis je lance cette macro :


Sub maval()

Range("B2").Select
DernierPoids = Selection.End(xlDown).Value
Range("f56").Value = DernierPoids - 57
Range("f56").Activate
End Sub

cela fonctionne, mais ce que je voudrais c'est qu'a chaque fois qu'une
valeur est rentrée dans La colonne B la macro se déclenche.

Une idée ?
--
Amicalement

Philippe BRONCHART dit la bronche






Avatar
Philippe BRONCHART
ben oui tout simplement

merci joel
"Joël" a écrit dans le message de news:
bnb2tp$ab5$
Bonjour,

A partir de VBA, double-clic sur l'objet feuille concerné.

Dans la liste déroulante degauche de l'éditeur, choisir "Worksheet" puis
dans celle de droite, choisir "Change", inscrire le code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 2 Then
maval
End If
End Sub

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"Philippe BRONCHART" <no a écrit dans
le message de news: #
bonjour à tous

pour calculer un régime je reporte dans La colonne B des poids quotidien

puis je lance cette macro :


Sub maval()

Range("B2").Select
DernierPoids = Selection.End(xlDown).Value
Range("f56").Value = DernierPoids - 57
Range("f56").Activate
End Sub

cela fonctionne, mais ce que je voudrais c'est qu'a chaque fois qu'une
valeur est rentrée dans La colonne B la macro se déclenche.

Une idée ?
--
Amicalement

Philippe BRONCHART dit la bronche