activation cellule dans une feuille non active

[sasjm37]

Bonjour le forum, le fil
Je travaille dans la feuille 'Travail', je désire y rester et lancer une procédure pour que la cellule A1 de la feuille non active 'Résultats' soit sélectionner. Ça plante 🙁 et je ne trouve pas la solution (a part activer la feuille, pour activer la cellule, ce que j'aimerais éviter). Je joins un fichier.
Merci d'avance
JM

 

[Fred0o]

Re : activation cellule dans une feuille non active

Bonjour sasjm37,

Tu ne peux pas sélectionner une cellule dans une feuille non active. Par contre, tu peux y travailler dessus.
Par exemple pour placer une valeur dans cette cellule, tu peux utiliser la syntaxe :

Worksheets("Résultats").Range("A1") = LaValeur

Une autre possibilité est de suspendre l'affichage avant de sélectionner la feuille "Résultats" et d'y travailler dessus, puis à la fin du traitement de re-sélectionner la feuille "Travail" et de réactiver l'affichage, comme ceci :

Application.ScreenUpdating = False
Worksheets("Travail").Select
Range("A1").select
...
...
Traitement par la macro
...
...
Worksheets("Résultats").Select
Application.ScreenUpdating = False

A+

 

[ROGER2327]

Re : activation cellule dans une feuille non active

Bonjour sasjm37

Je crains que ce que voulez faire soit impossible. Mais ceci

Sub procedure()
  Application.ScreenUpdating = 0
  With ActiveSheet
    With Worksheets("Résultats")
      .Activate
      .Cells.Clear
      .Range("A1").Select
    End With
    .Activate
  End With
  Application.ScreenUpdating = 1
End Sub

est peut-être un subterfuge acceptable ?

(Sur le fond, je ne saisis pas l'intérêt de la chose, mais si vous en avez besoin…)​

ROGER2327
#5073

Mercredi 18 Pédale 138 (Saint Nosocome, carabin, SQ)
22 Ventôse An CCXIX
2011-W10-6T15:39:22Z

_________________________
Ajout : bonjour FredOo
Nous sommes à peu près d'accord, sauf que la feuille qui doit rester affichée est la feuille travail.

 

[Fo_rum]

Re : activation cellule dans une feuille non active

bonsoir,

et ainsi ?

Sub procedure()
    Application.ScreenUpdating = False
    With Sheets("Résultats")
        .Cells.Clear
        Application.Goto .Range("A1")
    End With
    Application.Goto Sheets("travail").Range("A1")
End Sub

 

[sasjm37]

Re : activation cellule dans une feuille non active

Bonjour, FredOo, ROGER2327
Merci pour vos promptes réponses et solutions, je modifie mon code en conséquence...
A bientôt 🙂
sasjm37