Excel : Utilisation de macros avec cellule active Fermé

Question

Bonjour à tous, 
je cherche à développer une macro pour excel, mais je ne suis pas du tout à l'aise avec ces dernières et les tutoriels que j'ai pu voir ne me donnent pas de réponses.

Sur ma fiche excel, il y a une série de calculs, je voudrais qu'en cliquant sur une cellule, le logiciel me face automatiquement un calcul et mette le résultat en B1 (pour l'exemple).

Cependant la formule du calcul nécessite que je connaisse l'adresse (E8 par exemple) de la cellule sélectionnée, et que ce calcul ne se fasse que sur une certaine plage (E8 à Z26 par exemple).

Je vais donner un exemple concret:
En sélectionnant I6, je veux que le logiciel mette dans la cellule B1 le résultat de I2/(J6-I6).
De même si je sélectionne Q23, l'opération sera Q2/(R23-Q23).

Quelqu'un pourrait il me décrire la procédure à utiliser s'il vous plaît?

Merci

(Je suis sur Excel 2010, le mode développeur est activé)
Configuration: Windows / Chrome 48.0.2564.116

Vaucluse · Answer

Bonjour
je suis peu doué e VBA mais peut être en utilisant les positions relatives, dans le code de la feuille (pas dans un module):

Target.cells.offset (ligne, colonne).value= votre calcul

ligne étant le nombre de ligne depuis a cellule "mére" jusqu'à celle résultat, et idem pour colonne
 
La qualité de la réponse dépend surtout de la clarté de la question, merci!

The_PEagle · Answer

Mon problème est que je ne sais pas comment récupérer les "coordonnées" de la cellule sélectionnée, sinon, le offset (ou même le reste ne devrait pas être un problème).

Le problème à le faire dans la feuille, serait la facilité de lecture puisqu'il m'imposerait un tableau (sur cette feuille ou une autre) et qu'il serait difficile de s'y repérer

eriiic · Answer

Bonjour,

je te conseille le double-clic :
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
plutôt que la simple sélection :
Sub Worksheet_SelectionChange(ByVal Target As Range)
à toi de voir.

L'un comme l'autre te passe le range de la cellule ayant déclenché l'événement, c'est Target.
Après tu peux interroger ses propriétés, par exemple :
Target.value
Target.address
Target.column
Target.row etc

En dehors de ces événements fournissant Target la cellule active est ActiveCell tout simplement, ou bien Selection si tu veux la plage sélectionnée, avec les même propriétés.
eric

michel_m · Answer

Bonsoir

Option Explicit'---------------------------------------------Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Range("E8:Z26")) Is Nothing Then     Range("B1") = Cells(2, Target.Column) / (Target - Target.Offset(0, 1))End IfEnd Sub 

A placer dans le module "feuille" de la feuille active
 
 Michel

The_PEagle · Answer

Merci à tous, je tenterai ça, j'ai cependant des questions:
dans les variables, je comprends Target, le Range il faut bien le définir (il se peut que je dise des bêtises, merci de me prévenir :) ) par contre, tu mets un cancel Eric, je ne le connais pas, que fait-il?
De même on les mets ByVal, quelle est la différence entre ByVal et ByRef ?

Merci à vous en tout cas

michel_m · Answer

Tiens, j'ai encore perdu du temps par solidarité

The_eagle en black list

Excel : Utilisation de macros avec cellule active

6 réponses

Newsletters