Copier données sous conditions

Fermé
Lou - 17 mai 2017 à 10:25
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 mai 2017 à 11:24
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.

A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 17 mai 2017 à 10:54
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
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
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 17 mai 2017 à 11:24
Et pourquoi ne pas avoir été précise dans ta première demande ?
0