Copier données sous conditions

Lou -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai 2 tableaux sur ma feuil1.
Le 2ième tableau est un résumé du 1er tableau.

J'aimerai que si dans mon 1er tableau il y un "ü" en colonne A et un "COM" en colonne H alors ca recopie la valeur de la colonne C (de la même ligne) dans mon 2ième tableau en colonne M.

Range tableau 1: A3:H112
Range tableau 2: M3:O11

Merci d'avance.

2 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    il existe la fonction LIKE pour ton souci
    If Range("A2") Like "*" & "ü" & "*" _
    And Range("H2") Like "*" & "COM" & "*" Then
    MsgBox "gagné"
    Else
    MsgBox "perdu"
    End If


    attention sensible la cassei tu écris Com tu as perdu

    si tu veux l'insensibilité à la casse
    If Ucase(Range("A2")) Like "*" & "Ü" & "*" _
    And Ucase(Range("H2")) Like "*" & "COM".... etc

     Michel
    0
    1. Lou
       
      Merci pour ta réponse mais je voudrais copier la valeur de la colonne C dans mon 2ieme tableau si et seulement si il y a un "ü" dans la colonne A et un "Com" dans la colonne H de la mémé ligne. Je ne souhaite pas faire apparaître un message Box.
      0
  2. Lou
     
    Voila ce que j'aimerai coder en VBA:

    Private Sub Worksheet_Change(ByVal Target As Range)

    'Si on ne saisi pas "ü" dans la colonne A ca ne fait rien

    'Si on saisi pas "Off Com" dans la colonne H ca ne fait rien

    'Recuperation de la valeur en colonne C ou on a saisi "ü"

    'Copier la valeur

    'Coller la valeur dans la colonne H à la partir de la ligne 4

    End Sub
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Et pourquoi ne pas avoir été précise dans ta première demande ?
      0