RAJOUT INDICE 1 ou 2

Bonjour a toutes et tous,

Je suis bloqué par un petit exercice de style.

En effet dans un onglet "P" je voudrai rajouté un indice 1 ou 2 à la colonne D si Texte colonne C = COLOR1250X

le reste doivent rester inchangés.

si joint un exemple pour compréhension

Merci d'avance pour vos lumières

Bien cordialement

Bonjour

Code dans un Module

Sub Modifie()
Dim Cel As Range
For Each Cel In Range("C2", Range("C2").End(xlDown))
If Cel = "COLOR12501" Then Cel.Offset(0, 1).Value = Cel.Offset(0, 1).Value & "1"
If Cel = "COLOR12502" Then Cel.Offset(0, 1).Value = Cel.Offset(0, 1).Value & "2"
Next Cel
End Sub

Cordialement

Bonjour,

Une autre proposition.

Dire s'il faut remplacer en lieu et place les valeurs !...

Cdlt.

Public Sub XXX()
Dim tbl, Arr(), i As Long
    tbl = Cells(1).CurrentRegion
    ReDim Arr(1 To UBound(tbl))
    For i = 1 To UBound(tbl)
        Select Case tbl(i, 3)
            Case "COLOR12501": Arr(i) = tbl(i, 4) & 1
            Case "COLOR12502": Arr(i) = tbl(i, 4) & 2
            Case Else: Arr(i) = tbl(i, 4)
        End Select
    Next i
    Cells(4).Resize(UBound(tbl)) = Application.Transpose(Arr)
End Sub

Bonjour Barachoie !

Voici une formule qui devrait répondre à ton problème

=SI(ESTNUM(CHERCHE("COLOR125";C2));D2&DROITE(C2;NBCAR(C2)-9);D2)

Tu peux la mettre en cellule E2 de ton fichier puis la faire défiler vers le bas

A toi de me dire si sa te conviens ;D

Edit : Ah! Je vois que les deux post précédents parlent de macro! Je n'avais pas vue que c'était une solution en macro que tu recherchais!

Merci pour votre reactivites et efficacites a vous trois un grand MERCI c'est très instructifs et continuée ainsi

Bonne journée! !!!!