Discussion :

[lilp1]

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 vba :

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

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

[DeaD78]

Salut,

Code :

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

Range("A1").Show

Tout simplement.

A+

[lilp1]

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

[laetitia]

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

[lilp1]

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'

[Minick]

Salut,

Combine les 2

Activate puis Show

++
Minick

[aalex_38]

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.

[lilp1]

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

[Minick]

Place ton

Code :

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

...Activate

apres ton

Code :

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

Application.ScreenUpdating=True

++
Minick

[lilp1]

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

[laetitia]

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

Code :

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

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

[DeaD78]

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

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...

[lilp1]

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'

[aalex_38]

La solution de Minick fonctionne :

Code :

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

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

[DeaD78]

Dans ta procédure

Code :

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

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 ?

[lilp1]

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

Code vba :

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

Application.ScreenUpdating = True

Je le confondais avec :

Code vba :

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

Application.DisplayAlerts = True

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