bug suite .find en vba Résolu

Question

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.

Polux31 · Answer

bonjour,

Si tu nous mets ta macro ... ça aiderai.

;o)

skipparno · Answer

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

skipparno · Answer

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

Polux31 · Answer

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)

skipparno · Answer

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

skipparno · Answer

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

Polux31 · Answer

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)

skipparno · Answer

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

Polux31 · Answer

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

skipparno · Answer

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

skipparno · Answer

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

Bug suite .find en vba

11 réponses

Discussions similaires

Newsletters