Aide aux macros

[zeltron24]

Bonsoir à tous,
J'ai repris un classeur que Jean-Marcel m'a "concocté", mais je suis perdu dans les codes.
Aussi je souhaiterai avoir votre aide car pour être franc, je ne comprends pas le fonctionnement des macros, donc en allant par tatillonnement, je parviens plus ou moins à un résultat.
Le principe est de sélectionner un produit ou un code et de le remettre dans les textbox correspondant afin de les enregistrer après modifications.
Il m'est possible d'inscrire aussi un nouveau produit et de l'enregistrer.
Ce qui me perturbe le plus c'est la sélection des lignes et colonnes. genre :

For n = 2 To 11: Me("T" & n)
For Li = 3 To Cells(Rows.Count, 1).End(xlUp). Row

Je ne comprends pas le principe.
Merci d'avance pour votre aide.
zeltron24
ci joint le classeur.

 

[JBARBE]

Re : Aide aux macros

bonsoir à tous,

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

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)

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

bonne soirée

 

[zeltron24]

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.

 

[zeltron24]

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.

 

[zeltron24]

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.

 

[zeltron24]

Re : Aide aux macros

Merci beaucoup et bonne journée Jean-Marcel.

 

[zeltron24]

Re : Aide aux macros

Re,

Je désirerai comprendre pourquoi avec la macro suivante :

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

 

[JBARBE]

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

remplacer 4.95 par une virgule 4,95

bonne journée

 

[zeltron24]

Re : Aide aux macros

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

 

[JBARBE]

Re : Aide aux macros

4,95 avec virgule et format suivant :

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

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

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

 

[zeltron24]

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, "#.## €")

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 ......)

 

[zeltron24]

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.

 

[Si...]

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.

 

[zeltron24]

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

 

[JBARBE]

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

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