Application banale mais chiante!!

hred1 Messages postés 108 Date d'inscription samedi 9 avril 2005 Statut Membre Dernière intervention 6 décembre 2007 - 4 juil. 2007 à 14:46
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 5 juil. 2007 à 03:56
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

jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
4 juil. 2007 à 15:16
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à.....
0
skyaero Messages postés 26 Date d'inscription lundi 25 octobre 2004 Statut Membre Dernière intervention 6 octobre 2008
4 juil. 2007 à 18:37
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
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
5 juil. 2007 à 03:56
^^ 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
0