Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Echapper à un message d'erreur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Boby71C
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Boby71C

XLDnaute Impliqué
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
@+
 

Pièces jointes

Trier par date Trier par votes
Re : Echapper à un message d'erreur

bonjour Robert

A tester:

remplacer

Code: 
 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

Code: 
    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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
811
floflatch22
F
K
  • Question Question
XL 2021 Mettre un message d'erreur si les cellules ne sont pas verrouillées
2
Réponses
18
Affichages
1 K
krolik serge
K
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
679
Dégé59
D
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
S
  • Question Question
Autres Blocages formules entre 365 et version Excel antérieur
Réponses
5
Affichages
716
JHA
J
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
3 K
olivier1984
O
P
  • Question Question
XL 2019 Couleurs sur un nuage de point en fonction d'une légende
Réponses
3
Affichages
764
job75
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
POWERQUERY :: Combinaison de dossiers multiples non adjacents (non hiérarchiques) - Tables - Feuilles - Puis filtrage à l'issue de la combinaison
Réponses
1
Affichages
319
oguruma
M
  • Résolu(e)
XL 2013 Liste déroulante avec affichage multiple
Réponses
10
Affichages
1 K
M.Ben
M
Userform, DatePicker, TimePicker, et autres
Réponses
0
Affichages
2 K
mromain
Z
  • Résolu(e)
Microsoft 365 Enlever le message d'erreur suite à une erreur de mot de passe
Réponses
11
Affichages
994
Zifox
Z
S
  • Question Question
XL 2016 Trouver la valeur d'une cellule la plus à droite d'un tableau
Réponses
13
Affichages
3 K
job75
S
  • Résolu(e)
XL 2019 Modifier formule à l'insertion de ligne dans un tableau
Réponses
3
Affichages
587
ST4423
S
Y
  • Question Question
Autres Besoin d'aide pour un ticket hebdomadaire
Réponses
2
Affichages
692
yneov
Y
  • Résolu(e)
XL 2016 Notation Simplifiée pour définir un tableau arborescent
Réponses
9
Affichages
1 K
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
676
Lu76Fer
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
787
job75
Y
  • Résolu(e)
Microsoft 365 Fermeture d'un Fichier Excel si celui-ci est déjà ouvert
Réponses
12
Affichages
2 K
Yoyo60
Y
M
  • Question Question
XL pour MAC Envoi de données d'un classeur Excel à un formulaire html
Réponses
3
Affichages
1 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…