[résolu] Modification d'une macro

[klorane]

Bonsoir le forum

j'ai une macro installée dans le fichier de démo joint:

For i = 1 To Range("E65536").End(xlUp).Row
Cells(i, 2).Value = Cells(i, 8) & Cells(i, 5)
Next

il faudrait modifier cette macro de manière à :

Si le nom de la marque est présent dans la colonne K1 à K20 elle applique : Cells(i, 2).Value = Cells(i, 8) & Cells(i, 5)
Si le nom de la marque N'EST PAS présent dans la colonne K1 à K20 elle applique : Cells(i, 2).Value = Cells(i, 9) & Cells(i, 5)

Si ça fonctionne on devrait voir après le passage de la macro en colonne B

Accueil>Renault
..
...
Accueil>Peugeot
...
...
Accueil>Autre marque>Nissan (car Nissan n'est pas dans la liste dela colonne K)
...

Merci

Klorane

 

[JCGL]

Re : Modification d'une macro

Bonjour à tous,

Peux-tu essayer ;

Sub Bouton1_Cliquer()    For i = 3 To Range("E65536").End(xlUp).Row
        If Application.WorksheetFunction.CountIf(Range("K2:K5"), Cells(i, 5)) = 1 Then
            Cells(i, 2).Value = Cells(i, 8) & Cells(i, 5)
        Else
            Cells(i, 2).Value = Cells(i, 9) & Cells(i, 5)
        End If
    Next
End Sub

Ou sans les colonnes H et I :

Sub Bouton1_Cliquer()    For i = 3 To Range("E65536").End(xlUp).Row
        If Application.WorksheetFunction.CountIf(Range("K2:K20"), Cells(i, 5)) = 1 Then
            Cells(i, 2).Value = "Acceuil>" & Cells(i, 5)
        Else
            Cells(i, 2).Value = "Acceuil>Autre Marque>" & Cells(i, 5)
        End If
    Next
End Sub

A+ à tous

 

[klorane]

Re : Modification d'une macro

Bonsoir JC,

j'ai testé ton code et ça fonctionne comme je veux!

Merci ton aide

Klorane