Recherche d'une valeur dans une chaine de caractère et renvoi

[pedroo44]

Bonjour,

Je souhaiterai rechercher à l'aide d'une macro un texte dans une chaine de caractère et de renvoyer la valeur correspondant à ce texte (à l'aide d'une matrice).

Exemple : je souhaiterai rechercher le texte "R222" qui est contenu dans le tableau de l'onglet "Impact", dans la première colonne du tableau "A1:C164" de l'onglet FMEA.
Lorsque R222 est trouvé dans le tableau, j'aimerais renvoyer la valeur contenu dans la 3ème colonne (Effect at function level) donc "Loss of contexte storage" pour le cas "R222".

Merci d'avance pour votre aide.

Pierre

 

[CHALET53]

Re : Recherche d'une valeur dans une chaine de caractère et renvoi

Bonjour,

Double click sur la colonne B

a+

 

[JNP]

Re : Recherche d'une valeur dans une chaine de caractère et renvoi

Bonjour le fil 🙂,
Pour éviter les problèmes des solutions multiples et de la recherche dans les mauvaises colonnes, je reprendrais le code de Chalet ainsi 🙄 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
If Not Intersect(Target, Range("B3:B504")) Is Nothing Then
    Cancel = True
    Set Cel = Sheets("FMEA").Columns(1).Find(What:=Target, LookIn:=xlFormulas, LookAt _
            :=xlPart)
    If Not Cel Is Nothing Then
        If IsNumeric(Left(Cel, 1)) Then
            Target.Offset(0, 2) = "Solution multiple"
        Else
            Target.Offset(0, 2) = Cel.Offset(0, 2)
        End If
    End If
End If
End Sub

Bonne suite 😎

 

[pedroo44]

Re : Recherche d'une valeur dans une chaine de caractère et renvoi

Tout d'abord, merci pour votre aide.

Mais est ce qu'il n'y aurait possibilité de récupérer la colonne de "FMEA" sans avoir a cliquer sur chaque cellule ?? (en tirant vers le bas par exemple).

En fait si cela est possible, je préférerai avoir une fonction que je mettrai dans la colonne D de l'onglet "Impact".

Merci.

 

[JNP]

Re : Recherche d'une valeur dans une chaine de caractère et renvoi

Re 🙂,
Fonction

Function Pedroo(Plage As Range, AChercher As String) As String
Dim Cel As Range
Set Cel = Plage.Find(What:=AChercher, LookIn:=xlFormulas, LookAt _
            :=xlPart)
If Not Cel Is Nothing Then
    If IsNumeric(Left(Cel, 1)) Then
        Pedroo = "Solution multiple"
    Else
        Pedroo = Cel.Offset(0, 2)
    End If
End If
End Function

en C3

=Pedroo(FMEA!A$2:A$164;B3)

àglisser vers le bas 😛...
Bonne suite 😎

 

[pedroo44]

Re : Recherche d'une valeur dans une chaine de caractère et renvoi

Merci pour votre aide, cela marche parfaitement.
J'essaierai d'y apporter quelques ajouts (moi même j'espère !! 😛).