Caisse enregistreuse

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2009

• #2

Re : Caisse enregistreuse

Bonjour,

manque un peu de détail, mais pour renvoyer une valeur dans une colonne après la dernière cellule renseignée, essaye peut être ceci :

Code:

Range("A65536").End(xlUp).Offset(1, 0).Value = "monarticle"

bonne journée
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 1 Décembre 2009

• #3

Re : Caisse enregistreuse

Super, ca marche, depuis le temps que je cherchais!
Merci beaucoup

Par contre j'ai fait la même chose avec le prix de vente mais le prix s'affiche dans la cellule en format texte, je peux le convertir en nombre manuellement mais comment faire pour qu'il soit stocké directement en nombre?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2009

• #4

Re : Caisse enregistreuse

Re

essaye peut être avec la fonction "CDbl" :

Code:

CDbl(tavariable)

voir peut être également le format de la cellule de destination...

@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 1 Décembre 2009

• #5

Re : Caisse enregistreuse

Je dois le mettre où le CDbl?
Je suis vraiment pas doué pour tous ca

Moi j'ai fait ca:

Sub Macro1()
Macro1 Macro
Range("L65536").End(xlUp).Offset(1, 0).Value = "Margherita"
Range("N65536").End(xlUp).Offset(1, 0).Value = "5,00"
End Sub

Tous s'affiche mais "5,00" reste en format texte et pas en nombre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2009

• #6

Re : Caisse enregistreuse

Re

essaye peut être ainsi :

Code:

Range("N65536").End(xlUp).Offset(1, 0).Value = CDbl("5,00")

@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 1 Décembre 2009

• #7

Re : Caisse enregistreuse

Génial, ca marche nickel
Un grand merci à toi!

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Décembre 2009

• #8

Re : Caisse enregistreuse

J'ai une petite modif à faire sur la formule
Qu'est ce que je dois ajouter si je veux qu'elle commence seulement à partir de la cellule N10

Merci d'avance

Code:

Range("N65536").End(xlUp).Offset(1, 0).Value = CDbl("5,00")

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Décembre 2009

• #9

Re : Caisse enregistreuse

Ciao PizzaMan

Essaye peut-être :

Code:

Range("N10:N" & Rows.Count).End(xlUp).Offset(1, 0).Value = CDbl("5,00")

A+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 2 Décembre 2009

• #10

Re : Caisse enregistreuse

bonjour,
tu mets offset(10,0)
soit offset = décalage
10 = nombre de lignes (+ ou rien = vers le bas - 10 = 10 lignes vers le haut)
0 = déplacement de colonne (mm remarque que ci dessus)
C5 offset(2, -1) donne donc B7
deux lignes en plus, une colonne en moins

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Décembre 2009

• #11

Re : Caisse enregistreuse

BrunoM45 à dit:

Ciao PizzaMan

Essaye peut-être :

Code:

Range("N10:N" & Rows.Count).End(xlUp).Offset(1, 0).Value = CDbl("5,00")

A+

Cliquez pour agrandir...

Ciao
J'ai essayé mais ca ne marche pas, en fait ca fait l'inverse, ca fonctionne jusqu'a 10 mais plus après

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Décembre 2009

• #12

Re : Caisse enregistreuse

mutzik à dit:

bonjour,
tu mets offset(10,0)
soit offset = décalage
10 = nombre de lignes (+ ou rien = vers le bas - 10 = 10 lignes vers le haut)
0 = déplacement de colonne (mm remarque que ci dessus)
C5 offset(2, -1) donne donc B7
deux lignes en plus, une colonne en moins

Cliquez pour agrandir...

Comme ca non plus ca marche pas
si je mets offset (10,0), il écrit 1 fois tous les 10lignes
alors que moi il faudrait que ca écrit sur toutes les lignes mais seulement à partir de la 10eme

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Décembre 2009

• #13

Re : Caisse enregistreuse

Re,

Oups, effectivement ça bug 😱

Essaye alors plutôt ça

Code:

  Lig = Range("N" & Rows.Count).End(xlUp).Offset(1, 0).Row
  If Lig < 10 Then Lig = 10
  Range("N" & Lig).Value = CDbl("5,00")

A+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Décembre 2009

• #14

Re : Caisse enregistreuse

C'est bien ca!
Bien vu 😀

Merci

 

Vote positif 0 Vote négatif