Application banale mais chiante!!

Signaler
Messages postés
108
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
6 décembre 2007
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour,

Je bloque sur un boud de programme qui permet de chercher un mot dans un tableau excel puis le remplaacer par un autre.
Seulement ça marche pas. Pouvez vous me dire ce qu'il ne va pas dans mon soft, autre chose il sort pas de la boucle do wille

Merci

wsExcel.Select()







Dim
Valeur

As



String
=

"cette_annee"






Dim
rngTrouve

As
Excel.Range
'je cherche la valeur "cette_annee" dans cette plage
rngTrouve = wsExcel.Range(wsExcel.Cells(1, 1), wsExcel.Cells(190, 50)).Find(What:=Valeur)

' tant qu'il trouve cette valeur, je la remplace par la nouvel valeur




Do



While
rngTrouve.Activate      rngTrouve.Value =


CStr
(m_frmOptions.AnneeEtudiee)


      If
rngTrouve

Is



Nothing



Then






         Exit



Do






      End



If






Loop

rngTrouve =




Nothing

RED1

3 réponses

Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
Bonjour,


 


J'ai cherché à te donner un coup de main en recherchant sur ce forum, mais en vain !


J'ai cherché avec le mot "Application" ===>>> trop de sujets extrêmement variés...


J'ai alors cherché avec le mot "banale" ===>>> rien trouvé...


J'ai cherché avec le mot "chiante" ===>>> rien trouvé non plus !!!


Je me dis que toute réponse à ta question sera également perdue pour les mêmes raisons, à moins que quelqu'un cherchant à remplacer le contenu d'une cellule d'Excel par un autre contenu n'ait l'idée (pourquoi pas ?) de rechercher avec l'un quelconque des mots de ton titre ....


Cherche l'erreur, là.....
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008

Excel dispose d'une fonction de recherche et de remplacement de mots.
En vb, tu peux utiliser ces fonctions, ton appli y sera plus rapide
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
^^ oui, avec la fonction Find de l'objet Range, mais une fois utilisée, il faut utiliser une autre fonction, FindNext.

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA