Afficher le contenu de la case active

[Adamev]

Bonjour à tous,
Je voudrais afficher le contenu de la cellule active (autre que A1), dans la cellule A1...
Est-ce possible sans VBA?
Merci d'avance

 

[Staple1600]

Re : Afficher le contenu de la case active

Bonjour


Non pas possible sans VBA (sauf erreur)

If Not ActiveCell.Address(,0)="A1" then [A1]=ActiveCell

 

[Dull]

Re : Afficher le contenu de la case active

Salut adamev, le Forum

Pas sur d'avoir compris mais essaye ce code dans le Module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1].Value = ActiveCell.Value
End Sub

EDITION: Salut l'Agrafeuse🙂

Bonne Journée

 

[Staple1600]

Re : Afficher le contenu de la case active

Re Dull

Une autre façon de faire
(a mettre dans le code de la feuille comme celui de Dull 😉 )
(-> Clic-droit sur l'onglet -> Visualiser le code -> c'est ici qu'il faut copier le code VBA )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = _
    IIf(((Target.Address <> "$A$1") _
    + (Target <> "")) = -2, _
    ActiveCell, [A1])
End Sub

 

[Tibo]

Re : Afficher le contenu de la case active

Bonjour,

Non pas possible sans VBA (sauf erreur)

Euh, pour ma part, j'utilise ceci :

=INDIRECT("L"&CELLULE("ligne")&"C"&CELLULE("colonne");FAUX)

se met à jour quand on saisit une valeur, sinon, faire F9.

Le tout, sous réserve que j'aie compris la question.

@+

 

[Adamev]

Re : Afficher le contenu de la case active

Bonjour Staple1600 , Dull
Merci pour vos réponses et votre aide.
J'ai essayé avec les codes suggérés, mais ça n'a pas marché...
Je voudrais savoir si ça marche sur vos machines.
Bonne journée

 

[Staple1600]

Re : Afficher le contenu de la case active

Bonjour Tibo


Il me semblait bien que c'était possible en acceptant les références circulaires mais j'étais plus très sur. 😱

Merci de Tibo de m'avoir rafraichi la mémoire.

Adamev:
En général, on teste avant de poster une proposition.
Donc cela fonctionne sur nos machines. 😉
La formule de Tibo aussi fonctionne il faut juste ne pas tenir compte du message d'erreur d'Excel

 

[Dull]

Re : Afficher le contenu de la case active

Re le Fil

Salut Tibo🙂

Adamev:
En général, on teste avant de poster une proposition.
Donc cela fonctionne sur nos machines.

Jeconfirme

Bien Belle Formule Tibo 😉
Bonne Journée

 

[Tibo]

Re : Afficher le contenu de la case active

re,

Le souci de la référence circulaire, c'est uniquement sur la cellule qui contient la formule.

Or le but de cette formule n'est pas de connaître de la cellule qui contient cette formule mais le contenu d'une autre cellule active.

Et dès lors, plus de problème de référence circulaire.

Voilou

@+

Edit : Salut Didier : 😉 Au fait, ça fait longtemps que tu nous as donné des nouvelles de la météo locale !

@+

 

[ROGER2327]

Re : Afficher le contenu de la case active

Bonjour à tous

=INDIRECT("L"&CELLULE("ligne")&"C"&CELLULE("colonne");FAUX)

À la bonne heure ! La journée n'est pas perdue : j'ai appris quelque chose.
Merci Tibo ! Des comme ça, j'en raffole...

(J'ai bien fait de ne pas répondre trop vite... J'aurais certainement dit une connerie...)​

Cordialement,
ROGER2327
#3681

Jeudi 26 Merdre 137 (Sainte Barbaque, naïade, SQ)
24 Prairial An CCXVIII
2010-W23-6T12:05:05Z

_________________________

P.s. :

(...) En général, on teste avant de poster une proposition. (...)

Je confirme itou...

 

[Dull]

Re : Afficher le contenu de la case active

Edit : Salut Didier : 😉 Au fait, ça fait longtemps que tu nous as donné des nouvelles de la météo locale !

@+

On entre doucement dans hiver australe (25° quand même) et la prestation des Bleus ne nous a guère réchauffé 🙄😉 ils doivent avoir froid, eux aussi, dans leur Hôtel, En Afrique du Sud 😀


Regarde la pièce jointe 791861

EDITION: Salut Roger🙂

Bonjour à tous

À la bonne heure ! La journée n'est pas perdue : j'ai appris quelque chose.
Merci Tibo ! Des comme ça, j'en raffole...

(J'ai bien fait de ne pas répondre trop vite... J'aurais certainement dit une connerie...)​

Cordialement,
ROGER2327
#3681

Jeudi 26 Merdre 137 (Sainte Barbaque, naïade, SQ)
24 Prairial An CCXVIII
2010-W23-6T12:05:05Z

Jeconfirmeànouveau🙂

Bonne Journée

 

[Adamev]

Re : Afficher le contenu de la case active

Salut Staple1600,Tibo,


J'ai bel et bien testé avant de poster.
Les 2 codes ne répondent pas. (je vais insister pour en connaitre la cause)
La formule de Tibo, ne donne le continu de la cellule active que le lorsque celle-ci contient un nombre ou une référence; et donne zéro sinon. De plus la mise à jour se fait manuellement (avec F9).
Cordialement

 

[Staple1600]

Re : Afficher le contenu de la case active

Re


Adamev:
Je ne parlais pas de toi 😎
Mais de moi (ou/et de Dull, enfin les habitués du forum en général) nous testons les réponses avant de les écrire sur le forum.
Je disais cela suite à cette réponse de ta part.

J'ai essayé avec les codes suggérés, mais ça n'a pas marché...

Chez moi, pas besoin de faire F9 avec la formule de Tibo
(quand Excel est réglé comme ci dessous)

Ou as-tu mis le code VBA de Dull, ou le mien ?
Dans un module ? (PAS OK)
ou dans le code de la feuille ? (OK)

 

[Tibo]

Re : Afficher le contenu de la case active

re,

Pour ce qui est de retourner la valeur 0, il suffit d'adapter la formule ainsi :

=SI(ESTVIDE(INDIRECT("L"&CELLULE("ligne")&"C"&CELLULE("colonne");FAUX));"";
INDIRECT("L"&CELLULE("ligne")&"C"&CELLULE("colonne");FAUX))

Pour ce qui est du fait qu'il faille appuyer sur F9, d'accord. Je l'avais d'ailleurs signalé dans mon message.

La formule fonctionne également lorsque la cellule contient du texte.

Cela dit, je ne suis qu'un modeste formuliste et ce que tu demandes nécessite des compétences Vbaïstiques qui ne sont pas les miennes.

Quant aux propositions de mes petits camarades, j'ose penser qu'elles sont correctes, mais que peut-être, tu ne parviens pas à les mettre en oeuvre correctement.

Joins le cas échéant ton fichier (ou un extrait) et nul doute qu'ils t'expliqueront ce qui ne va pas

@+

 

[Staple1600]

Re : Afficher le contenu de la case active

Re

Je confirme qu'ici à l'ouest du Rio Grande
Pas besoin d'appuyer sur F9

L'actualisation se fait dès qu'on valide une saisie dans une cellule.

PS: Adamev: dans Lien supprimé, je t'indique bien ou mettre la macro
(et Dull te l'indiquait aussi juste avant )