Echapper à un message d'erreur

[Boby71C]

Bonjour à tous
J'ai un fichier avec différents projets.
Il y a 3 types de projets qui n'ont pas tous systêmatiquement l'ensemble des activités recherchées.
Existe t'il un moyen lorsqu'une donnée n'est pas trouvée de passer à la recherche suivante par code VBA bien sûr.
Ci-joint un petit morceau de fichier.

Merci pour votre aide
@+

 

[pierrejean]

Re : Echapper à un message d'erreur

bonjour Robert

A tester:

remplacer

 Cells.Find(What:="20", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=True).Activate
    DebHar = ActiveCell.Offset(0, -8).Value
    FinHar = ActiveCell.Offset(0, -5).Value

par

    Set c = Cells.Find(What:="20", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=True)
    If Not c Is Nothing Then
      DebHar = c.Offset(0, -8).Value
      FinHar = c.Offset(0, -5).Value
    End If

 

[Boby71C]

Re : Echapper à un message d'erreur

Bonsoir Pierrejean

Le grand Maitre était encore là pour surveiller l'apprentis.
Merci beaucoup, je ne connaissais pas ce genre de code.

Pourrais-tu m'expliquer le Set c s'il te plait.

Apprès celà, il va faloir que je remméne les données des variables sur un document.
Je pense que je n'ai pas fini de demander de l'aide mais se sera un autre poste à moins que je fasse de gros progrés entre temps car je commence à m'étonner. Sur le petit morceau de fichier que j'ai joints, il y a 390 lignes de codes 😱sans aide.
Je suis certain qu'il y a possibilité de le réduire, mais je n'en suis pas là.😕

Bonne soirée

 

[pierrejean]

Re : Echapper à un message d'erreur

re

Robert
dans un module ecrit findnext , tape F1 puis exemple et régales-toi

 

[Boby71C]

Re : Echapper à un message d'erreur

re

Merci beaucoup pour cette info que je ne connaissai pas.

Bonne soirée