salut Fredgyver, le forum,
Bon en fait j'ai résolu ton problème via VB avec la macro suivante que tu mets dans ta feuille '2005-2006' :
Dim a As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Value = '' Then
Exit Sub
End If
If a = 1 Then
a = 0
Exit Sub
End If
With ActiveCell
.Offset(0, 1).Select
End With
exitHandler:
Application.EnableEvents = True
Dim cel As Range
Dim nbrletr As Integer
'
nbrletr = Len(Range('B4').Value)
For Each cel In Sheets('Listes').Range('A1:AI30')
If Left(cel.Value, nbrletr) = Left(Sheets('2005-2006').Range('B4').Value, nbrletr) Then
a = 1
Sheets('2005-2006').Range('A4').Value = Sheets('Listes').Cells(1, cel.Column).Value
Exit Sub
End If
Next cel
End Sub
Je ne sais pas trop à quoi sert ton activecell.offset mais bon...
Ne te réjouie pas trop tôt, il y a 2 problèmes :
Le 1er est simple, si tu mets tes noms en minuscule, ça ne fonctionne pas donc soit tu les mets toujours en majuscule soit tu rajoute un code pour transformer automatiquement en mujuscule (attention tout de même aux accents)
Le 2ième est que tu as des homonymie !! Bin là, la sollution est qu'il faut que tu rajoutes forcement le prénom, d'une manière ou d'une autre !!!
Voilà, j'espère avoir été clair
A+