J'ai un module qui permet de saisir l'activité d'un utilisateur mais je souhaite savoir si je n'ai oublier personne lors de cette saisie avez vous une idee à me proposer
Je souhaite disons à partir d'un bouton executer ce controle et afficher la list des manquants au besoin
mes recherches sur les archives n'ont pas abouti...
Je vous souhaite un bon WE à vous tous en attendant vos réponses.
en effet en cas de manquant cela fonctionne mais
il y a un message lorsque en fait on a saisi tous les utilisateurs et ca plante sur la ligne
If UBound(ListeAbsent) > 0 Then
En attendant la solution de Bebere, je te propose celle-ci :
Je pense que l'erreur n°9 vient du fait que le tableau "ListeAbsent" est vide lorsque toutes les personnes sont présentes dans la feuille "RJA".
Comme le code fonctionne bien par ailleurs et que l'erreur est connue, on peux la gérer en ajoutant une gestion d'erreur en modifiant la macro comme ceci :
Code:
On Error GoTo Fin
If UBound(ListeAbsent) > 0 Then
With UserForm1
.ListBox1.List = ListeAbsent
.Show
End With
End If
Exit Sub
Fin:
If Err = 9 Then MsgBox "Personne n'a été oublié !!!", , "Bravo :": Exit Sub
End Sub
l'erreur vient du fait que le tableau n'est pas initialisé
la solution de Bqtr est aussi bonne
ajout d'une fonction
respect majuscule,minuscule sinon ça foire(lol)