Le code qui va bien

Le
Jacques Cléret
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #1291892
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" 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
Le #1223186
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"
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" 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
Le #1291883
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
Le #1223377
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




Frédéric Sigonneau
Le #1285905
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




Publicité
Poster une réponse
Anonyme