Substitution cellule si 5 premier Digit différent

Bonjour le Forum,

J'aurai besoins de votre aide sur le sujet suivant

Dans un classeur avec plusieurs milliers de ligne, je voudrai remplacer chaque cellule de la colonne "I" si les 5 premiers digit de la colonne "K" absent.

résultats escompté :

cas1 "I" = 172 et "K" = MAGIC donc "I" = MAGIC-172

cas2 "I" = DTN22172 et "K" = DTN22 donc "I" = DTN22172

Par avance Merci pour votre aide

Cordialement

fichier joint

Bonjour,

Un essai à mettre dans une colonne distincte :

=SI(GAUCHE($I2;5)<>$K2;$K2&$I2;$I2)

Vous pouvez ensuite copier les résultats, et coller en valeur dans la colonne I pour écraser les précédents résultats.

Merci Pedro22

La fonction SI va considérablement alourdir mon classeur, te sera t-il possible avec un process par Macro?

Merci infiniment pour ton aide

Bien cordialement

C'est possible. Macro par déclenchement manuel (bouton par exemple) :

Sub CtrlI()

Dim Lig As Long

With Sheets("NomFeuille")
    For Lig = 2 To .Range("I" & .Rows.Count).End(xlUp).Row
        If Not Left(.Range("I" & Lig), 5) = .Range("K" & Lig) Then .Range("I" & Lig) = .Range("K" & Lig) & .Range("I" & Lig)
    Next Lig
End With

End Sub

Selon la fréquence de réalisation, je pense que la copie du résultat de la formule évoquée précédemment reste tout à fait réalisable sans alourdir le fichier...

C simplement Parfait

Merci PEDRO22 tu es génial

Je m'en vais de ce pas le rappeler à madame !

Content que la solution vous convienne.

A+