grosse galère avec excelRésolu

Question

salut &#224; tous
ca fait deux jour que je gal&#232;re pour utiliser excel avec visual basic 6.0

faut savoir que je d&#233;bute ..... et j'ai donc lu les docs que j'ai trouv&#233; mais j'ai tout le temps des erreurs dans mon code ou alors il fait pas ce que je veu..................

donc si quelqu'un pouvait me taper un bout de code ce serai vraiment trop sympa(et si en plus il pouvait le documenter ce serai vraiment trop bien)

alors voila il faut travailler sur le fichier suivant: C:\MF\questions\db.xls qui n'est constitu&#233; que d'une seule feuille don le nom d'origine n'a pas &#233;t&#233; modifi&#233;

et je veu que l'orsque je clic sur un bouton de commande :
Private Sub Command1_Click()


End Sub
cela fasse la recherche du mot "tintin"dans cette feuille 

et que si il trouvai le mot "tintin" alors que le soft &#233;crive dans la cellule se trouvant juste &#224; droite (de celle ou il y a "tintin") le mot "tata"

mais que si il ne trouve pas le mot "tintin" il &#233;crive le mot "toto" dans la cellule A1 (c'est l&#224; que ca se corse pour moi)

Zlub · Accepted Answer

Salut,


Je te propose le code suivant :


Private Sub Command1_Click() 


Dim nb As Integer

Dim celStart As String



nb = 0

Cells(1, 1) = ""



On Error GoTo notFind

While (Cells.Find(What:="tintin", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate) And (ActiveCell.Address <> celStart)



        If nb 0 Then celStart ActiveCell.Address

        

        Dim ligne As Integer

        ligne = ActiveCell.Row

        Dim colonne As Integer

        colonne = ActiveCell.Column + 1

        Cells(ligne, colonne) = "tata"

        nb = nb + 1

Wend



notFind:

Cells(1, 1) = "toto"



End Sub


++

Zlub

zwarul · Answer

merci merci merci beaucoup beaucoup zlub

tu me sauves !!!!!!!!!!!!!!!!

Zlub · Answer

De rien 

++

Zlub

Grosse galère avec excel

3 réponses

Discussions similaires