Si valeur rechercher est vide ne rien faire

Le 16/10/2017 à 11:29

Bonjour

J'ai une Macro qui vas me fais une rechercheV en Vba

De la feuille 1 sur la feuille 5

Dans ma feuille 1 j'ai des valeur que je rempli a la main

et je veut savoir avec une recherche sur une autre feuille si la valeur a changer?

le soucie est que si ma recherche correspond a une case il me remplace la valeur par du vide justement.

J'aimerais savoir si avec un genre de If ou autre chose

je peut lui dire que si la recherche donne une cas vide qu'il ne fasse rien et passe a la recherche suivante.

Voila une partie de mon code pour vous aider

Dim f1 As Worksheet, f2 As Worksheet
    Set f1 = ThisWorkbook.Sheets("F01")
    Set f2 = ThisWorkbook.Sheets("F05")

    Dim derLig As Long
     derLig = f1.Cells(Rows.Count, 1).End(xlUp).Row

     With f1

    .Range("B3:B" & derLig).Value = WorksheetFunction.VLookup(.Range("G3:G" & derLig).Value, f2.Range("B:O"), 2, False)
    .Range("H3:H" & derLig).Value = WorksheetFunction.VLookup(.Range("G3:G" & derLig).Value, f2.Range("B:O"), 6, False)

   End With

End Sub

Merci d'avance

Le 16/10/2017 à 12:42

Bonjour

On peut voir le fichier ou un exemple ?

Cordialement

Le 16/10/2017 à 15:14

si joint un exemple minimaliste.

J'ai entrer des info sur la feuille 1 en Bleu

lors de la mise a jour les infos sont remplacé par rien.

si tu as une solution?

32esais-extract02.xlsm (17.91 Ko)

Le 17/10/2017 à 08:40

Re,

Dans la feuille 1, colonne A en A1 on a module 1 et dans la feuille 2 on a module 1 en colonne C.

Ce que vous cherchez : pour la ref 123 en A2, la valeur 452 en B1 n'est pas trouvée en C1 de la feuille 2. si pas trouvée on copie la valeur de C1 en B1 de la feuille 1

Le 17/10/2017 à 09:08

Bonjour,

un essai.

eric

68esais-extract02.xlsm (20.79 Ko)

Le 18/10/2017 à 10:08

Bonjour

désoler Eriic mais cela ne marche pas

en fait ce que je veut faire c'est si le recherche donne une case vide ne rien importé.

je sais pas si je suis clair?

Merci de votre aide

Le 18/10/2017 à 12:26