Merci pour toutes ces explications, tout ce que tu m’as dit fonctionne bien !
Mais j’ai un encore un problème, je sais je suis chiant
Je vois concrètement ce qu’il faut faire, mais je n’arrive pas à l ‘écrire correctement.
Là actuellement, si je choisis 2 fois de suite le même ‘Nom’, il m’écrase la donnée précédente.
Or je voudrais qu’il ajoute une ligne.
De plus, si dans ‘Nom’, je tape une valeur qui n’est pas inscrite dans la feuille axe, il n’en tient pas compte et n’écrit rien.
Dim C As Range
'.... La boucle avec le I à modifier
With Sheets("axes")
'For Each C In .Range("B2:B" & .[B65536].enc(xlUp).Row)
For Each C In .Range("B2:B" & .[B65536].End(xlUp).Row)
If C.Text = Cbo_Nom.Value Then
C.Offset(0, -1) = Lst_Axe.Value 'Offset voir dans l'aide VBA
C.Offset(0, 1) = Txt_Niveau
Exit For 'attention à mettre avnat le end if le exit for
End If
'...
Next C
End With
Je sens bien que ca se joue autour de ‘If C.Text = Cbo_Nom.Value Then’ et de la suite, mais je n’arrive pas à coder ça correctement…Comment remédier à ça ?
Merci beaucoup beaucoup !