Utilisation de la fonction Find (novice)

Bonjour à tous,

Je n'arrive pas à faire fonctionner la fonction find dans mon fichier.

Ce que je souhaiterait faire :

Lorsque l'utilisateur inscrit un R la boite d'outil "UsfRemplacer" apparait.
L'utilisateur doit choisir le nom du remplaçant via une combobox "CmdEnregistrer".
Ensuite la macro doit rechercher le nom du remplaçant dans la feuille de planning (Colonne B) puis insérer sur la ligne correspondante l'horaire et l'équipe prévue.

Merci de m'expliquer ce qui cloche dans mon code svp.

Erreur d'exécution 91 : variable objet ou variable de bloc with non définie (en ligne 20 de la procédure Private Sub CmdEnregistrer_Click()) - lorsque le nom du remplaçant n'existe pas dans le tableau

Erreur d'exécution 1004 : la méthode range a échoué (en ligne 30 de la procédure Private Sub CmdEnregistrer_Click()) - lorsque le nom du remplaçant figure dans le tableau

Mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub CmdEnregistrer_Click()   10 Select Case CmbInt 'Si il s'agit d'un ancien Case Is <> "Nouveau" 'Rechercher le nom de l'intérimaire remplacant dans le tableau ' 1cas la ligne est déjà créée dans le tableau 20 If Range("B7:B100").Find(CmbInt, , xlValues, xlWhole, xlByColumns, xlNext, True, , False).Value = CmbInt Then   'remplir sa ligne avec les éléments pole - horaire 30 Range(Range(Cells(7, 2), Cells(100, 2).Address).Find(CmbInt, , xlValues, xlWhole, xlByColumns, xlNext, True, , False).Row, ActiveCell.Offset(0, -2).Column) = ActiveCell.Offset(0, -2).Value 40 Range(Range(Cells(7, 2), Cells(100, 2).Address).Find(CmbInt, , xlValues, xlWhole, xlByColumns, xlNext, True, , False).Row, ActiveCell.Offset(0, -1).Column) = ActiveCell.Offset(0, -1).Value 50 End If     '2cas la ligne n'est pas déjà créée dans le tableau 'créer la ligne de l'intérimaire 'puis remplir sa ligne avec les éléments...   'Si il s'agit d'un nouveau   'ajouter le nouveau dans l'onglet paramètre 'créer sa ligne dans le tableau 'remplir sa ligne avec les éléments... 60 End Select End Sub

---

Voici mon fichier.
Pièce jointe 168097

Merci pour votre aide.

Alex,

Bonjour,

malgré que je ne devrais pas, j'ai ouvert ton fichier, peut-tu l'envoyer sans mise en forme à l'ouverture, avec la feuille "parametre" apparaissant donc les onglets apparaissants et en xlsm

Pièce jointe 168113

Le voici :)

Je regrette, je vois toujours la même chose donc je ne peux t'aider

Citation:

---

malgré que je ne devrais pas, j'ai ouvert ton fichier, peut-tu l'envoyer sans mise en forme à l'ouverture, avec la feuille "parametre" apparaissant donc les onglets apparaissants et en xlsm

---

Je suis sous Excel 2003 je ne peux donc pas enregistré au format que tu me demandes.

J'ai cependant supprimé tout ce que je pouvais.

J'espère que tu pourras m'aider.
Pièce jointe 168231

Alex,