Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$1@speranza.aioe.org...
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com
Re..Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Désactive momentanément l'actualisation de l'écran, comme il y a théoriquement 363 affichages avec la boucle,
cela fera gagner quelque nanoseconde ;o))
En pratique je dirai, complètement inutile dans CE CAS.......;o)
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Non, a condition que cette macro reste en l'état.
N = N + 1
Placé avant
C.Value = N
Comme N est déclaré "integer" à chaque lancement, elle est à zéro par défaut sauf si elle est déclarée public.Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
AV était pendant longtemps un de mes maitres.
J'aimais bien aussi ses "remises dans le droit chemin", quelquefois très virulentes.
Dommage de ne plus le voir ici.
Re..
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Désactive momentanément l'actualisation de l'écran, comme il y a théoriquement 363 affichages avec la boucle,
cela fera gagner quelque nanoseconde ;o))
En pratique je dirai, complètement inutile dans CE CAS.......;o)
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Non, a condition que cette macro reste en l'état.
N = N + 1
Placé avant
C.Value = N
Comme N est déclaré "integer" à chaque lancement, elle est à zéro par défaut sauf si elle est déclarée public.
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
AV était pendant longtemps un de mes maitres.
J'aimais bien aussi ses "remises dans le droit chemin", quelquefois très virulentes.
Dommage de ne plus le voir ici.
Re..Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Désactive momentanément l'actualisation de l'écran, comme il y a théoriquement 363 affichages avec la boucle,
cela fera gagner quelque nanoseconde ;o))
En pratique je dirai, complètement inutile dans CE CAS.......;o)
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Non, a condition que cette macro reste en l'état.
N = N + 1
Placé avant
C.Value = N
Comme N est déclaré "integer" à chaque lancement, elle est à zéro par défaut sauf si elle est déclarée public.Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
AV était pendant longtemps un de mes maitres.
J'aimais bien aussi ses "remises dans le droit chemin", quelquefois très virulentes.
Dommage de ne plus le voir ici.
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c]
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$1@speranza.aioe.org...
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Juste une 2° question: ne faut-il pas poser au départ N=1 ?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$
Bonjour en ce dimanche de Pâques
'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com