Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Regarde et ajout, sinon passe au suivant

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Manu62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Manu62

XLDnaute Impliqué
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
 
Trier par date Trier par votes
Re : Regarde et ajout, sinon passe au suivant

(re)Bonjour,
Manu à dit:
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.
Cliquez pour agrandir...
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 😀 )
 
Vote positif 0 Vote négatif
Re : Regarde et ajout, sinon passe au suivant

Bonjour a essayer/
A++
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
754
un internaute
U
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
K
  • Question Question
Microsoft 365 Comment afficher des infos d'un fichier ouvert avec "GetOpenFileName"
Réponses
11
Affichages
889
fanch55
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
M
  • Résolu(e)
XL 2016 Fonction .select et curseur
Réponses
6
Affichages
863
maroon
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
I
  • Question Question
Format HH:MM supérieur à 24h
Réponses
2
Affichages
1 K
Ian83
I
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
L
  • Résolu(e)
XL 2010 Aide code VBA
Réponses
3
Affichages
888
ludo170967
L
R
  • Résolu(e)
XL 2016 Lister fichiers avec Exifs et propriétés (suivant son choix) - code à modifier
10 11 12
Réponses
167
Affichages
18 K
re4
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…