Préparation mail avec recherche de valeurs dans feuille grâce à Excel VBA
Bonjour à tout le forum,
Je suis débutant en VBA et je bloque sur une macro !
Je cherche à partir d'un UF, remplir ma feuille "Index" et préparer un mail en parallèle. Pour remplir ma feuille "Index" ça c'est OK.
Pour la préparation par mail, je récupère la valeur de mon Combobox1
puis je cherche la valeur dans ma feuille "Index" qui me donne le n° de ligne
EXCEL correspondante. Ensuite je viens m'aider de cette ligne pour
récupérer les champs qui m'intéressent pour compléter mon mail.
Seulement j'ai un message d'erreur au moment où je clique sur le bouton
"Valider" de mon UF.
Auriez-vous une piste s'il vous plait ?
Bonne soirée !
JB
Bonsoir JB,
Quand on clique sur débogage, on obtient une ligne en jaune et si on pointe le curseur dessus
on voit que la valeur est du texte mais null
Or Numéro est définit comme entier, alors qu'il devrait être définit en texte
Dim numéro As Integer ' FAUX
Dim Numéro As StringDe plus, si on regarde le code plus en amont, on voit
VidagePour moi le "vidage" de l'USF n'est pas correctement positionné dans le code, il doit être mis tout à la fin
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Vidage
Unload Me
End SubAttention également ICI
If celluletrouvee Is Nothing Then
Exit Sub
Else
ligne = celluletrouvee.Row
End IfVous n'avez mis de "Exit Sub" en cas de valeur non trouvée
A+
Bonjour BrunoM45,
Bien vu, ça fonctionne beaucoup mieux, merci beaucoup !
J'ai juste une dernière question, j'aurais aimé dans un UserForm, afficher le nombre de boucles comptées sur le nombre total de boucles à traiter.
Sur le fichier joint, j'ai une macro qui enregistre toutes les feuilles qui ont la valeur >30 dans la colonne I en PDF sur le bureau. Dans mon cas j'ai 3 feuilles qui vont s'enregistrer, j'aurais aimé afficher "Enregistrement de la feuille 1/3" puis "Enregistrement de la feuille 2/3" puis "Enregistrement de la feuille 3/3" depuis un UuerForm. Bien sur les valeurs pourront varier, aurais-tu une piste stp ?
Bonne journée :)
JB