Appliquer une Maccro a une colonne

[gimgim01]

Tres cher(e)s Membres, bonjour !

Je débute actuellement dans le vaste monde du langage VBA (c'est fou ce que l'on peut faire de nos jours), et je suis de maniere evidente avide d'en découvrir plus sur le sujet (si au passage vous avez de bons Tutos sous la main, je suis preneur )
Et malgré tout, je trouve que l'apprentissage par soi meme, n'est pas chose aisée (Dites le moi si c'est juste que je suis naze! )
Bien que cette merveilleuse "formule"(?) magique ne permettra sans doute pas d'impressionner les filles - - il me semble indispensable d'en connaitre les bases afin d'optimiser les fichiers Excel, sans fin, présent dans de nombreuses entreprises.

Bref. J'ai honte de vous demander une telle chose, tellement que je me doute que la réponse doit etre évidente et simple, mais apres avoir fait de nombreuses recherches et meme avoir tente (je dis bien tenté) de "traduire" une ou deux réponses citant brievement le sujet, je me suis résigné. "Quand on est pas bon, mieux vaut demander aux meilleurs."

Passons a mon... 'probleme'.

Voici mon code;

Sub TEST()

Dim Product_Code As Integer
Dim Description As String

Product_Code = Range("A1")

If Product_Code = 1 Then Description = "Un"
If Product_Code = 2 Then Description = "Deux"
If Product_Code = 3 Then Description = "Trois"
If Product_Code = 4 Then Description = "Quatre"
If Product_Code = 5 Then Description = "Cinq"
If Product_Code = 6 Then Description = "Six"
If Product_Code = 7 Then Description = "Sept"
If Product_Code = 8 Then Description = "Huit"
If Product_Code = 9 Then Description = "Neuf"
If Product_Code = 10 Then Description = "Dix"


Range("B1") = Description


End Sub

Avec ceci, j'obtiendrais la Description en cellule B1 en fonction du Code Produit de la cellule A1 - ca j'ai compris .
Oui mais voila, je souhaiterais appliquer la maccro sur plusieurs lignes de ma colonne B, disons jusqu'a B10 pour commencer.

Exemple:
Si je rentre le 'Code Produit' 2 (ou autre) en A2 je souhaiterai avoir la 'Description' "Deux" (ou autre) en B2. Et ainsi de suite...

Si une ame charitable pouvait m'éclairer sur le sujet, le jeune étudiant en commerce cherchant a faire ses preuves que je suis lui serais fortement reconnaissant !

 

[john]

Re : Appliquer une Maccro a une colonne

Bonjour,

Voir fichier ci-joint...

Bonne fin de journée.

John

 

[Pierrot93]

Re : Appliquer une Maccro a une colonne

Bonjour,

regarde ceci, procédure événementielle, se déclenche lors des modifications apportées sur la feuille, contrôle la plage A1 A10, code à utiliser dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code et tu colles :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t() As Variant
If Target.Count > 1 Or Intersect(Range("A1:A10"), Target) Is Nothing Then Exit Sub
t = Array("Un", "Deux", "Trois", "Quatre", "Cinq", "Six", "Sept", "Huit", "Neuf", "Dix")
If IsNumeric(Target) And Target > 0 And Target <= 10 Then Target.Offset(0, 1) = t(Target - 1)
End Sub

bon après midi
@+

Edition : bonjour John

 

[gimgim01]

Re : Appliquer une Maccro a une colonne

Wow. J'ai du progres a faire!

Mille merci John, pour la précision et la rapidité !!