Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Suivre l'écriture

Suivre l'écriture

9 réponses
Avatar
Jacques Cléret
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture

Merci a tous

--
jacques.cleret@icer.fr
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Vincent.
Bonjour !
L'enregistreur de macro te montrera comment utiliser la
propriété scrolldown, mais tu peux aussi utiliser un Goto
sur la cellule Ax en cours :
Application.GoTo Workbooks("tonfichier").Worksheets
("tafeuille").Range("Ax"), True
En utilisant GoTo sur l'application, tu as accès au
deuxième argument qui permet de caler l'écran en mettant
la cellule sélectionnée en haut et à gauche du cadre...
C'est bien quelque chose comme ça que tu souhaitais ?
A+

V.

-----Message d'origine-----
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les
uns sous les

autres
Bien entendu, il arrive un moment ou l'écriture se fait
hors de l'écran

(vers le bas)
Comment faire défiler l'écran au fur et a mesure de
l'écriture


Merci a tous

--



.



Avatar
John Fuss
Soit tu seelectionne la cellule dans laquelle tu écris.

Range("A1").select avant de faire Range("A1").formula = "ZZZ"

Sinon tu écris :

Range("A1").show


Voilà

John


"Jacques Cléret" a écrit dans le message de
news:bovnhc$cv9$
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture

Merci a tous

--





Avatar
AV
J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture


Ca va pas vraiment accélérer l'exécution !
Ca ferait un truc comme ça :

Sub zzzz()
For i = 1 To 1000
Cells(i, 1) = i
Cells(i, 1).Select
Next
End Sub

AV

Avatar
Jacques Cléret
Merci pour ta réponse mais ça ne marche pas je reste figé en A1 par exemple
A+

--


"Vincent." a écrit dans le message news:
040d01c3a9d4$de579af0$
Bonjour !
L'enregistreur de macro te montrera comment utiliser la
propriété scrolldown, mais tu peux aussi utiliser un Goto
sur la cellule Ax en cours :
Application.GoTo Workbooks("tonfichier").Worksheets
("tafeuille").Range("Ax"), True
En utilisant GoTo sur l'application, tu as accès au
deuxième argument qui permet de caler l'écran en mettant
la cellule sélectionnée en haut et à gauche du cadre...
C'est bien quelque chose comme ça que tu souhaitais ?
A+

V.

-----Message d'origine-----
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les
uns sous les

autres
Bien entendu, il arrive un moment ou l'écriture se fait
hors de l'écran

(vers le bas)
Comment faire défiler l'écran au fur et a mesure de
l'écriture


Merci a tous

--



.



Avatar
Jacques Cléret
Merci pour ta réponse, mais ça ne marche pas parce que je n'ai pas de
sélection de cellule.Les textes étant écrits par une macro
A+

--



"John Fuss" a écrit dans le message news:
bovoe5$dk0$
Soit tu seelectionne la cellule dans laquelle tu écris.

Range("A1").select avant de faire Range("A1").formula = "ZZZ"

Sinon tu écris :

Range("A1").show


Voilà

John


"Jacques Cléret" a écrit dans le message de
news:bovnhc$cv9$
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture

Merci a tous

--









Avatar
Jacques Cléret
Merci pour ta réponse, c'est long et pas synchrone.
A+
--

"AV" a écrit dans le message news:

J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture


Ca va pas vraiment accélérer l'exécution !
Ca ferait un truc comme ça :

Sub zzzz()
For i = 1 To 1000
Cells(i, 1) = i
Cells(i, 1).Select
Next
End Sub

AV





Avatar
Vincent.
Je ne vois que deux possibilités :
la première, c'est que tu as laissé un range unique, alors
que ta macro doit forcément utiliser un range mouvant
quelque part qu'il convenait de remplacer au niveau de
range("Ax")
la seconde, et ce serait pas mieux, c'est que quelque part
tu as un application.screenupdating à false dans ton code
et là, forcément, tout restera inefficace et pour cause...
Si ce n'est ni l'une ni l'autre, ben... tant pis ;(
A+

V.

-----Message d'origine-----
Merci pour ta réponse mais ça ne marche pas je reste figé
en A1 par exemple

A+

--


"Vincent." a écrit
dans le message news:

040d01c3a9d4$de579af0$
Bonjour !
L'enregistreur de macro te montrera comment utiliser la
propriété scrolldown, mais tu peux aussi utiliser un Goto
sur la cellule Ax en cours :
Application.GoTo Workbooks("tonfichier").Worksheets
("tafeuille").Range("Ax"), True
En utilisant GoTo sur l'application, tu as accès au
deuxième argument qui permet de caler l'écran en mettant
la cellule sélectionnée en haut et à gauche du cadre...
C'est bien quelque chose comme ça que tu souhaitais ?
A+

V.

-----Message d'origine-----
Bonjour a toutes et tous

J'ai une moulinette qui écrit des titres de documents les
uns sous les

autres
Bien entendu, il arrive un moment ou l'écriture se fait
hors de l'écran

(vers le bas)
Comment faire défiler l'écran au fur et a mesure de
l'écriture


Merci a tous

--



.




.




Avatar
AV
Merci pour ta réponse, c'est long
Ben pardi ! Je te l'ai dit !

Tu peux pas avoir le beurre et l'argent du beurre ;-)

..et pas synchrone.
Tiens donc...??


AV

Avatar
FxM
Bonsoir,

Sur la même base :
Sub zzzz()
Start = Now - Int(Now)
Application.Calculation = xlCalculationManual
Range("A1:A100").ClearContents
For i = 1 To 1000
Cells(i, 1) = i
If i Mod 20 = 0 Then
Cells(i, 1).Select
End If
Next i
Application.Calculation = xlCalculationAutomatic
ende = Now - Int(Now)
MsgBox (ende - Start) * 86400
End Sub

Quelques calculs simples dans la feuille :
A1 à A1000 à remplir
B1 = 2*A1 (recopie jusqu'à B1000)
C1 = 2*B1 etc jusqu'à IV1000

Conditions -> résultat affiché (arrondi ;o)
Calcul auto, remise à jour à chaque i -> 40 secondes
Calcul auto, remise à jour à chaque 20 i -> 39 secondes
Calcul manuel, remise à jour à chaque i -> 3 secondes
Calcul manuel, remise à jour à chaque 20 i -> 2 secondes

Espérant que ça fait avancer le schmilblick...

@+
FxM





AV wrote:
J'ai une moulinette qui écrit des titres de documents les uns sous les
autres
Bien entendu, il arrive un moment ou l'écriture se fait hors de l'écran
(vers le bas)
Comment faire défiler l'écran au fur et a mesure de l'écriture



Ca va pas vraiment accélérer l'exécution !
Ca ferait un truc comme ça :

Sub zzzz()
For i = 1 To 1000
Cells(i, 1) = i
Cells(i, 1).Select
Next
End Sub

AV