kobejul08
Messages postés113Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention 3 octobre 2005
-
3 juin 2005 à 12:19
kobejul08
Messages postés113Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention 3 octobre 2005
-
3 juin 2005 à 15:54
Après avoir réaliser un control array pour éviter une longue liste de code ... le seul hic c'est qu'après le For i = 0 To 33 ... je sais pas trop comment faire
Dim Row
' Recherche la dernière ligne utilisée
Row = ActiveSheet.UsedRange.Row
'Row = Row + 1
With ActiveSheet
If TxtQuantité.Text <> "" Then
Row = Row + 1
monxl.Cells(Row, 1).Value = TxtMachine.Text
monxl.Cells(Row, 2).Value = TxtQuantité.Text
monxl.Cells(Row, 3).Value = TxtPrix.Text
End If
End With
With ActiveSheet
If TxtQuantité1.Text <> "" Then
Row = Row + 1
monxl.Cells(Row, 1).Value = Txtdétails1.Text
monxl.Cells(Row, 2).Value = TxtQuantité1.Text
monxl.Cells(Row, 3).Value = Txtprix1.Text
voici mon ancien code
j'ai transformé txtquantité1 en txtquantité1(0) etc
txtprix1 en txtprix1(0)
txtdétails1 en txtdétails1(0) ..........
kobejul08
Messages postés113Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention 3 octobre 2005 3 juin 2005 à 13:42
j'ai fait un control array sur les champs que tu vois au dessus et je mets
un For i = 1 To 33 puis ensuite je sais pas comment faire en fait ce que tu vois en dessus c'est le début de mon ancien code avant que je fasse un control array et j'ai 34 champs alors j'aimerais qu'on me dise comment je dois mettre ça en place maintenant
kobejul08
Messages postés113Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention 3 octobre 2005 3 juin 2005 à 15:54
Est ce que quelqu'un peut m'aider sur le code a mettre maintenant je suis bloqué merci
Donc For i = 0 To 33
With ActiveSheet
If TxtQuantité.Text <> "" Then
Row = Row + 1
monxl.Cells(Row, 1).Value = TxtMachine1(0,33).Text
monxl.Cells(Row, 2).Value = TxtQuantité1(0,33).Text
monxl.Cells(Row, 3).Value = TxtPrix1(0,33).Text
End If
End With
QUI peut m'aider?