Cliquer et afficher le resultat excel
Fermé
tofing
Messages postés
20
Date d'inscription
mardi 9 février 2010
Statut
Membre
Dernière intervention
22 juin 2011
-
9 févr. 2010 à 10:59
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 9 févr. 2010 à 17:51
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 9 févr. 2010 à 17:51
A voir également:
- Cliquer et afficher le resultat excel
- Liste déroulante excel - Guide
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Formule excel - Guide
- Si et excel - Guide
- Déplacer une colonne excel - Guide
6 réponses
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
9 févr. 2010 à 11:40
9 févr. 2010 à 11:40
Salut,
Clic droit sur de ta feuille, ce qui va t'ouvrir les propriétés de la feuille, colles y ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target.FormulaR1C1 = "=R[-1]C*RC[-1]"
End If
End Sub
en B1 tu as une valeur en A2 l'autre et lorsque tu clic droit sur B2 tu obtiens le résultat
ou ce code si tu ne souhaites pas avoir la formule en B2
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target = [B1] * [A2]
End If
End Sub
Clic droit sur de ta feuille, ce qui va t'ouvrir les propriétés de la feuille, colles y ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target.FormulaR1C1 = "=R[-1]C*RC[-1]"
End If
End Sub
en B1 tu as une valeur en A2 l'autre et lorsque tu clic droit sur B2 tu obtiens le résultat
ou ce code si tu ne souhaites pas avoir la formule en B2
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target = [B1] * [A2]
End If
End Sub
tofing
Messages postés
20
Date d'inscription
mardi 9 février 2010
Statut
Membre
Dernière intervention
22 juin 2011
9 févr. 2010 à 13:33
9 févr. 2010 à 13:33
Merci de ta réponse Mike mais pourrais-tu expliciter davantage s'il te plait
Pour coller le code je dois aller dans "enregistrer une macro" c'est ça ?
Et pour l'application ?
Et j'ai plusieurs calcul du même type à faire, je dois juste changer la cellule de destination ou existe-t-il un moyen plus rapide ?
Merci
Pour coller le code je dois aller dans "enregistrer une macro" c'est ça ?
Et pour l'application ?
Et j'ai plusieurs calcul du même type à faire, je dois juste changer la cellule de destination ou existe-t-il un moyen plus rapide ?
Merci
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
9 févr. 2010 à 13:45
9 févr. 2010 à 13:45
Re,
Non clic droit sur l'onglet de la feuille concernée et VISUALISER LE CODE et colles mon code VBA dans la feuille blanche qui s'est ouverte
Non clic droit sur l'onglet de la feuille concernée et VISUALISER LE CODE et colles mon code VBA dans la feuille blanche qui s'est ouverte
tofing
Messages postés
20
Date d'inscription
mardi 9 février 2010
Statut
Membre
Dernière intervention
22 juin 2011
9 févr. 2010 à 13:53
9 févr. 2010 à 13:53
Super ça marche ! un grand merci mike 2 jours que je cherche la prochaine jviendrais ici directement
Dernière question après j'arrête de t'embeter :) est ce que c'est possible pour l'effacer de faire de même juste en un clic ?
Dernière question après j'arrête de t'embeter :) est ce que c'est possible pour l'effacer de faire de même juste en un clic ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tofing
Messages postés
20
Date d'inscription
mardi 9 février 2010
Statut
Membre
Dernière intervention
22 juin 2011
9 févr. 2010 à 14:43
9 févr. 2010 à 14:43
Mike j'ai encore besoin de ton aide
Le code que tu ma donné marche que pour une seule cellule, si je le remet pour une autre, il m'indique "nom ambigüe détecté : Worksheet_BeforeRightClick"
As tu une solution ?
Le code que tu ma donné marche que pour une seule cellule, si je le remet pour une autre, il m'indique "nom ambigüe détecté : Worksheet_BeforeRightClick"
As tu une solution ?
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
9 févr. 2010 à 17:51
9 févr. 2010 à 17:51
Re,
Si tu veux appliquer cette macro aux lignes suivantes, il serait judicieux de mettre les valeurs en colonneA à partir de la première ligne et idem en colonne B, un clic sur C de la ligne et la multiplication s'opère avec ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target = Target Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub
Mais je pense qu'il serait souhaitable de limiter le déclenchement à une colonne exemple la C
avec ce code pour la plage C1 à C25
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C1:C25]) Is Nothing Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub
Si tu veux appliquer cette macro aux lignes suivantes, il serait judicieux de mettre les valeurs en colonneA à partir de la première ligne et idem en colonne B, un clic sur C de la ligne et la multiplication s'opère avec ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target = Target Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub
Mais je pense qu'il serait souhaitable de limiter le déclenchement à une colonne exemple la C
avec ce code pour la plage C1 à C25
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C1:C25]) Is Nothing Then
Target = Target.Offset(0, -2) * Target.Offset(0, -1)
End If
End Sub