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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.
agence1.xls

Merci pour votre aide.

Alex,