Bonjour,

J'ai un petit problème avec la fonction Like.

Celle-ci me trouve d'autres données que celles que je recherche a cause d'une erreur dans une cellule.

Je vous donne mon code et je m'explique :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Descr, valigne, l, c
    valigne = 6
        For Each Descr In Range("B1:B5")
        l = Descr.Row
        c = Descr.Column
            If UCase(Descr) Like "*DESC*" Then
                valigne = Descr.Row
                    'reponse = MsgBox(meserror + " erreur à la ligne N°" & valigne & " colonne N°" & c, vbYesNo + vbCritical + vbDefaultButton2)
                If reponse = vbNo Then Exit Sub
            End If
        Next
Je cherche a trouver la donné "DESC" dans les cases "B1:B5" mais en ligne B2, j'ai une erreur de #REF qui sera résolue plus loin dans mon code. Cependant, je dois ajouter une ou plusieurs lignes avant de faire la màj de ma valeur en B2 (pour éviter de faire 2 fois le boulot et surtout que ce n'est pas focément en B2, mais peut-être en B3 ou B4).

Pourquoi mon Like me trouve cette ligne dont la valeur est : "=CONCATENER("PIÈCE N° ";#REF!$C$6)". Ca n'a rien à voir avec mon "DESC"