Discussion :

[John Parker]

Bonjour,
Cela fait des heures aue je bute sur un problème.
J'ai des valeurs de type texte dans les cellules de ma colonne C.
Je voudrais remplacer ces valeurs de la sorte:

Clio --> renault
Megane -->renault
Laguna-->renault
308-->peugeot
A3-->audi
207-->peugeot
A4-->bmw

Je pense que pour se faire il faut que utiliser une boucle for combiner avec un Select case mais je n'arrive pas à incorporer la boucle FOR dedans.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        Select Case 
            Case "Clio*"   'tout ce aui commence par Clio
                .Value = "Renault"
            Case "A3*"
                .Value = "Audi"
            Case "207"
                .value = "Peugeot"
            'etc....
        End Select

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim Marques, Modèles, Quoi As String, Trouve As String
    Marques = Array("Renault", "Renault", "Renault", "Peugeot", "Audi", "Peugeot", "BMV")
    Modèles = Array("Clio", "Megane", "Laguna", "308", "A3", "207", "A4")
    Quoi = InputBox("Entrez le modèle")
    With Application
        Trouve = .Index(Marques, .Match(Quoi, Modèles, 0))
        MsgBox Trouve
    End With

Si tu utilises "Select Case", tu dois préciser une variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case Modèle

[John Parker]

Bonjour et merci pour ta réponse.
Je me suis peut être mal exprimé, les valeurs de la colonne C contenant les modèles de véhicule évoluent en permanence.
J'aimerai que:

-pour toutes cellules de la colonne C contenant "Laguna", le code me remplace "Laguna" par "Renault"

-pour toutes cellules de la colonne C contenant "Clio", le code me remplace "Clio" par "Renault"

-pour toutes cellules de la colonne C contenant "207", le code me remplace "207" par "Peugeot"

-etc etc


Merci

[Daniel.C]

Ce code fonctionne tant que les modèles numériques sont entrés au format texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim Marques, Modèles, C As Range
    Marques = Array("Renault", "Renault", "Renault", "Peugeot", "Audi", "Peugeot", "BMV")
    Modèles = Array("Clio", "Megane", "Laguna", "308", "A3", "207", "A4")
    With Application
        For Each C In Range([C1], Cells(Rows.Count, 3).End(xlUp))
            C.Value = .Index(Marques, .Match(C.Value, Modèles, 0))
        Next C
    End With

[John Parker]

Il fonctionne en effet. Cependant, j'ai oublié de préciser qu'il est possible que j'ai des données au'il ne faut pas remplacer. Le problème de cette macro est que si le mot n'est pas trouvé alors j'ai #N/A. Il faudrait aue si le mot n'est pas trouvé alors on laisse celui contenu dans la cellule.
De plus, dans le cas des clio, est-il possible de remplacer tous les mots contenant "Clio" par "Renault" étant donné qu'il y a le cas des Clio II, Clio III, Clio IV...

Merci encore

[Daniel.C]

j'ai oublié de préciser qu'il est possible que j'ai des données au'il ne faut pas remplacer.

Oui, lesquelles ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Dim Marques, Modèles, C As Range
    Marques = Array("Peugeot", "Peugeot", "Audi", "BMV", "Renault", "Renault", "Renault")
    Modèles = Array("207", "308", "A3", "A4", "Clio", "Laguna", "Megane")
    With Application
        For Each C In Range([C1], Cells(Rows.Count, 3).End(xlUp))
            If IsNumeric(.Match(C.Value, Modèles)) Then
                C.Value = .Index(Marques, .Match(C.Value, Modèles))
            End If
        Next C
    End With