Discussion :

[cehel73]

Bonjour,

J'ai un classeur contenant 2 feuilles feuill1 et feuill2.
Je voudrais en L1C1 de feuill2, avoir une formule qui me donne la référence de la cellule active dans la feuill1.
Je dis bien une formule, car je ne veux PAS passer par VBA pour cela.

Merci d'avance.

[Invité]

Bonjour

Je ne pense pas qu'il existe une formule qui donne ce genre d'information. Je me trompe peut-être.

Quel est le but ?

Philippe

[jerome.vaussenat]

Salut,

Comme Philippe, à la rigueur avec un petit code VBA placé sur l’événement "SelectionChange" de la feuil1.


edit : Ok, je suis hors sujet après relecture ATTENTIVE de la demande !

[cehel73]

Bonjour

Je ne pense pas qu'il existe une formule qui donne ce genre d'information. Je me trompe peut-être.

Quel est le but ?

Philippe

En fait, j'ai des classeurs Excel 2002 contenant beaucoup de macros enregistrées dans un .xla, et depuis la dernière mise à jour de Windows 10, les macros plantent sans arrêt.
Or, ces mêmes classeurs fonctionnent toujours bien sur mon portable Windows 7.
C'est la 2ème fois que les mises à jour de Windows 10 me plantent Excel, mais cette fois, je n'est pas trouvé la solution pour réparer.
Je voudrais donc contourner certaines macros en utilisant des formules.
A moins que quelqu'un sache comment faire pour retrouver Excel 2002 fonctionnant après ces mises à jour.
Merci.

[Menhir]

Je suis d'accord avec mes camarades. Il est peu probable que ceci soit possible avec de simples fonctions/commandes Excel.

En fait, j'ai des classeurs Excel 2002 contenant beaucoup de macros enregistrées dans un .xla, et depuis la dernière mise à jour de Windows 10, les macros plantent sans arrêt.

Il ne faut pas non plus jeter bébé avec l'eau du bain.
Ce n'est pas parce que certaines instructions VBA ne supportent pas les mises à jour qu'il faut définitivement renoncer à l'usage de cet outil bien pratique.

Si tu décides revenir sur ta décision, voici une solution.
Dans un module, mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function CELLULE_ACTIVE()
    Application.Volatile
    CELLULE_ACTIVE = ActiveCell.Address
End Function

Dans le module ThisWorkbook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Source As Range)
Sh.Calculate
End Sub

Ensuite, tu peux utiliser CELLULE_ACTIVE() comme une fonction classique dans n'importe quelle cellule de ta feuille Excel, ça renverra l'adresse de la cellule active.

[cehel73]

Merci pour ta réponse,
En effet, seules certaines lignes de code ne passent pas.
Je vais essayer ta solution, et te tiens au courant.

[Pierre Fauconnier]

Salut.

Je rebondis sur la question de Philippe: Quelle est la finalité de ta demande?

Car:

Il n'est pas possible d'avoir la cellule active d'une feuille spécifique, vu qu'il n'y a qu'une seule cellule active dans un classeur Excel.

Si tu places dans la feuille 2 une formule utilisant la fonction proposée par Menhir, elle ne renverra la bonne réponse QUE si la feuille 1 est active. Dès lors que tu activeras la feuille 2 pour voir le résultat de la formule, tu obtiendras la cellule active... de la feuille 2.


Tu pourrais éventuellement t'en sortir avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function CELLULE_ACTIVE()
    Application.Volatile
    If ActiveSheet.Name = "Feuil1" Then
      CELLULE_ACTIVE = ActiveCell.Address
    Else
      CELLULE_ACTIVE = ""
    End If
End Function

en modifiant aussi le code de ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Source As Range)
Application.Calculate
End Sub

Il faut cependant penser au côté pénalisant de recalculer à chaque changement de sélection. Pour moi, c'est une aberration

[cehel73]

Bonsoir,

Merci pour ces précisions.
Ce qui serait génial, c'est que quelqu'un ait la solution pour continuer de faire tourner Excel 2002 après les dernières mises à jour de Windows 10.
Le même problème était déjà survenu lors d'une mise à jour précédente, mais j'avais trouvé une solution.
Cette fois-ci je n'en trouve pas. Et si je désinstalle les dernières mises à jour, de toute façon Windows me les réinstalle à la première occasion.
Une réinstallation complète de Office 10 n'a pas non plus résolu le problème.
Ce qui est incompréhensible, c'est que pour des lignes de codes consécutives écrites exactement de la même façon, Excel les exécute parfois, et parfois pas et se plante ! Le tout d'une manière aléatoire...
J'ai droit au: "récupération du fichier.." et me propose un fichier soi-disant "corrigé", mais dans lequel j'ai perdu toutes mes mises en formes, et qui de toute façon plante toujours !

[78chris]

Bonjour

Microsoft annoncait l'incompatibilité 2003 et Windows 8.1. Donc au mieux 2002 est comme 2003.

