Remplacement contenu cellule

[Daniel]

Bonjour le forum !

J’aimerai savoir comment remplacer le contenu d’une cellule !
Mais avec plusieurs contraintes :
En fait c’est en fonction du ou des 1er mots que contiennent les cellules que tout ce fait . J’ai 6 possibilités pour ces premiers mots :
- SOIE
- PAP H
- PAP D
- SACS & BAGAGES
- Autre CUIR
- Autres METIERS
La suite est un pays et un n°. Le but est de remplacer tout le contenue par la première partie.

Exemple 1 : « SOIE France 05 » doit devenir « SOIE »
Exemple 2 : « Autre METIERS USA » 06 doit devenir « Autre METIERS »

J’ai essayé avec des left(cell(…) mais g pas trouvé ! Merci d’avance pour votre aide !

 

[porcinet82]

Salut Daniel,

Bon je te propose une petite macro qui je pense fai ce que tu souhaite faire.

Sub test()
Dim i As Integer
Dim var As Variant

For i = 1 To 3
    var = Left(Cells(i, 1).Value, 5)
    If var = 'SOIE ' Then
        Cells(i, 1).Value = 'SOIE'
    ElseIf var = 'PAP H' Then
        Cells(i, 1).Value = 'PAP H'
    End If
Next i
End Sub

Pour résumer, disons que cette macro teste les 5 premieres lettres contenu dans ta cellule, et suivant le resultat, elle change le contenu de la cellule par ce que tu lui indique.

Dans mon exemple, je me suis contenté de mettre les 2 premieres chaine que tu proposais dans ta liste, a toi d'adapter pour que cela fonctionne avec toutes les autres

@+

 

[DAniel]

Bonjour Pocinet!

Merci pour le code! C'est bien ça!!!!!!!