Macro Conditionnelle problème Résolu/Fermé

Question

Bonsoir, 

Je commence tout juste des cours de macro donc je suis débutante et un peu perdue. 
J'ai beau chercher je ne trouve pas la réponse à mes questions... 

Voilà dans une feuille d'excel j'ai un tableau avec des noms dans une colonne et des chiffres dans une autre. 
exemple : feuille 1
A             B
Lot 1      100
Lot 2      200
Lot 3      50

Dans la feuille 2 J'aimerais que dès que j'inscris "lot 1", "lot 2" ou "lot 3" dans la colonne B, les chiffres correspondant s'inscrivent automatiquement dans la colonne C. 
Exemple j'y j'écris : Lot 1 dans la cellule B5 --> le chiffre 100 s'inscrit automatiquement dans la cellule C5 etc. et ce valable dans toute la colonne B. 

Merci d'avance pour votre aide. 

Cordialement,

Mike-31 · Answer

Bonsoir,

Sur comment ça marche, on aide pas aux devoirs, ceci étant dit pourquoi une macro pour un problème aussi basique

Juanad · Answer

Bonsoir, 

Ce n'est pas un devoir, les cours que je prends son sur internet, il n'y a pas de devoir à rendre. 

Le problème que je cherche à résoudre est pour mon stage en entreprise, je l'ai simplement modifié pour que cela soit plus facile à comprendre. 

Cordialement,

Mike-31 · Answer

Re,

Ok demain matin je te fais un petit topo, pour ce soir il est tard

Mike-31 · Answer

Re,

voilà, récupère le fichier exemple avec le lien ci dessous, pour voir le code, clic droit sur l'onglet de la Feuil2 ou Alt et touche F11

tu as ce code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Target(1, 2).Value = WorksheetFunction.VLookup(Target.Value, Sheets("Feuil1").Range("A1:B20"), 2, False)
  End If
End Sub

tu peux simplifier le code en nommant la matrice Feuil1 exemple List

dans ce cas remplace cette ligne du code 
Target(1, 2).Value = WorksheetFunction.VLookup(Target.Value, Sheets("Feuil1").Range("A1:B20"), 2, False)
par 
Target(1, 2).Value = WorksheetFunction.VLookup(Target.Value, [List], 2, False) 

Feuil2 colonne A  à la place de saisir Lot1, Lot2 etc tu peux créer des listes de validation exemple plage bleue

https://www.cjoint.com/c/DEpkcLIYwEZ

Mike-31 · Answer

Re,

Si tes attentes sont satisfaites, mettre le statut de la discussion en résolu ou confirme le moi que je le fasse pour toi

Juanad · Answer

Bonjour, 

Je suis totalement bloquée et perdue finalement et je ne comprend pas comment cela fonctionne. 

N'y a t'il pas plus simple avec une fonctione recherchev par exemple ? 

Cordialement,

Juanad · Answer

en faite c'est bon j'ai reussi sans ce code compliqué avec une simple fonction RECHERCHEV ! 
Merci quand même.

Macro Conditionnelle problème

7 réponses

Discussions similaires

Newsletters