Discussion :

[j.neron]

Bonjour à tous,
Je souhaite developper une application utilisant l'affichage de fenêtre sous excel
Je m'explique :
Je souhaite afficher simultanément deux feuilles du même classeur, la feuille 1 dans la fenêtre de gauche et la feuille 2 dans la fenêtre de gauche.
J'ai organisé mon écran en conséquence, et pour comprendre la syntaxe j'ai enregistré la séquence suivante
j'ai écris 1 dans la feuille de gauche
j'ai écris 2 dans la feuille de droite
j'ai écris 3 dans la feuille de gauche
Après enregistrement de la macro, j'ai tout effacé puis j'ai exécuté la macro. Je m'attendait à obtenir 1 et 3 à gauche et 2 à droite.
Que neni, j'ai eu 1 2 et 3 à gauche.
Normal en regardant le code qui ne fait pas allusion à mes changements de fenêtres

Code :

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

1
2
3
4
5
6
7
8
    Windows("essai.xlsx").Activate
    ActiveCell.FormulaR1C1 = "1"
    Windows("essai.xlsx").Activate
    Range("G16").Select
    ActiveCell.FormulaR1C1 = "2"
    Windows("essai.xlsx").Activate
    Range("G22").Select
    ActiveCell.FormulaR1C1 = "3"

Alors comment faire pour que la macro écrive 1 et 3 à gauche et 2 à droite ? Comment demander à excel de jongler entre des fenêtres contenant le même classeur ?

Merci pour vos lumières et bonne journée ensolleillée
Jean

[Menhir]

Commencer par bien lire ça : https://msdn.microsoft.com/fr-fr/vba...w-object-excel

Ensuite essayer ça :

Code :

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

1
2
3
    Windows("essai.xlsx":1).ActiveCell.Value = 1
    Windows("essai.xlsx":2).ActiveSheet.Range("G16").Value = 2
    Windows("essai.xlsx":1).ActiveSheet.Range("G22").Value = 3

L'enregistreur automatique de macro est un outil formidable pour indiquer une piste à suivre pour réaliser un code.
Mais il ne faut JAMAIS l'utiliser tel-quel sans comprendre le code qu'il renvoie et le débarbouiller.

Petit détail : perso, je n'aurais pas mis ActiveCell mais plutôt la référence de la cellule souhaitée.

[j.neron]

Bonjour, et merci pour ta réponse.

Le code que tu me communiques, conforme à celui de la page dont tu m'envoie le lien, génère un message d'erreur à la compilation.
le : dans "essai.xlsx":1 ne lui plait pas et il me dit attendre un séparateur de liste ou une )

Donc je suis toujours aussi bloqué.

Jean

[patricktoulon]

bonjour

l'enregistreur de macro ne sert pas a rien moyennant une légère refonte du code obtenu
afficher 2 sheets dans la même fenêtre cote a cote
exemple

Code :

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

1
2
3
4
5
6
Sub test()
   ActiveWindow.NewWindow
    Windows.CompareSideBySideWith "Classeur1:1" 'cote a cote
    Sheets("Feuil3").Select 'on sélectionne le sheet a afficher dans la fenêtre droite
 
End Sub

[Menhir]

Je viens de faire des test.
Essayer ça :

Code :

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

1
2
3
    Windows("essai.xlsx:1").ActiveCell.Value = 1
    Windows("essai.xlsx:2").ActiveSheet.Range("G16").Value = 2
    Windows("essai.xlsx:1").ActiveSheet.Range("G22").Value = 3

[patricktoulon]

allons menhir!!

Code :

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

Windows("essai.xlsx:1").ActiveCell.Value = 1

et le code tu le met ou dans un xlsx hein!!!????
tu le retape a chaque ouverture du classeur

[Menhir]

Perso, je ne mets jamais le code de mes applis dans les fichiers traités, je le mets soit dans un xlam, soit dans un fichier xlsm de paramétrage.
Mais même si le cas de j.neron est celui que tu décris, j'ai résolu 99% de son problème et il n'aura aucune difficulté à adapter ce code à son cas s'il le place dans un xlsm.

PS : sa question étant de savoir comment switcher entre deux fenêtres ouvertes, je ne vois pas à quoi ton code pouvait lui servir...

[j.neron]

Bonsoir Menhir,
la syntaxe Windows("essai.xlsx:1").... ne passe pas chez moi sur Office 365. Elle génère une erreur de type l'indice n'appartient pas à la sélection.
Je tourne un peu en rond....
Je vais réfléchir pour faire différemment
Merci beaucoup
Jean