J'ai trouvé cette macro là sur ce forum même mais elle ne correspond pas vraiment à ce que je veux...
Sub AjoutCode()
Dim strCode As String, I As Integer, L As Long, J As Long, N As Integer
L = 1
While Range("A" & L).Value <> ""
strCode = Left(Range("A" & L).Value, 1)
I = 1
Do While I > 0
I = InStr(I + 1, Range("A" & L).Value, " " )
If I > 0 Then
strCode = strCode & Left(Mid(Range("A" & L).Value, I + 1), 1)
End If
Loop
strCode = strCode & Left(Range("B" & L).Value, 1)
I = 1
Do While I > 0
I = InStr(I + 1, Range("B" & L).Value, " " )
If I > 0 Then
strCode = strCode & Left(Mid(Range("B" & L).Value, I + 1), 1)
End If
Loop
J = 1
N = 0
strCode = UCase(strCode)
While Range("C" & J).Value <> ""
If J <> L Then
If Left(Range("C" & J).Value, Len(Range("C" & J).Value) - 2) = strCode Then
If CInt(Right(Range("C" & J).Value, 2)) > N Then N = CInt(Right(Range("C" & J).Value, 2))
End If
End If
J = J + 1
Wend
N = N + 1
If Range("C" & L).Value = "" Then
If N < 10 Then
Range("C" & L).Value = strCode & "0" & N
Else
Range("C" & L).Value = strCode & N
End If
End If
L = L + 1
Wend
End Sub
Je voudrais pas reprendre les Initiales de chaque colonne mais un nombre ou une lettre spécifique.
De plus comment étendre cette macro si on veut mettre en place un code disons pour 4, 5 colonnes etc...
Ah oui et aussi comment la modifier pour que pour chaque ligne s'affiche en bout de code le chiffre 001 pour la cellule A2 disons, puis 002 pour la cellule A3 et ainsi de suite pour toutes les lignes...car dans le programme ci-dessus, la personne vous dire que si, pour un couple donné, les initiales étaient les mêmes, alors il mettait en fin de code le chiffre 02 pour les différencier mais je ne veux pas de cela.
merci beaucoup de votre aide !
