kobejul08
Messages postés113Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention 3 octobre 2005
-
2 juin 2005 à 10:33
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
2 juin 2005 à 11:03
voilà le code que je compte employé pour exporter mes données dans un classeur excel
Seulement j'aimerais que si je ne mets rien dans quantité que ma ligne excel ne s'affiche pas vide comme pour le moment... je pense que ça doit etre tout con a résoudre mais bon.. Merci
donc voilà:
Dim Row
' Recherche la dernière ligne utilisée
Row = ActiveSheet.UsedRange.Row
Row = Row + 1
With ActiveSheet
If TxtQuantité.Text <> "" Then
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
monxl.Cells(Row + 1, 1).Value = Txtdétails1.Text
monxl.Cells(Row + 1, 2).Value = TxtQuantité1.Text
monxl.Cells(Row + 1, 3).Value = Txtprix1.Text
End If
End With
With ActiveSheet
If TxtQuantité2.Text <> "" Then
monxl.Cells(Row + 2, 1).Value = Txtdétails2.Text
monxl.Cells(Row + 2, 2).Value = TxtQuantité2.Text
monxl.Cells(Row + 2, 3).Value = Txtprix2.Text
End If
End With