Discussion :

[tarmin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[tarmin]

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 ?

[ouskel'n'or]

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+

[tarmin]

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).

[ouskel'n'or]

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