Discussion :

[Didpa]

Bonjour

Voilà je me suis aventuré dans les boucles, mais voilà je ne maitrise pas du tout.....lol
J'ai cherché un peu partout, mais je n'ai pas trouvé ma solution.
un usf avec des labels et des textbox qui se remplissent, à l'initialisation il ne me reste plus qu'a remplir la TB quantité.

Lab_Art, prérempli
TB_Nbre, à remplir


Lab_Art et TB_Nbre vont de 1 à 5 (Lab_Art1, et TB_Nbre1 et comme cela jusqu'à 5)

donc quand je clic sur le CB, les donnée doivent aller dans un tableau, en B24 e ensuite le complèter.

Avec ma boucle je voulais dire, si le Lab_Art est vide passe au suivant
sinon inscrit dans la case B24, si celle ci n'est pas vide, sinon descend d'une ligne. et qu'il passe en revue tous les Lab_Art.

Mais voilà, même quand je rentre des chiffres style 7,8,9 dans mais TB_Nbre, mon tableau se remplis de 1 à 5 dans les deux colonnes.

Volià cela fait 2 jours que je bidouille tout seul mais je n'y arrive pas. Merci d'avance.
J'espère avoir été assé clair dans mes explications....
Voir après Détail de la Facture

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
30
31
Private Sub CB_valide_Click()
Dim i As Integer
Worksheets("Facture").Activate
Range("C12").Select
ActiveCell = TB_Nom & " " & TB_Prenom
Range("C17").Select
ActiveCell = CDec(TB_NFacture)
Range("C18").Select
ActiveCell = TB_Ref
Datev = InputBox("entrez la date de réservation (jj/mm/aaaa)", "Date de Réservation", CDate(Date))
Range("C19").Select
ActiveCell = CDate(Datev)
'----------------------Détail de la Facture------------------------------
Range("B24").Select
 
    For i = 1 To 5
    For j = 1 To 5
    If Lab_Artj = "" Then
    End If
     Next j
        if activecell = "" then
        ActiveCell = CDec(Tb_Nbre & i)
        ActiveCell.Offset(0, 1) = Lab_Art & i
    else
        ActiveCell.Offset(1, 0).Select
        ActiveCell = CDec(Tb_Nbre & i)
        ActiveCell.Offset(0, 1) = Lab_Art & i
    end if 
Next i
 
End Sub

Voilà, ce que j'aimerais que cela fasse mais avec une boucle.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CB_valide_Click()
Dim i As Integer
Worksheets("Facture").Activate
Range("C12").Select
ActiveCell = TB_Nom & " " & TB_Prenom
Range("C17").Select
ActiveCell = CDec(TB_NFacture)
Range("C18").Select
ActiveCell = TB_Ref
Datev = InputBox("entrez la date de réservation (jj/mm/aaaa)", "Date de Réservation", CDate(Date))
Range("C19").Select
ActiveCell = CDate(Datev)
'----------------------Détail de la Facture------------------------------
Range("B24:C28").ClearContents
Range("B28").End(xlUp).Offset(1, 0).Select 'Range("B24").Select
'For i = 1 To 5
 
If TB_Nbre1 = "" Then
Else
    ActiveCell = CDec(TB_Nbre1)
    ActiveCell.Offset(0, 1) = Lab_Art1.Caption
    ActiveCell.Offset(1, 0).Select
End If
 
If TB_Nbre2 = "" Then
Else
    ActiveCell = CDec(TB_Nbre2)
    ActiveCell.Offset(0, 1) = Lab_Art2.Caption
    ActiveCell.Offset(1, 0).Select
End If
 
If TB_Nbre3 = "" Then
Else
    ActiveCell = CDec(TB_Nbre3)
    ActiveCell.Offset(0, 1) = Lab_Art3.Caption
    ActiveCell.Offset(1, 0).Select
End If
If TB_Nbre4 = "" Then
Else
    ActiveCell = CDec(TB_Nbre4)
    ActiveCell.Offset(0, 1) = Lab_Art4.Caption
    ActiveCell.Offset(1, 0).Select
End If
 
If TB_Nbre5 = "" Then
Else
    ActiveCell = CDec(TB_Nbre5)
    ActiveCell.Offset(0, 1) = Lab_Art5.Caption
    ActiveCell.Offset(1, 0).Select
End If
'Next i
End Sub

Merci

[gFZT82]

Bonjour,

Essaie avec ce 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
Private Sub CB_valide_Click()
Dim i As Integer
With Worksheets("Facture")
    Range("C12") = TB_Nom & " " & TB_Prenom
    Range("C17") = CDec(TB_NFacture)
    Range("C18") = TB_Ref
    Datev = InputBox("entrez la date de réservation (jj/mm/aaaa)", "Date de Réservation", CDate(Date))
    Range("C19") = CDate(Datev)
    '----------------------Détail de la Facture------------------------------
    Range("B24:C28").ClearContents
    For i = 1 To 5
        If Controls("TB_Nbre" & i) <> "" Then
            Range("B24").Offset(i - 1, 0) = CDec(Controls("TB_Nbre" & i))
            Range("B24").Offset(i - 1, 1) = Controls("Lab_Art" & i).Caption
        End If
    Next i
End With
End Sub

Cordialement.

[Didpa]

Merci à toi gFZT82

Vu le résultat, je me dit que j'aurais encore cherché longtemps........lol

Merci