Néanmoins cela marchait même avec W10 jusqu'ici mais Windows et Office partageant intimement certains composants et dans la mesure ou Ms ne le supporte plus officiellement les anciennes versions Office, il est possible voire probable que des incompatibilités deviennent réelles...

[Pierre Fauconnier]

[...]il est possible voire probable que des incompatibilités deviennent réelles...

Sans parler d'éventuels problèmes 32/64 bits.

Chel73: Il serait opportun d'ouvrir une autre discussion pour donner les lignes de code qui pose aléatoirement des problèmes (aléatoire, ça n'existe pas en informatique), afin de ne pas noyer des sujets différents dans une même discussion

Pour celle-ci, et par simple curiosité, j'aimerais connaître l'utilité d'obtenir l'adresse de la cellule active dans une cellule...

[cehel73]

Bonjour,
Comme le suggère 78chris, je crois que je vais renoncer à utiliser Excel 2002 sur mon PC Wondows 10. Excel 2002 continue de fonctionner normalement uniquement s'il n'y a pas de modules VBA.
Ma question initiale avait comme but d'essayer de n'utiliser que des formules Excel dans les cellules pour effectuer le même travail qu'avec mes routines VBA. Apparemment, ce n'est pas possible.
Autre question: si je passe à la dernière version d'Excel, mon fichier .xla (version 2002) sera-t-il entièrement compatible, ou faudra-t-il réécrire certaines lignes de code ?
Et qu'en est-il de open office ou libre office ?
J'ai bien noté que je passerai à une nouvelle discussion si je devais avoir des questions sur des lignes de code.
Merci.

[78chris]

Bonjour

...sur mon PC Wondows 10. Excel 2002 continue de fonctionner normalement uniquement s'il n'y a pas de modules VBA.

Ce n'est pas certain : certains bugs d'incompatibilité entre versions Office/Windows sont très insidieux, on peux les voir très tard ou constater des dysfonctionnements tellement éloignés du contexte qu'on ne les perçoit pas comme tels.

2 Exemples :

1. Ayant installé Outlook 98 sur un office 95 ou 97 (je ne sais plus) j'ai eu des problèmes dans Word qui n'acceptait plus les fichiers image TIF. Je réinstallais l'utilitaire, cela remarchait quelques mois puis recommençait.
   Une fois désinstallé Outlook 98, le problème a totalement disparu et j'ai alors compris d'où venait le dysfonctionnement.
2. Ayant installe Office 2007 en plus de 2003, j'ai constaté que l'assistant formulaires et rapports ne fonctionnait plus dans Access 2003... Avec l'éclairage de la 1ère expérience j'ai désinstallé 2007 et 2003 s'est remis à fonctionner

Il est probable que d'autres effets de bord existaient...

Autre question: si je passe à la dernière version d'Excel, mon fichier .xla (version 2002) sera-t-il entièrement compatible, ou faudra-t-il réécrire certaines lignes de code ?

De façon générale oui mais certains objets Excel ont évolué et leur méthodes ou propriétés peuvent avoir changé. Donc tout dépend des objets manipulés par VBA.

Et qu'en est-il de open office ou libre office ?

Open Office n'a quasiment plus évolué depuis le scission.
Libre Office accepte, je crois une partie du VBA mais la logique n'étant pas le même qu'Exel sur bien des points...

[cehel73]

Bonjour

Ce n'est pas certain [...]

Merci beaucoup d'avoir consacré du temps pour me répondre. Vos remarques sont très intéressantes.

[fraflt69]

Pour Info, Il existe un outil microsoft pour inspecter les documents office et détecter les problèmes de comptatibilité : Microsoft Office Code Compatibility Inspector user's guide
https://docs.microsoft.com/en-us/pre...6(v=office.14)

[Supermichou]

Bonjour,

Il existe une solution sans passer par du VBA

voici la procédure.

inscrire en A1 de feuille2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CELLULE("adresse")

aller en feuille 1 et appuyer sur F9, même si le calcul est en automatique

revenir en feuille2 et constater que l'adresse de la cellule active de Feuille1 est inscrite en A1.
Attention, au moindre recalcul, la donnée est corrigée, peut être faire un figée valeur en A2 ?

Au plaisir,
SM

[cehel73]

Pour Info, Il existe un outil microsoft pour inspecter les documents office et détecter les problèmes de comptatibilité : Microsoft Office Code Compatibility Inspector user's guide
https://docs.microsoft.com/en-us/pre...6(v=office.14)

Merci pour l'information.

Bonjour,

Il existe une solution sans passer par du VBA

voici la procédure.

inscrire en A1 de feuille2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CELLULE("adresse")

aller en feuille 1 et appuyer sur F9, même si le calcul est en automatique

revenir en feuille2 et constater que l'adresse de la cellule active de Feuille1 est inscrite en A1.
Attention, au moindre recalcul, la donnée est corrigée, peut être faire un figée valeur en A2 ?

Au plaisir,
SM

Merci pour l'astuce.