Macro qui s'execute sur un clic
Résolu
shad
-
shad -
shad -
Bonsoir,
j'aimerai créer une macro qui s'execute en cliquant sur une cellule mais je n'y arrive pas ..
j'ai deux listes déroulantes dans deux cellules différentes. je veux en cliquant sur une cellule, la macro efface l'affichage de la deuxième cellule sans changer le contenu de la liste
merci d'avance.
j'aimerai créer une macro qui s'execute en cliquant sur une cellule mais je n'y arrive pas ..
j'ai deux listes déroulantes dans deux cellules différentes. je veux en cliquant sur une cellule, la macro efface l'affichage de la deuxième cellule sans changer le contenu de la liste
merci d'avance.
A voir également:
- Macro qui s'execute sur un clic
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Atout clic - Télécharger - Éducatifs
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
4 réponses
bonjour
en cliquant sur une cellule
Il faut utiliser la macro événementielle "selectionchange" en gérant les cellules concernées.
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.
en cliquant sur une cellule
Il faut utiliser la macro événementielle "selectionchange" en gérant les cellules concernées.
Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.
Salut le fil,
deux codes à tester et à coller dans les propriétés de la feuille, clic droit sur l'onglet de feuille/Visualiser le code
le premier se déclenche sur un double clic et le second sur un clic droit au choix
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub
deux codes à tester et à coller dans les propriétés de la feuille, clic droit sur l'onglet de feuille/Visualiser le code
le premier se déclenche sur un double clic et le second sur un clic droit au choix
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub
bonjour Mike, shad,
Ou bien si j'ai compris correctement la question, comme ceci :
Ou bien si j'ai compris correctement la question, comme ceci :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [F4]) Is Nothing Then [F6].ClearContents
End Sub
http://cjoint.com/?BBiwOfbQsWr