Vba excel extraction mot variable (résolu)

[eideal44]

Bonjour,

J'aimerais savoir si il est possible d'extraire du texte plus facilement que le code que j'ai écris car j'ai environ 300 marques :

'*********************************************************************
Sub MARQUE_FOURNISSEUR()
If UCase(Cells(I, 15)) Like "*LISTO*" Then Cells(I, 12) = "LISTO"
If UCase(Cells(I, 15)) Like "*BIONAIRE*" Then Cells(I, 12) = "BIONAIRE"
If UCase(Cells(I, 15)) Like "*DELONGHI*" Then Cells(I, 12) = "DELONGHI"
If UCase(Cells(I, 15)) Like "*SAMSUNG*" Then Cells(I, 12) = "SAMSUNG"
If UCase(Cells(I, 15)) Like "*GRUNDIG*" Then Cells(I, 12) = "GRUNDIG"
If UCase(Cells(I, 15)) Like "*THOMSON*" Then Cells(I, 12) = "THOMSON"
If UCase(Cells(I, 15)) Like "*PANASONIC*" Then Cells(I, 12) = "PANASONIC"
If UCase(Cells(I, 15)) Like "*ROWENTA*" Then Cells(I, 12) = "ROWENTA"
End Sub
'*********************************************************************

Il va donc falloir que je créé 300 lignes?

La cellule cells(I,15) est de ce type : Clim DELONGHI PAC WE 17NV

Par rapport à cette cellule, je souhaiterais extraire la marque qui peut se trouver en 2ième, 3ième, 4 ième ou 5ième position.

Y'a t'il un moyen plus rapide que d'écrire les 300 lignes suivant les 300 marques avec "LIKE"???

Merci d'avance pour vos retours.

Eideal44

 

[Pierrot93]

Re : Vba excel extraction mot variable

Bonjour,

regarde peut être ceci, à adapter à ton projet :

Dim t() As Variant
t = Array("LISTO", "BIONAIRE", "DELONGHI", "SAMSUNG", "GRUNDIG", "THOMSON")
If Not IsError(Application.Match("*" & UCase(ActiveCell) & "*", t, 0)) Then MsgBox "trouvé"

sans doute une autre solution possible, si liste présente sur un de tes onglets...

bon après midi
@+

 

[JNP]

Re : Vba excel extraction mot variable

Bonjour le fil 🙂,
Une proposition

Tablo = Array("LISTO", "BIONAIRE", "DELONGHI", "SAMSUNG", "GRUNDIG", "THOMSON", _    "PANASONIC", "ROWENTA")
For J = LBound(Tablo) To UBound(Tablo)
    If UCase(Cells(I, 15)) Like "*" & Tablo(J) & "*" Then Cells(I, 12) = Tablo(J)
Next J

à intégrer dans ta boucle I 😛
Bonne suite 😎

 

[eideal44]

Re : Vba excel extraction mot variable

Merci pour vos retours JPN et PIERROT93. J'ai pris la methode de JPN qui fonctionne parfaitement. Un grand merci à vous 2