Aide aux macros

JBARBE

XLDnaute Barbatruc

• 10 Octobre 2013

• #2

Re : Aide aux macros

bonsoir à tous,

For Li = 3 To Cells(Rows.Count, 1).End(xlUp). Row

Cliquez pour agrandir...

Ce code est en fait le départ d'une boucle qui exécuter une série d'instructions dans une plage de lignes.

On commence sur la ligne 3(Li=3) jusque (To ) la dernière ligne dans la colonne 1 (.Cells(Rows.Count, 1).End(xlUp).Row )

Rows.count --> le nombre de ligne
1 --> pour la colonne 1 (donc colonne A)
End(xlup).row --> pour repérer la dernière ligne pleine.

NB : Cells(nb de ligne, colonne A)

For n = 2 To 11: Me("T" & n)

Cliquez pour agrandir...

Boucle de 2 à 11 s'appliquant à une zone de liste (Me("T" & n) )

bonne soirée

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 10 Octobre 2013

• #3

Re : Aide aux macros

Merci JBARBE
Avec un peu de retard je vous remercie pour vos explications, cela me permet de mieux comprendre et de pouvoir espérer continuer.

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #4

Re : Aide aux macros

Bonjour à tous,

Je suis toujours dans les erreurs avec mes modifications.
Je souhaiterai si c'est possible que l'on me vienne en aide
Je rame depuis ce matin sans y arriver
Merci d'avance.

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #5

Re : Aide aux macros

Bonjour Jean-Marcel,
Tu m'as aidé pour le fichier Hautefort que j'ai repris en grande partie pour le transformé pour un client à qui je désires faire un inventaire de produits.
Un petit souci, dans la L2, l'indication est le numéro de la ligne au lieu du prix.
Merci pour ton aide.

 

Dernière édition: 11 Octobre 2013

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #6

Re : Aide aux macros

Merci beaucoup et bonne journée Jean-Marcel.

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #7

Re : Aide aux macros

Re,

Je désirerai comprendre pourquoi avec la macro suivante :

Code:

Private Sub T4_Change()
T4.Value = Format(T4.Value, "#. ## €")
End Sub

lorsque je tape par exemple 4.95 dans la Textbox4 (T4) en sortie j'ai 4. €.95
Merci

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 11 Octobre 2013

• #8

Re : Aide aux macros

Bonjour à tous,

Excusez-moi d'intervenir dans cette discussion mais à essayer ceci :

lorsque je tape par exemple 4.95 dans la Textbox4 (T4) en sortie j'ai 4. €.95

Cliquez pour agrandir...

remplacer 4.95 par une virgule 4,95

bonne journée

 

Dernière édition: 11 Octobre 2013

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #9

Re : Aide aux macros

Bonsoir JBARBE,
J'ai testé et ca me donne: 4. €,95

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 11 Octobre 2013

• #10

Re : Aide aux macros

4,95 avec virgule et format suivant :

Code:

T4.Value = Format(T4.Value, "#,##0.00 €")

ou sans la virgule 4.95 mais il n'y a pas de € :

Code:

T4.Value = Format(T4.Value, "#, ## €")

 

Dernière édition: 11 Octobre 2013

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 11 Octobre 2013

• #11

Re : Aide aux macros

Re,
J'ai essayé car je suis aller voir sur différents fils mais cela ne fonctionne pas.
Par contre si je mets "

T4.Value = Format(T4.Value, "#.## €")

Cliquez pour agrandir...

dans la macro du bouton "Ajout" cela me mets bien 4.95 € dans la cellule adéquate de ma feuille.
Donc je me contente de cela, car j'ai un autre problème que je n'arrive pas à résoudre, au lieu du prix j'ai le numéro de la ligne qui s'inscrit dans L2.
Et aussi comment puis je incrémenter chaque enregistrement dans la colonne A (1 2 3 ......)

 

Dernière édition: 11 Octobre 2013

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 12 Octobre 2013

• #12

Re : Aide aux macros

Bonsoir Jean-Marcel

Superbe travail une fois encore.
C'est exactement ce que je recherché. mais.....
Après avoir testé le classeur je constate un bug lorsque je clique sur B2 (Ajouter)
Merci beaucoup je regarde cela demain.

 

Dernière édition: 12 Octobre 2013

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 12 Octobre 2013

• #13

Re : Aide aux macros

salut

tu n'as pas adapté une de mes productions entièrement.
En voici une adaptation (pas eu le temps de tester). Il faut faire attention à ce bouton Ajouter et pour l'instant je n'ai introduit qu'une mise en garde.

 

Pièces jointes

• UsF gestion BD.xls

  207 KB · Affichages: 43

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 12 Octobre 2013

• #14

Re : Aide aux macros

Bonjour Si,

Là aussi, tu as fait du beau travail, un grand merci avec le concours de Jean-Marcel et de toi, j'ai réussi ce que je recherché.
Bravo et merci à vous. Bon week end et A+
Sans oublié la participation de JBARBE
zeltron24

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 12 Octobre 2013

• #15

Re : Aide aux macros

Excusez-moi de cette introduction !

Petite suggestion que je viens de constater dans l'ajout d'un prix : ajout de €

Private Sub T4_Change()
T4 = Replace(T4, ".", ",") & €
End Sub

Cliquez pour agrandir...

d'autre part T1 ( produit ) irait mieux avec une liste déroulante puisqu'il y a l'onglet " Liste " pour ajouter un produit sans commettre l'erreur par exemple de ne pas mettre de s à Desserts qui ne serait pas pris en compte dans une recherche !

bonne journée

 

Pièces jointes

• UsF gestion BD-1.xls

  201 KB · Affichages: 41
• UsF gestion BD-1.xls

  201 KB · Affichages: 51
• UsF gestion BD-1.xls

  201 KB · Affichages: 38

Dernière édition: 12 Octobre 2013

Vote positif 0 Vote négatif