Bug suite .find en vba

Résolu/Fermé

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 - 29 mai 2008 à 15:46
skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 - 29 mai 2008 à 17:08

Bonjour,
dans une macro je recherche par le biais d'un . find une date. Cela marche tres bien à partir du moment ou il trouve MAIS et ca là ou j'en perd mes cheveux, quand il trouve pas il me plante. vous me direz que c normal mais COMMENT EVITER CE PLANTAGE quand il ne trouve pas le mot recherché????
Aidez moi je péte un cable aprés y avoir passer 3 plombe je n'ai plus assez d'imagination pour arriver à detourner ce probleme.

Un enorme merci à ceux qui pourront ou du moin essayront de m'aider.

A voir également:

Find vba
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

11 réponses

Réponse 1 / 11

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 mai 2008 à 16:02

essaies ça

Public Sub test() 
Dim celluletrouvee As Range 
Dim ligne As Integer 
Dim col As Integer 

rows("2:2").select  

Set celluletrouvee = selection.find(what:="15 août", after:=activecell, lookin:=xlvalues) 

If celluletrouvee Is Nothing Then 
   MsgBox ("pas trouvé") 
Else 
   ligne = celluletrouvee.Row 
   col = celluletrouvee.Column 
   MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col) 
End If 
Cells(col,ligne).Activate

End Sub

/!\ j'ai pas testé ...

;o)

Réponse 2 / 11

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 mai 2008 à 16:20

Ah oui ... il faut mettre Exit Sub après le MsgBox "pas trouvé" ... :-s ... sinon le reste du code est exécuté ... dsl d'avoir omis ça ...

bon courage pour la suite

;o)

Réponse 3 / 11

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 mai 2008 à 15:48

bonjour,

Si tu nous mets ta macro ... ça aiderai.

;o)

Réponse 4 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 15:53

le oila ci dessous:

rows("2:2").select
selection.find(what:="15 août", after:=activecell, lookin:=xlvalues).activate

ensuite il nomme la cellule trouver pour lui changer la couleur de fond..... mais la suite du code est sans objet.
En fait je plante a cause du .activate car si il trouve pas ba il se pas quoi activer lol

Merci de ton interet

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 15:58

Si vous connaissez n'importe quelle autre astuce pour rechercher ce ....tut tut tut de 15 aout je suis preneur aussi ...
encore milles merci

Réponse 6 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 16:05

merci j'essay de ce pas... je te tiens au jus

Réponse 7 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 16:14

a part la derniere ligne qui fait planté en cas de non trouvage (je re invente le francais j ai les neuronnes grillé) c nikel il me dis si il a trouvé ou non par le biais d une fenetre.
Je vais essayait d'adapter ca a mon tableau a savoir essayait de recuperer les coordonne si il trouve pour nommer ma cellule et si il trouve pas ne rien faire (donc pas de fenetre non trouvé juste continuer la suite du code).

En tout cas merci pour ce code

Réponse 8 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 16:30

Pas de probleme pour l'ommission, je viens de l'adapter a mon programme ca marche nikel. si je pouvait te noter je te mettrait un bon 19,5/20 (omission oblige lol) en tout heureusement que des gens comme toi s'interesse un peu au autres.

Encore mille merci

Réponse 9 / 11

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 mai 2008 à 16:33

De rien, je ne cherche pas de "note", ça me fait plaisir de rendre service (quand je peux)

Bon courage pour la suite.

;o)

polux

Réponse 10 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 16:34

ba tu peux etre content de toi sur ce coup là...
Bonne continuation à toi

Réponse 11 / 11

skipparno Messages postés 49 Date d'inscription jeudi 24 avril 2008 Statut Membre Dernière intervention 13 août 2009 19
29 mai 2008 à 17:08

tellement heureux d'avoir la solution et que mon truc marche je viens de me servir un petit sky a ta santé encore mille merci

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

"L'indice n'appartient à la sélection" + VBA

commande find et option ctime

linux : find & grep

VBA : Range avec références variables..

Discussions similaires

Newsletters