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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU] Excel - mini "challenge" : compter de 1 en 1 tout les 20

Usernet

Since 2004

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

Publicité

RiderCrazy

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

karoli

+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

Usernet

Since 2004

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+

karoli

de rien

Prozac

Tout va bien

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

seniorpapou

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

Prozac

Tout va bien

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

karoli

Prozac a écrit :

héhé, bande de geeks
...

:whistle:

on s'refait pas !!!

FORUM HardWare.fr

Windows & Software

Logiciels

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

Sujets relatifs
Monitoring wifi sous windows [Résolu]	Excel, generation de feuilles excel a partir de donnees
[Résolu] Message Norton 2005	[resolu]logiciel pour graver une image
Connection limitée ou inexistante ? (wifi) [résolu]	[resolu]prb de fax sur 2003 SBS
[résolu] Cherche winamp swordsman plugin	[résolu] Supprimer la connexion automatique à l'ouverture
[Résolu] Apache fonctionne en localhost... pas autrement...	Tableau excel vers word?
Plus de sujets relatifs à : [RESOLU] Excel - mini "challenge" : compter de 1 en 1 tout les 20

Page générée en 0.042 secondes