Ajout de noms limiter

Bonjour le Forum,
Avec mon USF j’ajoute de nouveau nom dans mes différents groupes (entre 20 et 30 groupes).
J’ai le droit d’avoir 40 noms par groupe.
Si un groupe arrive à 40 noms, j’aimerais avoir un message m’avertissant qu’il est impossible d’ajouter d’autre nom.
Les noms sont dans la feuille liste de la ligne 4 à 43 pour tous les groupes.
Si vous avez une idée, je suis preneur.
Bonne journée à vous tous

Bonjour,
Teste ceci avec affichage d’un message
JFrh01tw2fL_AJOUT-DE-NOMS-LIMITER.xlsm (99,3 Ko)

Bonjour Mimimathy,
Ton fichier fonctionne super bien, mais sur mon fichier original j’ai un bug.

Erreur d’exécution ‹ 1004 ›:
Erreur définie par l’application ou par l’objet

et en jaune
If Sheets(« liste »).Cells(65536, col).End(xlUp).Row = 43 Then

Si tu as une solution.
Merci

Re,
Sans savoir ce qu’il y a dans l’original, pas d’aide possible
Place le classeur sans données confidentielles

Re,
Fichier très lourd avec données confidentielles.
Je vais essayer mais cela va être très dur.
A+

Re,
Peu tu me dire à quoi correspond l’erreur en jaune.

If Sheets(« liste »).Cells(65536, col).End(xlUp).Row = 43 Then

Merci d’avance

Re, est-ce que la macro est lancée depuis la feuille LISTE, sinon, cela pourrait déjà être le bug
auquel cas il faudrait rajouter au départ de la macro l’activation de la feuille

Re,
c’est bon j’ai trouver le bon code.

col = (ComboBox1.ListIndex * 12) + 2
If Sheets("liste").Cells(65536, col).End(xlUp).Row = 43 Then
  MsgBox "Liste du " & ComboBox1.Value & " pleine.": Exit Sub
Else
  dlig = Sheets("liste").Cells(65536, col).End(xlUp).Row + 1
  Sheets("liste").Cells(DLig, col) = CDbl(TextBox1.Text)
  Sheets("liste").Cells(DLig, col + 1) = TextBox2
  Sheets("liste").Cells(DLig, col + 2) = TextBox3
End If

Merci de ton aide
Bonne après midi à toi et au Forum.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.