Regarde et ajout, sinon passe au suivant

[Manu62]

Bonjour à tous,

J'ai créer un petit programme de facturation.
Pour cela, j'utilise des USF...

Lors d'ajout de données, j'alimente une base de factures. jusque la pas de prob.

Ensuite avant de remettre a zéro mon USf, j'ajoute aussi les données dans un autre onglet pour "créer une écriture comptable".

J'aimerais bien lorsque j'arrive a ma ligne 2, il regarde que mon label (par exemple) soit rempli si vide, alors il passe au label suivant et si quelque chose j'ajoute.

Ci dessous un extrait de mon code .
'fin ajou dans la bd facture
Sheets("factures").Cells(ligne, 55) = CDbl(Me.TVA)
Sheets("factures").Cells(ligne, 56) = CDbl(Me.TTC)
Sheets("factures").Cells(ligne, 57) = Me.comm

'début écriture comptable
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
'Ecriture ligne 1
Sheets("Compta").Cells(ligne, 1) = CDbl(Me.N°3)
'ligne en cours d'éssai prob de format...
Sheets("Compta").Cells(ligne, 2) = Me.DTPicker1 & Format(Date, "ddmmyy")
Sheets("Compta").Cells(ligne, 3) = CDbl(Me.Label64)
Sheets("Compta").Cells(ligne, 4) = CDbl(411000)
Sheets("Compta").Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000")
Sheets("Compta").Cells(ligne, 6) = Me.TextBox4
Sheets("Compta").Cells(ligne, 7) = CDbl(Me.TTC)
Sheets("Compta").Cells(ligne, 11) = G
'Ecriture ligne 2 tva
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
Sheets("Compta").Cells(ligne, 1) = CDbl(Me.N°3)
Sheets("Compta").Cells(ligne, 2) = Format(Date, "ddmmyy") & Me.DTPicker1
Sheets("Compta").Cells(ligne, 4) = CDbl(Me.Label63)
Sheets("Compta").Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000")
Sheets("Compta").Cells(ligne, 6) = Me.TextBox4
Sheets("Compta").Cells(ligne, 8) = CDbl(Me.TVA)
Sheets("Compta").Cells(ligne, 11) = G
'ecriture ligne 3 article1 a 8
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1

J'espère que j'ai été clair

Merci de vos info

Emmanuel

 

[Épaf]

Re : Regarde et ajout, sinon passe au suivant

(re)Bonjour,

J'aimerais bien lorsque j'arrive a ma ligne 2, il regarde que mon label (par exemple) soit rempli si vide, alors il passe au label suivant et si quelque chose j'ajoute.

Je ne comprends pas bien ce que tu entends par là.
Où se trouvent tes labels ? "J'aimerais"... "j'arrive" ... "il regarde"... Qui ça ? Où ça ? 😎

(oui, je me moque un peu mais c'est gentil 😀 )

 

[Manu62]

Re : Regarde et ajout, sinon passe au suivant

Bjr,

Je vais faire un petit exemple.

Ce sera plus facile

Manu

 

[Manu62]

Re : Regarde et ajout, sinon passe au suivant

Salut,

Voici un exemple très simplifier

Merci d'avance

manu

 

[roro69]

Re : Regarde et ajout, sinon passe au suivant

Bonjour a essayer/

Private Sub CommandButton1_Click()
ligne = Sheets("feuil1").[A65000].End(xlUp).Row + 1
On Error Resume Next
With Sheets("feuil1")
.Cells(ligne, 1) = CDbl(Me.TextBox1)
.Cells(ligne, 2) = CDbl(Me.TextBox2)
.Cells(ligne, 3) = CDbl(Me.TextBox3)
.Cells(ligne, 4) = CDbl(Me.TextBox4)
End With
End Sub

A++

 

[Manu62]

Re : Regarde et ajout, sinon passe au suivant

Bonjour,

Cela fonctionne.

merci à vous deux

Je vous tiens au courant si prob

Manu

 

[Manu62]

Re : Regarde et ajout, sinon passe au suivant

Bonjour,

J'ai fait le code et visblement j'ai un soucis quelque part, pouvez vous m'aider

merci d'avance

Private Sub CommandButton4_Click()
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
On Error Resume Next
With Sheets("Compta")
'Ecriture ligne 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 3) = CDbl(Me.Label64)
.Cells(ligne, 4) = CDbl(411000)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 7) = CDbl(Me.TTC)
.Cells(ligne, 11) = "G"
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
'Ecriture ligne tva
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label63)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.TVA)
.Cells(ligne, 11) = "G"
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
'Ecriture ligne art 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label55)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant1)
.Cells(ligne, 11) = "G "
'Ecriture ligne art 2
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label56)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant2)
.Cells(ligne, 11) = "G "
'Ecriture ligne art 3
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label57)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant3)
.Cells(ligne, 11) = "G"
'Ecriture ligne art 4
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label58)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant4)
.Cells(ligne, 11) = "G"
'Ecriture ligne art 5
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label59)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant5)
.Cells(ligne, 11) = "G"
'Ecriture ligne art 6
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label60)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant6)
.Cells(ligne, 11) = "G"
'Ecriture ligne art 7
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label61)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant7)
.Cells(ligne, 11) = "G "
'Ecriture ligne art 8
ligne = Sheets("Compta").[A65000].End(xlUp).Row + 1
.Cells(ligne, 1) = CDbl(Me.col1)
.Cells(ligne, 2) = Format(CDbl(DTPicker1), "ddmmyy")
.Cells(ligne, 4) = CDbl(Me.Label62)
.Cells(ligne, 5) = Format(Date, "yyyyddmm") & "_" & Format(Me.N°3, "000") & " " & Me.choixclient
.Cells(ligne, 6) = Me.TextBox4
.Cells(ligne, 8) = CDbl(Me.montant8)
.Cells(ligne, 11) = "G "
End With
End Sub

Manu

 

[Manu62]

Re : Regarde et ajout, sinon passe au suivant

Bjr à tous,

Un petit hop,

Merci d'avance

Manu