Bonjour a toutes et tous
Voila mon Pb
J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus
Se serais sympa si le déroulement de l'écran suivait
Comment faire ?
Merci
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
papou
Bonjour Jacques Si j'ai bien compris ;-) Quelque chose comme ça : For i = 1 To 500 Application.StatusBar = "Traitement de la ligne " & i Next i Application.StatusBar = False ?
Cordialement Pascal
"Jacques Cléret" a écrit dans le message de news: c4jdbf$gho$
Bonjour a toutes et tous Voila mon Pb J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus Se serais sympa si le déroulement de l'écran suivait Comment faire ? Merci
-- Jacques Cléret
Bonjour Jacques
Si j'ai bien compris ;-)
Quelque chose comme ça :
For i = 1 To 500
Application.StatusBar = "Traitement de la ligne " & i
Next i
Application.StatusBar = False
?
Cordialement
Pascal
"Jacques Cléret" <jacques.cleret@icer.fr> a écrit dans le message de news:
c4jdbf$gho$1@s1.read.news.oleane.net...
Bonjour a toutes et tous
Voila mon Pb
J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus
Se serais sympa si le déroulement de l'écran suivait
Comment faire ?
Merci
Bonjour Jacques Si j'ai bien compris ;-) Quelque chose comme ça : For i = 1 To 500 Application.StatusBar = "Traitement de la ligne " & i Next i Application.StatusBar = False ?
Cordialement Pascal
"Jacques Cléret" a écrit dans le message de news: c4jdbf$gho$
Bonjour a toutes et tous Voila mon Pb J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus Se serais sympa si le déroulement de l'écran suivait Comment faire ? Merci
-- Jacques Cléret
ru-th
salut
ayant compris autre chose quoique que pas bien sûr d'avoir compris quelque chose ;-) Sub test() For i = 1 To 500 Cells(i, 1) = i If i Mod 10 = 0 Then ActiveWindow.SmallScroll (10) Next End Sub
a+ rural thierry "papou" a écrit dans le message de news:
Bonjour Jacques Si j'ai bien compris ;-) Quelque chose comme ça : For i = 1 To 500 Application.StatusBar = "Traitement de la ligne " & i Next i Application.StatusBar = False ?
Cordialement Pascal
"Jacques Cléret" a écrit dans le message de news: c4jdbf$gho$
Bonjour a toutes et tous Voila mon Pb J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus Se serais sympa si le déroulement de l'écran suivait Comment faire ? Merci
-- Jacques Cléret
salut
ayant compris autre chose quoique que pas bien sûr d'avoir compris quelque
chose ;-)
Sub test()
For i = 1 To 500
Cells(i, 1) = i
If i Mod 10 = 0 Then ActiveWindow.SmallScroll (10)
Next
End Sub
a+
rural thierry
"papou" <OterCeciprobin@OterCeciCG44.fr> a écrit dans le message de news:
ueiulqJGEHA.2472@TK2MSFTNGP10.phx.gbl...
Bonjour Jacques
Si j'ai bien compris ;-)
Quelque chose comme ça :
For i = 1 To 500
Application.StatusBar = "Traitement de la ligne " & i
Next i
Application.StatusBar = False
?
Cordialement
Pascal
"Jacques Cléret" <jacques.cleret@icer.fr> a écrit dans le message de news:
c4jdbf$gho$1@s1.read.news.oleane.net...
Bonjour a toutes et tous
Voila mon Pb
J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus
Se serais sympa si le déroulement de l'écran suivait
Comment faire ?
Merci
ayant compris autre chose quoique que pas bien sûr d'avoir compris quelque chose ;-) Sub test() For i = 1 To 500 Cells(i, 1) = i If i Mod 10 = 0 Then ActiveWindow.SmallScroll (10) Next End Sub
a+ rural thierry "papou" a écrit dans le message de news:
Bonjour Jacques Si j'ai bien compris ;-) Quelque chose comme ça : For i = 1 To 500 Application.StatusBar = "Traitement de la ligne " & i Next i Application.StatusBar = False ?
Cordialement Pascal
"Jacques Cléret" a écrit dans le message de news: c4jdbf$gho$
Bonjour a toutes et tous Voila mon Pb J'ai une macro qui écrit des lignes de texte sur 500 lignes ou plus Se serais sympa si le déroulement de l'écran suivait Comment faire ? Merci
-- Jacques Cléret
Jacques Cléret
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret
Merci pour ta réponse
J'ai essayé, mais c'est pas terrible
Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,,
<
<
<
Loop
Je connais a l'avance le nombre de lignes à écrire d'ou:
For i = 1 To Feuil9.Range("CA1").Value
Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1
jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je
visualise 46 lignes ( L1>L46).
Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit
visible a l'écran
Merci de ton aide
Jacques Cléret
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret
FxM
Bonsoir Jacques,
Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran.
Tu ne pourras malheureusement pas être aussi précis que cela vu que chaque affichage dépend du matériel sur lequel on affiche (écran, carte graphique, zoom, paramètres, ...). Lance le fichier sur un autre PC et tu pourrais voir la ligne 50 ou 25 maxi.
En reprenant l'exemple de Thierry, tu peux obtenir un affichage qui ne va pas être fixe mais qui se déroulera seul.
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Exemple à adapter et vérifier
For i = 1 To Feuil9.Range("CA1").Value if i mod 20 = 0 then feuil9.cells(i,??).select
@+ FxM
Jacques Cléret wrote:
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret
Bonsoir Jacques,
Il faudrait, que des que la macro "écrit" la 47eme ligne que
celle-ci soit visible a l'écran.
Tu ne pourras malheureusement pas être aussi précis que cela vu que
chaque affichage dépend du matériel sur lequel on affiche (écran,
carte graphique, zoom, paramètres, ...). Lance le fichier sur un autre
PC et tu pourrais voir la ligne 50 ou 25 maxi.
En reprenant l'exemple de Thierry, tu peux obtenir un affichage qui ne
va pas être fixe mais qui se déroulera seul.
Je connais a l'avance le nombre de lignes à écrire d'ou:
For i = 1 To Feuil9.Range("CA1").Value
Mais après, je ne sais plus quoi écrire
Exemple à adapter et vérifier
For i = 1 To Feuil9.Range("CA1").Value
if i mod 20 = 0 then feuil9.cells(i,??).select
@+
FxM
Jacques Cléret wrote:
Merci pour ta réponse
J'ai essayé, mais c'est pas terrible
Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,,
<
<
<
Loop
Je connais a l'avance le nombre de lignes à écrire d'ou:
For i = 1 To Feuil9.Range("CA1").Value
Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1
jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je
visualise 46 lignes ( L1>L46).
Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit
visible a l'écran
Merci de ton aide
Jacques Cléret
Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran.
Tu ne pourras malheureusement pas être aussi précis que cela vu que chaque affichage dépend du matériel sur lequel on affiche (écran, carte graphique, zoom, paramètres, ...). Lance le fichier sur un autre PC et tu pourrais voir la ligne 50 ou 25 maxi.
En reprenant l'exemple de Thierry, tu peux obtenir un affichage qui ne va pas être fixe mais qui se déroulera seul.
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Exemple à adapter et vérifier
For i = 1 To Feuil9.Range("CA1").Value if i mod 20 = 0 then feuil9.cells(i,??).select
@+ FxM
Jacques Cléret wrote:
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret
Frédéric Sigonneau
Bonjour,
Une autre façon de faire possible :
Sub test() MaxLigne = 5000 'par exemple For i = 1 To MaxLigne Cells(i, 1) = i 'ou autre traitement If i > 25 And i Mod (25) = 0 Then _ Application.Goto Range("A" & i - 25), True Next End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Jacques Cléret a écrit:
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret
Bonjour,
Une autre façon de faire possible :
Sub test()
MaxLigne = 5000 'par exemple
For i = 1 To MaxLigne
Cells(i, 1) = i 'ou autre traitement
If i > 25 And i Mod (25) = 0 Then _
Application.Goto Range("A" & i - 25), True
Next
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Jacques Cléret a écrit:
Merci pour ta réponse
J'ai essayé, mais c'est pas terrible
Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,,
<
<
<
Loop
Je connais a l'avance le nombre de lignes à écrire d'ou:
For i = 1 To Feuil9.Range("CA1").Value
Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1
jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je
visualise 46 lignes ( L1>L46).
Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit
visible a l'écran
Merci de ton aide
Jacques Cléret
Sub test() MaxLigne = 5000 'par exemple For i = 1 To MaxLigne Cells(i, 1) = i 'ou autre traitement If i > 25 And i Mod (25) = 0 Then _ Application.Goto Range("A" & i - 25), True Next End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Jacques Cléret a écrit:
Merci pour ta réponse J'ai essayé, mais c'est pas terrible Mes lignes sont écrites par une boucle
Do While Feuil9.,,,,,,,,,,,,,,,,,,,,, < < < Loop
Je connais a l'avance le nombre de lignes à écrire d'ou: For i = 1 To Feuil9.Range("CA1").Value Mais après, je ne sais plus quoi écrire
Pour t'aider éventuellement, j'ai un "Index_écriture" qui avance de 1 jusqu'a prendre la valeur Feuil9.Range("CA1").Value
Le but du jeu final étant que au départ, à l'écran en "zoom" 75%, je visualise 46 lignes ( L1>L46). Il faudrait, que des que la macro "écrit" la 47eme ligne que celle-ci soit visible a l'écran Merci de ton aide Jacques Cléret