Salut;
Quand écrire numéro 10 sur TexBox1 il écrire le contenu de TextBox2 10 fois sur les cellules :
Quand écrire numéro n sur TexBox1 il écrire le contenu de TextBox2 n fois sur les cellules :
Private Sub CommandButton1_Click()
Dim lign%, col%
lign = 2
col = 1
For i = 1 To Val(TextBox1)
If lign <= 38 Then
Cells(lign, col) = TextBox2
lign = lign + 2
Else
lign = 2
col = col + 3
Cells(lign, col) = TextBox2
End If
Next
End Sub
Sieur kjin:
Êtes-vous sur d'avoir posté dans le bon fil?
Pourquoi avoir choisi, celui-ci et pas les deux autres? PS: J’attends toujours ma réponse à la charade (j'ai répondu en MP à la tienne)
roross:
Tu n'aurais pas un fichier exemple (sous le coude gauche) à joindre à ta question pas harsard?
Histoire de pouvoir faire des tests.
Bonjour; kjin
Merci pour ta repense mais
2 problèmes
1er problème j'ai 3 instructions = 3 TextBox
2éme problème Comment démarrer aprés la dernière instruction autre compteur
exemple ci-joint
Bonjour,
Prends l'habitude de désactiver les automatismes d'ouverture, c'est très désagréable !
Les variables lign et col était initialisées à l'ouverture du userform par le biais de la sub EffaceEtiquettes()
Code:
Private Sub UserForm_Initialize()
CB1.SetFocus
With Worksheets("Stock")
CB1.List = .Range("A3:A" & .Range("A65536").End(xlUp).Row).Value
End With
EffaceEtiquettes
End Sub
Sub EffaceEtiquettes()
Feuil2.Range("A2:W39").ClearContents
lign = 2 'ici
col = 1 'ici
End Sub
Mais tu as désactivé cette procédure !
Il faut donc les réintégrer comme ceci
Code:
Private Sub UserForm_Initialize()
CB1.SetFocus
With Worksheets("Stock")
CB1.List = .Range("A3:A" & .Range("A65536").End(xlUp).Row).Value
End With
lign = 2 'ici
col = 1 'ici
End Sub
Ici, c'est un espace commun d'entraide et de partage et il serait dommage que tu te prives de la contribution de chacun....
Néanmoins, j"ai jeté un oeil et je ne vois pas de facture et dans ton bon de livraison, je ne vois pas trace de n° de facture non plus, ce qui serait quand même utile lorsque tu veux savoir si cette facture est soldée. A moins que tu ne fasses un cumul par client, mais là c'est un fonctionnement que je ne connais pas
A+
kjin