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

friendxconnect · 25 Août 2012

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 · 25 Août 2012

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

Salut friendxconnect, le Forum

Peut être comme cela

Code:

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 · 25 Août 2012

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

Bonjour

un truc dans le genre ?

friendxconnect · 25 Août 2012

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

merci à vous je vais essayer

friendxconnect · 25 Août 2012

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 · 25 Août 2012

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

friendxconnect à dit:
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 · 25 Août 2012

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 · 25 Août 2012

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

Voilà un exemple rapido

Dull · 25 Août 2012

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

Code:

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 · 25 Août 2012

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 · 25 Août 2012

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 · 25 Août 2012

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

Merci Gilbert
je teste

friendxconnect · 26 Août 2012

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 · 26 Août 2012

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 · 26 Août 2012

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 €

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

friendxconnect

XLDnaute Junior

Pièces jointes

Dull

XLDnaute Barbatruc

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

friendxconnect

XLDnaute Junior

friendxconnect

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

friendxconnect

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

Dull

XLDnaute Barbatruc

Pièces jointes

friendxconnect

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

friendxconnect

XLDnaute Junior

friendxconnect

XLDnaute Junior

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

friendxconnect

XLDnaute Junior

Pièces jointes

Discussions similaires