Création de série de chiffre.

  • Initiateur de la discussion Initiateur de la discussion Icedarts
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Icedarts

XLDnaute Occasionnel
Bonjour à tous,
Voila j'ai un classeur avec une macro qui fonctionne très bien mais je voudrais aller plus loin. (je mets le classeur en lien car je n'ai pas la possibilité de faire des .zip)
Donc la feuille "test opérateur" renvoi des données sur la feuille "opérateur".
Il faut récupérer la colonne B et créer une série de chiffre pour chaque chiffre dans la feuille "pour le classeur 2".
La série doit être de la forme le chiffre + 0001 à 0050 comme je c'est actuellement sauf que la je l'ai fait manuellement lol.
Merci d'avance pour votre aide.
http://cjoint.com/?fgb3VALdrP
 
Re : Création de série de chiffre.

Bonjour,
Le but de ce forum est d'aider les personnes...
Si ton fichier est mis sur ce site autrement qu'avec un fichier (compilé ou non) dans 48 h ta question est bonne pour la poubelle...
Donc pour zipper tes fichiers télécharge IZARC (il est léger, gratuit et il va très bien)
IZArc : Logiciel libre équivalent à WINZIP

Pour ton problème il existe une commande qui donne des nombres aléatoires
RANDOMIZE voir exemple ci joint (avec la mise en forme souhaitée)

Sub temp()
Cells.Clear
For i = 1 To 50
For j = 1 To 50
Randomize ' Initialise le générateur de nombres aléatoires.
' Renvoie une valeur aléatoire comprise entre 1 et 2500
Cells(i, j).Value = Int((2500 * Rnd) + 1)
Cells(i, j).NumberFormat = "0000"
Next j
Next i
End Sub

A+ François
 
Re : Création de série de chiffre.

Voila donc le fichier en .zip
Merci Fanfan pour le logiciel!
Par contre pour la sub ça ne va pas.
Sur la feuille il ne faut pas une série àléatoire.
Je vous donne un exemple.
Si en feuille opérateur il y a:
le chiffre 3 en colonne B il faut créer une série de nombre dans la feuille "pour classeur 2"
Cette série doit être de la forme:
3+0001 à 0050 soit
30001
30002
30003
30004
30005
30006
30007
30008
30009
30010
30011
30012
30013
30014
30015
30016
30017
30018
30019
30020
30021
30022
30023
30024
30025
30026
30027
30028
30029
30030
30031
30032
30033
30034
30035
30036
30037
30038
30039
30040
30041
30042
30043
30044
30045
30046
30047
30048
30049
30050
et s'il y avait le nombre 10 dans la colonne B il faudrait la série
10 + 0001 à 0050.
Pour chaque chiffre en feuille "opérateur" créer une série de cette forme en feuille "pour classeur 2".
Voili voilou.
 

Pièces jointes

Re : Création de série de chiffre.

Bonjour
J'espere que cette macro correspond à ton souhait...
Sub numero()
dim i as integer, j as integer, lg as integer, mavar as integer
For i = 1 To Range("a65536").End(xlUp).Row
mavar = Sheets("operateur").Cells(i, 2).Value
lg = Len(CStr(mavar))
If lg = 1 Then
mavar = mavar * 10000
Else
mavar = mavar * 1000
End If
For j = 1 To 50
Sheets("pour le classeur 2").Cells(j, i).Value = mavar + j
Next
Next
End Sub

A+ François
 
Re : Création de série de chiffre.

Bonjour à tous,

Peux-tu essayer en A1 de la feuille "pour classeur 2" :

Code:
=INDIRECT("Opérateur!$B"&COLONNE()+1)
et tirer vers la droite

et en A2 dela même feuille :
Code:
=A$1*10000+LIGNE()-1
et tirer vers la droite et vers le bas

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
457
Réponses
0
Affichages
506
Retour