Se positionner sur une cellule

Bonjour,
encore besoin d'aide, j'effectue un traitement qui se réalise dans les cellules 'a80' a plus, et j'aimerais que apres ce traitement, on se positionne sur la cellule 'a1', sa je sait faire :

Code:

---

Workbooks(classeur).Sheets(nomfeuil).Range("a1").Activate

---

Simplement, ceci positionne le curseur sur la cellule 'a1', mais pas la vue, une fois mon traitement finit, mon curseur se positionne bien en 'a1' mais la vue est sur les cellules de mon traitement, ce qui fait que je doit remonter avec la roulette de la souris en haut de ma feuille excel.
Je pense bien qu'il existe quelque chose pour éviter cela et mettre la vue ( si sa s'appel comme sa) sur le haut de la feuille.
D'avance merci

Salut,

Code:

---

Range("A1").Show

---

Tout simplement.

A+

Oki, simplement sa ne change rien je reste sur les lignes ou c'est efectuer mon traitement.

bonjour lilp1 l' ami DeaD le forum [a1].Activate

C'est la mm, cela positionne le curseur sur la cellule 'a1' mais je doit quand mm utiliser la molette pour voir le haut de la feuille.
Je voit est joint mon fichier, il faut que vs clicker sur 'ecriture' et que vs ouvrez le fichier 'ecriture2.txt'

Salut,

Combine les 2

Activate puis Show

++
Minick

Bonjour,


J'ai tésté les solutions de DeaD78 et de laetitia et pour moi les deux fonctionnent parfaitement.

Si ce n'est pas le cas chez toi peut être peut tu nous en montrer ou nous en dire un pue plus ?


Edit: désolé pas raffraichi, chez moi la macro ne fonctionne pas, il y a un plantage quand je clique sur le bouton (incompatibilité de type)

Edit2 : Deuxième essai ok, j'ai vu le problème.

tester, mais sa ne change rien :s, j'ai joint mon fichier excel ainsi q'un document texte a ouvrir avec, voir mon poste plus haut

Place ton

Code:

---

...Activate

---

apres ton

Code:

---

Application.ScreenUpdating=True

---

++
Minick

Merci, je savait que ct une connerie a faire.
Merci bien :)

re, le fil en trés lourd !!!

Code:

---

Application.Goto Reference:="R1C1", Scroll:=True

---

Oh que si ça fonctionne le .Show ou le .Activate :ccool:

Simplement, regarde où tu as mis ton .Show... Tu l'as mis après avoir activé ton classeur "Essai". Du coup, ça va te montrer la cellule A1 du classeur "Essai". Il faut que tu le mettes après avoir ouvert ton nouveau classeur, fait les traitements dessus mais AVANT d'activer le classeur "Essai" si tu veux que cela fonctionne...

arf, je doit faire la mm chose pour un autre fichier texte, je le positionne comme pour le fichier ecriture aps le 'true' et pourtant sa fait le mm pbrs, je vs poste le fichier texte, et il ne fat plus clicker sur 'ecriture' mais sur 'journaux'

La solution de Minick fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ImporterPGI() Application.ScreenUpdating = False LeFichierAOuvrir = Application.GetOpenFilename(Title:="Nom du fichier PGI à ouvrir") If LeFichierAOuvrir <> "Faux" Then classeur = ActiveWorkbook.Name nomfeuil = ActiveSheet.Name OuvrirLeFichier End If Windows("Essai.xls").Activate   Application.ScreenUpdating = True Workbooks(classeur).Sheets(nomfeuil).Range("a1").Activate End Sub

---

Deux petites remarques :

- Beaucoup de select et activate dans le code, ils sont rarement nécessaires.
- Le mieux pour les activations / Desactivation c'est de le faire une bonne fois au début / fin en gérant les erreurs et eventuellement des cas spécifiques

Dans ta procédure

Code:

---

Sub ImporterJnal()

---

tu as le même problème. C'est là que je regardais au début. Pas de ScreenUpdating à True.

En revanche, c'est dans quel classeur que tu veux te placer en A1 ?

C'est bon, c'est résolut effectivement je n'avait pas de :

Code:

---

Application.ScreenUpdating = True

---

Je le confondais avec :

Code:

---

Application.DisplayAlerts = True

---

Oui je suis un boulet lol, merci de votre aide en tt cas.