Remplir tableau automatique

Bonjour,

J'ai créé un tableau excel pour le saisie de code barre automatique. C'est à dire que lorsque je clique sur un bouton, ça me demande le premier n° à saisir puis le dernier. Ensuite ça me rempli automatiquement mon tableau. Pour exemple, voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub code() Dim val As Long Dim i, j As Integer i = 1 j = 1 val = Application.InputBox("Entrer le premier N°") valfin = Application.InputBox("Entrer le dernier N°") While j <= nbreColonne While i <= nbreLigne Cells(i, j).Value = "*" & val & "*" & Chr(10) & val With Cells(i, j).Characters(Start:=1, Length:=9).Font .Name = "CODABAR" .Size = 12 End With With Cells(i, j).Characters(Start:=10, Length:=8).Font .Name = "ARIAL" .Size = 7 End With val = val + 1 If val <= valfin Then i = i + 1 Else Exit Sub End If Wend i = 1 j = j + 1 Wend End Sub

---

Ce code fonctionne super bien si on a une liste de n° consécutifs à sortir. Ce que j'aimerais faire c'est pouvoir remplir le tableau cellule après cellule avec des n° non consécutifs. Il faudrait donc que lorsque je clique sur mon bouton, je puisse inscrire mon n° et que ça l'inscrive sur la première cellule vide de mon tableau. Malheureusement ça dépasse quelque peu mes connaissances... Donc si quelqu'un aurait une idée, je suis preneur !

Il suffit, avant de rentrer dans la boucle, que tu fixes au départ de ta macro i = dernier N° de ligne renseignés + 1

Code:

---

i = Range("A1").end(xlDown).row + 1

---

Une question : Tu veux remplir un N° à la fois ou plusieurs N° à la suite.
A+

Si je pouvais en saisir plusieur à la suite, ce serait encore mieux ! Mais il y a certainement plus que ça à modifier. Avec le code que j'ai actuellement, je rentre le n° de départ (par exemple : 1) et le chiffre de fin (10) et ça me rempli mon tableau de A1 à A10 (1, 2,...,10). Hors ce que j'aimerai, c'est que je puisse rentrer les n° de manière aléatoire 1, 3, 7, 15,... et que ça me remplisse (avec le même format) les cellule A1, A2, A3, A4,...

Est-ce plus claire ?

C'est bien sûr possible mais là, tu vas devoir expliquer ce que tu fais, ligne par ligne car je ne suis pas certain d'avoir bien compris.
Tu saisis tes données ligne par ligne, une colonne, puis une suivante...
Combien de colonnes par ligne ?
A+

Je souhaiterai cliquer sur mon bouton, inscrire un n°, que ça me le note de la format voulu (v. code plus haut) dans la cellule A1. Ensuite si je clique à nouveau sur mon bouton et que j'entre un autre n°, il faudrait que ça me l'inscrive dans la prochaine cellule vide (en l'occurence A2), etc. Bien entendu, il faut que je supprime de mon code de base le "valfin" (entre autre...). Ceci se fait colonne par colonne par colonne (30) et ligne par ligne (36).

Tu as plusieurs colonnes ou n'en as-tu qu'une seule ?

J'en ai plusieur ! ça va jusqu'à la ligne 36 ensuite ça passe à la 2ème colonne et ainsi de suite jusqu'à la 30ème colonne. Ceci pour autant que la quantité de chiffre demandé l'exige...

Je me suis repenché sur mon problème et il y a du mieux... En modifiant un peu mon code de base, j'arrive à remplir ma première colonne mais ça coince dès lors que je passe à la deuxième ! Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub code() Dim val As Long Dim i, j As Integer j = 1 i = Columns(1).Find("", Range("a65536"), , , xlByRows).Row val = Application.InputBox("Entrer le N°") While j <= nbreColonne While i <= nbreLigne Cells(i, j).Value = "*" & val & "*" & Chr(10) & val With Cells(i, j).Characters(Start:=1, Length:=9).Font .Name = "CODABAR" .Size = 12 End With With Cells(i, j).Characters(Start:=10, Length:=8).Font .Name = "ARIAL" .Size = 7 End With val = val + 1 If val <= valfin Then Else Exit Sub End If Wend i = 1 j = j + 1 Wend End Sub

---

Je pense que je ne suis pas loin mais je ne vois pas comment faire...

Tu dois un peu modifier la structure de ton code
Déjà remplace cette lligne
i = Columns(1).Find("", Range("a65536"), , , xlByRows).Row
par

Code:

---

i = Columns(j).Find("", Cells(65536, j), , , xlByRows).Row

---

Ensuite, déplace cette même ligne et mets là ici

Code:

---

1 2 3 4

val = Application.InputBox("Entrer le N°") While j <= nbreColonne i = Columns(j).Find("", Cells(65536, j), , , xlByRows).Row While i <= nbreLigne

---

Ensuite, supprime ta ligne

Citation:

---

i = 1

---

ici

Code:

---

1 2 3

Wend j = j + 1 Wend

---

Tu dis
A+

PS - D'où sors-tu le nbreLigne dans ton While ? Idem pour nbreColonne

Citation:

---

While j <= nbreColonne
While i <= nbreLigne

---

Ensuite je n'ai pas compris, tu relances ta macro pour chaque ligne ? pour chaque colonne ? pour chaque valeur de Val ?
Enfin, n'utilise jamais un mot clé comme variable. Et Val est un mot clé.

Super, ça fonctionne :yaisse2:

Merci beaucoup !

Pour le nombre de ligne et colonne, j'ai ça avant

Code:

---

1 2	Const nbreColonne As Long = 30 Const nbreLigne As Long = 36

---

Et pour répondre à ta question, oui je relance ma macro pour chaque code barre que je dois créer... Je ne vois pas d'autre alternative pour sortir des n° de code barre aléatoires. Mais si tu as une autre idée, je suis preneur...

Tout dépend de ta procédure créant tes codes... Juste une question : Vérifies-tu que le code qui "sort" n'existe pas déjà ?
Pour ta question, tu pourrais mettre un appel à cette procédure dans une boucle qui englobe les deux autres, boucle dont tu sorts si ton "Input" est vide.

Code:

---

1 2	var = Application.InputBox("Entrer le N°") if var = "" then exit sub

---

Juste une idée

Citation:

---

Vérifies-tu que le code qui "sort" n'existe pas déjà ?

---

J'avoue ne pas comprendre ta question...

Pour ce qui est de la boucle, ça me semble être une bonne idée, je vais voir si j'arrive à faire quelque chose de ce sens ! :king:

Citation:

---

Envoyé par toi

Je ne vois pas d'autre alternative pour sortir des n° de code barre aléatoires

---

si tes N° sont aléatoires, tu ne peux pas savoir ce qu'ils seront avant... et quand un nouveau N° "sortira", tu ne peux pas savoir s'il n'est pas déjà "sorti"... Et comme je ne connais pas la méthode utilisée pour les obtenir de manière aléatoire, je ne peux que supposer. Voilà !

Oups, je crois que je me suis mal exprimé... Quand je disais de manière aléatoire c'était par rapport à mon premier code... Dans mon premier cas, j'ai une liste de n° consécutifs (je renseigne le premier et le dernier). Dans mon deuxième cas, j'ai également une liste de n° mais qui ne se suivent pas. Ils sont cependant fixés à l'avance. Je dois par contre les rentrer un par un en activant à chaque fois ma macro (pour le moment...)