Grosse galère avec excel [Résolu]

Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
- - Dernière réponse : Zlub
Messages postés
815
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
- 25 juil. 2005 à 21:20
salut à tous
ca fait deux jour que je galère pour utiliser excel avec visual basic 6.0

faut savoir que je débute ..... et j'ai donc lu les docs que j'ai trouvé 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é que d'une seule feuille don le nom d'origine n'a pas été modifié

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 écrive dans la cellule se trouvant juste à droite (de celle ou il y a "tintin") le mot "tata"

mais que si il ne trouve pas le mot "tintin" il écrive le mot "toto" dans la cellule A1 (c'est là que ca se corse pour moi)
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
815
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
2
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 222 internautes nous ont dit merci ce mois-ci

Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
0
Merci
merci merci merci beaucoup beaucoup zlub

tu me sauves !!!!!!!!!!!!!!!!
Messages postés
815
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
2
0
Merci
De rien

++

Zlub