écrire dans la première cellule vide d'une colonne de 8 cellules

[friendxconnect]

bonjour à tous
voilà j'essaie de réaliser un fichier pour imprimer un ticket de caisse.
j'ai mis des boutons (ils ne sont pas tous fonctionnels) qui m'écrivent un article sur le ticket qui est à gauche.
ça marche si je ne mets qu'un article.
le 2 ème article je souhaiterais qu'il s'écrive à la première cellule vide.
une idée
Merci d'avance
Bruno

 

[Dull]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Salut friendxconnect, le Forum

Peut être comme cela

Option Explicit
Dim DerLig As Long

Sub Bouton1_QuandClic()
DerLig = Feuil1.Range("C" & Rows.Count).End(xlUp).Row + 1

Cells(DerLig, 2) = "1"
Cells(DerLig, 3) = "shampoing coupe homme"
Cells(DerLig, 4) = "19"
End Sub

a faire de même pour les autres articles
Bonne Journée

 

[gilbert_RGI]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Bonjour

un truc dans le genre ?

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

merci à vous je vais essayer

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

super ça marche impec.
vous avez peut être une idée pour que si je tape 2 fois sur la même touche ça s’additionne:
1 coupe homme 19,00
1 coupe homme 19,00
deviendrait:
2 coupe homme 38,00
mais c'est déjà bien comme ça
merci d'avnace
Bruno

 

[gilbert_RGI]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

super ça marche impec.
vous avez peut être une idée pour que si je tape 2 fois sur la même touche ça s’additionne:
1 coupe homme 19,00
1 coupe homme 19,00
deviendrait:
2 coupe homme 38,00
mais c'est déjà bien comme ça
merci d'avnace
Bruno

il faut faire un petit Userform avec deux listes de choix
une pour la quantité
l'autre pour les prestations effectuées
plus un bouton validé

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Merci Gilbert,
tu peux me faire un petit exemple de userform?
ensuite je le referai dans tous les articles
Merci
Bruno

 

[gilbert_RGI]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Voilà un exemple rapido

 

[Dull]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Re le fil, Gilbert

Une autre manière avec une Inputbox

Option Explicit
Dim DerLig As Long
Dim NB As String

Sub Bouton1_QuandClic()
NB = InputBox("Combien de shampoing coupe homme?")
If NB = "" Then Exit Sub
DerLig = Feuil1.Range("C" & Rows.Count).End(xlUp).Row + 1
If DerLig > 16 Then Exit Sub

Cells(DerLig, 2) = NB
Cells(DerLig, 3) = "shampoing coupe homme"
Cells(DerLig, 4) = "19" * NB
End Sub

Bonne Journée

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

merci Dull,
est-il possible de mettre 1 par défaut dans la fenêtre qui s'ouvre?

 

[gilbert_RGI]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

oui en mettant le "1" a cet emplacement sans oublier les virgules

NB = InputBox("Combien de shampoing coupe homme?", , "1")

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

Merci Gilbert
je teste

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

bonjour,
encore un petit soucis,
je m'arrive pas à transposer l'expemble de inbox de Dull sur un autre bouton.
c'est le bouton vente
quand j'appuie dessus, ça m'ouvre une inbox, je remplie avec un nombre, je valide et ça ne s"écrit pas sur le ticket.
ai-je oublié quelque chose?

 

[gilbert_RGI]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

il ne faut rien mettre en colonne C

merci etc.... et le n° de téléphone sont en C donc à la recherche de la dernière ligne vide celle ci se trouve sup à 16 d'ou ejection de la sub

c'est pour cela que j'avais opté pour

derl = Sheets(1).Range("b16").End(xlUp).Row + 1

au lieu de

DerLig = Feuil1.Range("C" & Rows.Count).End(xlUp).Row + 1

pour trouver la première ligne vide

 

[friendxconnect]

Re : écrire dans la première cellule vide d'une colonne de 8 cellules

merci Gilbert
J'ai fait la modif
par contre j'ai un problème quand je mets un nombre avec 1 ou 2 chiffres après la virgule dans l'inbox "montant de la vente €