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.