exécution macro

[jlppap]

Bonjour,
Quand je saisie une valeur dans une cellule, je fait 'entrée' pour valider, normal !
comment faire pour lancer une macro en plus, aussitôt la saisie faite 😕

MERCI de votre aide.

 

[gilbert_RGI]

Re : exécution macro

Bonjour,

voir ceci dans le code de page

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

 

[DL_13]

Re : exécution macro

Bonjour,

Pas sur mais peut-être comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("TaCellule")) Then
'TonCode
End If
End Sub

Remplace TaCellule par A1 par exemple si c'est ta cellule concernée

Bonjour Gilbert_RGI

Bonne Journée

 

[jlppap]

Re : exécution macro

Bonjour,
j'ai encore un souci, j'ai entré le code ci dessous:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
' Call ma_macro
End If
End Sub

Je renseigne la cellule A5, je fais 'envoi' ... OK
Mais il faut que je 'clic' de nouveau sur la cellule A5 pour que la macro s'exécute.

et encore MERCI.

 

[job75]

Re : exécution macro

Bonjour le fil,

Il a bien été dit :

comment faire pour lancer une macro en plus, aussitôt la saisie faite 😕

Alors utiliser une Worksheet_Change et non pas une Worksheet_SelectionChange :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
' Call ma_macro
End If
End Sub

A+

 

[jlppap]

Re : exécution macro

MERCI à vous tous, mon pb est résolu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call ma_macro

End Sub

J'ai réduit le code au plus simple et ça fonctionne très bien

Bonne fin de semaine à vous.