Activer une macro par une valeur cellule
Résolu
JP
-
JP -
JP -
Bonjour,
Voila j'ai une petite programmation à faire sur un fichier Excel pour mon entreprise (je suis en alternance)
j'ai créée une marcro que j'ai appelé
Sub classement()
.......................
End sub
j'aimerai que lorsque ma cellule A4 de la ma feuille "POIDS" contient qqch que ça me déclanche ma macro. je ne sais pas si c'est possible
j'ai écris un bout de code mais la j'ai du mal:
Function RangeColonneA(DALLE As Variant)
If Sheets("POIDS").Range("A4") <> "" Then
Call classement
End Function
Si quelqu'un pourrai m'aider Merci
JP
Voila j'ai une petite programmation à faire sur un fichier Excel pour mon entreprise (je suis en alternance)
j'ai créée une marcro que j'ai appelé
Sub classement()
.......................
End sub
j'aimerai que lorsque ma cellule A4 de la ma feuille "POIDS" contient qqch que ça me déclanche ma macro. je ne sais pas si c'est possible
j'ai écris un bout de code mais la j'ai du mal:
Function RangeColonneA(DALLE As Variant)
If Sheets("POIDS").Range("A4") <> "" Then
Call classement
End Function
Si quelqu'un pourrai m'aider Merci
JP
A voir également:
- Activer une macro par une valeur cellule
- Activer chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Activer office gratuitement - Accueil - Bureautique
- Comment activer windows 10 - Guide
- Cle pour activer windows 10 gratuitement - Guide
1 réponse
Bonjour,
Ouvrir votre classeur
Ouvrir le VBA par Alt+F11
Doubleclick gauche sur la feuille POIDS (en haut a gauche)
Clickgauche sur fenetre a droite
Code a copier
Dim Val_A4_Previous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A4") <> "" And Val_A4_Previous <> Range("A4") Then
Val_A4_Previous = Range("A4")
Call classement
End If
End Sub
Bonne suite
Ouvrir votre classeur
Ouvrir le VBA par Alt+F11
Doubleclick gauche sur la feuille POIDS (en haut a gauche)
Clickgauche sur fenetre a droite
Code a copier
Dim Val_A4_Previous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A4") <> "" And Val_A4_Previous <> Range("A4") Then
Val_A4_Previous = Range("A4")
Call classement
End If
End Sub
Bonne suite
Ca marche impécable
JP