Macro Conditionnelle problème

Résolu
Juanad Messages postés 6 Statut Membre -  
Juanad Messages postés 6 Statut Membre -
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,

7 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonsoir,

    Sur comment ça marche, on aide pas aux devoirs, ceci étant dit pourquoi une macro pour un problème aussi basique
    0
  2. Juanad Messages postés 6 Statut Membre
     
    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,
    0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Ok demain matin je te fais un petit topo, pour ce soir il est tard
    0
    1. Juanad Messages postés 6 Statut Membre
       
      merci beaucoup !
      0
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    0
    1. Juanad Messages postés 6 Statut Membre
       
      merci beaucoup je vais de comprendre comment cela fonctionne et comment l'adapter à mon document excel.

      Merci encore pour ton aide!
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    0
  7. Juanad Messages postés 6 Statut Membre
     
    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,
    0
  8. Juanad Messages postés 6 Statut Membre
     
    en faite c'est bon j'ai reussi sans ce code compliqué avec une simple fonction RECHERCHEV !
    Merci quand même.
    0