Question excel

Résolu/Fermé

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 - 23 déc. 2009 à 16:16
tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 - 18 mars 2010 à 17:36

Bonjour,

Je voudrais qu'une cellule d'un tableau excel change (en temps réel) en fonction de la cellule active.

Par exemple, je voudrais que la cellule A1 soit égale à la valeur de B12 si la cellule active est B11

A1 soit égale à la valeur de B22 si la cellule active est B21
A1 soit égale à la valeur de B37 si la cellule active est B36
A1 soit égale à la valeur de B9999 si la cellule active est B9998

.....

Dois-je faire une macro (activecell.value; offset ...) ou puisje utiliser une formule ?

A voir également:

Question excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

7 réponses

Réponse 1 / 7

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
23 déc. 2009 à 16:25

[a1] = ActiveCell.Value (c'est une macro)

Réponse 2 / 7

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 244
23 déc. 2009 à 16:48

Merci de l'intéret porté à ma question

j'ai essayé cette macro, ça ne fonctionne pas, la cellule A1 reste vierge

sub toto()
[a1] = ActiveCell.Value
End Sub

en revanche, ça fonctionne si j'attribue cette macro à un bouton, par contre il manque toujours l'offset d'1 case

Réponse 3 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 déc. 2009 à 16:54

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B65535")) Is Nothing Then: Exit Sub
Range("A1") = Target.Offset(1, 0)
End Sub

fait un copier de cette macro événementielle
clic droit sur l'onglet de la feuille concernée
visualiser le code
coller

Réponse 4 / 7

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 244
23 déc. 2009 à 16:58

ca fonctionne merci beaucoup, par contre je me suis trompé dans mon exemple

A1 égale la valeur de droite de la cellule active

si la cellule active est C11 alors A1 est égale à D11

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 déc. 2009 à 17:04

regarde cette démo et clique dans la colonne B (tant qu'il y a quelque chose de marqué)
https://www.cjoint.com/?mxrckdUD8p

Réponse 6 / 7

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 244
23 déc. 2009 à 17:08

merci beaucoup michel, ça fonctionne, ton aide m'a été d'un grand secours, je te remercie

voila la macro que j'utilise finalement:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:Z65535")) Is Nothing Then: Exit Sub
Range("A1") = Target.Offset(0, 1)
End Sub

MERCI

Réponse 7 / 7

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 244
18 mars 2010 à 17:36

finalement j'utilise cette macro qui évite un bug lorsque on sélectionne une ligne ou une colonne (je n'ai pas besoin de cellules fusionnées)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D11:N65535")) Is Nothing Then: Exit Sub
If Target.Cells.Count > 1 Then: Exit Sub
Range("B8").Value = Target.Offset(0, 1).Value
End Sub

Newsletters