Discussion :

[alex311278]

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,

[casefayere]

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

[alex311278]

agence1.xls

Le voici

[casefayere]

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

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

[alex311278]

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.
agence2.xls

Alex,