Bug suite .find en vba
Résolu
skipparno
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
skipparno Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
skipparno Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Find vba
- Find and mount - Télécharger - Récupération de données
- Ava find - Télécharger - Divers Utilitaires
- Excel compter cellule couleur sans vba - Guide
- Fonction find vba ✓ - Forum Excel
- Fonction Find vba ✓ - Forum Excel
11 réponses
essaies ça
/!\ j'ai pas testé ...
;o)
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)
bon courage pour la suite
;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
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
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
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
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
Bon courage pour la suite.
;o)
polux
