[RESOLU] Excel - mini "challenge" : compter de 1 en 1 tout les 20

Marsh Posté le 26-07-2006 à 22:51:22

Salut,

J'aimerai compter de 1 en 1 tout les 20 sous exel de facon automatiser pour remplir mon tableau

Je m'exeplique en vous donnant cet exemple : J'espere que vous comprendrez

Code :

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
4
4
4
.
.
...etc

je dois arriver au nombre : 320 Ce qui veux dire 320 * 20 = 6400 chiffre à taper donc vous comprenez pourquoi j'ai besoin d'automatiser tout cela !

Je vous remerci pour votre aide

Message édité par Usernet le 26-07-2006 à 23:45:44

Reply

Marsh Posté le 26-07-2006 à 22:51:22

Reply

Marsh Posté le 26-07-2006 à 23:02:06

Tu fais tes 20 premières ligne de 1.
Ligne 21: "=A1+1"
Copier/coller de la ligne 21 sur les lignes de 22 à 40.
Copier/coller des 21 à 40 sur les reste jusqu'au nombre souhaité.

Pour quelque chose de plus automatisé, je crois que tu devras passer par du VBA

Message édité par RiderCrazy le 26-07-2006 à 23:02:27

Reply

Marsh Posté le 26-07-2006 à 23:24:19

+1 pour le vba :
dans vb editor (alt f11 depuis excel), a gauche tu cliques-droit sur thisworkbook, puis inserer...module
Dans le module, tu colles :

Code :

Sub routine_de_feignant()
Dim ligne, i, j
ligne = 1 #a changer si tu pars d'une autre ligne
compteur= 1
While compteur < 321
For j = 1 To 20
Range("A" & ligne).Value = compteur #changer le A si tu veux une autre colonne
ligne = ligne + 1
Next
compteur = compteur + 1
Wend
End Sub

et tu lances l'execution (F5)...

edith est pointilleuse : la, ca colle les chiffres dans les cellulles de A1 à A6400...a adapter selon ton besoin

Message cité 2 fois
Message édité par karoli le 26-07-2006 à 23:27:15

Reply

Marsh Posté le 26-07-2006 à 23:45:11

karoli a écrit :

+1 pour le vba :
dans vb editor (alt f11 depuis excel), a gauche tu cliques-droit sur thisworkbook, puis inserer...module
Dans le module, tu colles :

Code :

Sub routine_de_feignant()
Dim ligne, i, j
ligne = 1 #a changer si tu pars d'une autre ligne
compteur= 1
While compteur < 321
For j = 1 To 20
Range("A" & ligne).Value = compteur #changer le A si tu veux une autre colonne
ligne = ligne + 1
Next
compteur = compteur + 1
Wend
End Sub

et tu lances l'execution (F5)...

edith est pointilleuse : la, ca colle les chiffres dans les cellulles de A1 à A6400...a adapter selon ton besoin

MOUUUUUUUUUUUUUUUUUAAAAAAAAAAAH ! :love:
toi je t'adore !

Merci man pour ton aide

A+

Reply

Marsh Posté le 26-07-2006 à 23:52:04

de rien

Reply

Marsh Posté le 27-07-2006 à 22:15:15

héhé, bande de geeks

plus simple : dans la cellule B1, met la formule
=ENT((A1-1)/20)+1

et recopie sur toute la colonne !

Message cité 1 fois
Message édité par Prozac le 28-07-2006 à 08:43:24

---------------
La ligne droite n'est en aucun cas le plus court chemin entre deux points. Sauf, bien sûr, si les deux points sont bien alignés l'un en face de l'autre

Reply

Marsh Posté le 28-07-2006 à 07:47:58

Bonjour,
t'es certain?
j'ai testé cela ne me donne rien
Cordialement

Reply

Marsh Posté le 28-07-2006 à 08:35:20

Au temps pour moi : la fonction INT (en anglais) s'appelle ENT dans les versions françaises, j'ai corrigé mon message

Message édité par Prozac le 28-07-2006 à 08:43:36

Reply

Marsh Posté le 28-07-2006 à 11:26:14

Prozac a écrit :

héhé, bande de geeks
...

:whistle:

on s'refait pas !!!

Reply

[RESOLU] Excel - mini "challenge" : compter de 1 en 1 tout les 20

Sujets relatifs:

Leave a Replay