question excel Résolu/Fermé

Question

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 ?

Farfadet88 · Answer

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

tchernosplif · Answer

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

michel_m · Answer

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

tchernosplif · Answer

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

michel_m · Answer

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

tchernosplif · Answer

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

tchernosplif · Answer

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

Question excel

7 réponses