Bug suite .find en vba
Résolu
skipparno
Messages postés
49
Statut
Membre
-
skipparno Messages postés 49 Statut Membre -
skipparno Messages postés 49 Statut Membre -
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.
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.
Configuration: Windows Vista Internet Explorer 7.0
11 réponses
-
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) -
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)
-
bonjour,
Si tu nous mets ta macro ... ça aiderai.
;o)
-
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 -
Si vous connaissez n'importe quelle autre astuce pour rechercher ce ....tut tut tut de 15 aout je suis preneur aussi ...
encore milles merci -
-
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 -
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 -
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 -
ba tu peux etre content de toi sur ce coup là...
Bonne continuation à toi -
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
