"Trouver" avec VBA

[Famu]

Bonjour,

Comment traduire 'contient' en langage visual basic ?

For I = 4 To 30

If Cells(I, 1) = contient 'A' Then
Cells(I, 5) = 'BlaBlaBla'
End If
Next

merci pour votre aide,
Famu.

 

[Hervé]

Bonjour Famu

J'imagine que dans tes cellules de la colonne A, les 'A' ne sont pas seuls, alors regarde du côté de l'instruction instr :

For I = 4 To 30

If InStr(1, Cells(I, 1), 'A') > 0 Then
Cells(I, 5) = 'BlaBlaBla'
End If
Next


attention à la casse de tes lettres.

salut

 

[Famu]

C'est sur, je n'aurais jamais trouvé ça tout seul !. Ca marche super.

Merci Hervé et bon après-midi.

 

[Famu]

Hervé,

Si j'ajoute la condition suivante :

Seule les cellules dont le dernier caractère de la chaîne se trermine par 'A'.
Comment faire ?

 

[PascalXLD]

Bonjour

For I = 4 To 30
If Right(Cells(I, 1),1)='A' Then
Cells(I, 5) = 'BlaBlaBla'
End If
Next

Bon courage

 

[Hervé]

Re:\"Trouver\" avec VBA

re

comme ceci : If Right(Cells(I, 1), 1) = 'A' Then

salut

EDITION : salut pascal 🙂

Message édité par: Hervé, à: 08/11/2005 15:14

 

[Famu]

Merci à tous les deux, c'est nickel.

Ciao,
Famu.

 

[Excel_lent]

Bonjour à tous,

Une autre façon de voir les choses mais beaucoup plus restrictive.
Je la propose seulement pour la tournure.

Bonne journée [file name=famu.zip size=7402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/famu.zip[/file]

 

[FREESURF]

bonjour Hervé,

je planche depuis pas mal de temps sur une formule vba pour trouver des valeures dans differentes collones. Est-ce que ta formule pourrait se comparer a un lookupv ?

 

[_Thierry]

Bonjour Hervé, Pascal, le Fil, le Forum


Pour la dernière question de FreeSurf, non ce n'est pas vraiment comparable à un 'VlookUp' ce qui a été proposé est une boucle sur une plage de cellules.

Voici une vraie VloopUp en VBA :

Sub MyVBAVlooUp()
Dim Plage As Range
Dim MyQuestion As String
Dim MyReply As String

'A tester en tapant TOTO en A10 et ZAZA en B10 par exemple

MyQuestion = 'Toto'

Set Plage = Range('A2:E500')


On Error Resume Next 'Si pas de retour de donnée
MyReply = Application.WorksheetFunction.VLookup(MyQuestion, Plage, 2)

MsgBox MyReply

End Sub

Bonne Journée
[ol]@+Thierry[/ol]

 

[FREESURF]

BONJOUR THIERRY,

MERCI POUR TA REPONSE.

CETTE Macro fonctionne parfaitement bien, comment faire pour que la question posee sois le contenu d'une combobox?
(click ou double click)
Merci encore de nous faire partager vos connaissances.

 

[_Thierry]

=> DEMO UserForm "Trouver" avec VBA

Bonjour FreeSurf, Hervé, Pascal, le Fil, le Forum

Désolé, je n'ai pas eu trop de temps à consacrer au Forum, et je n'ai vu ta dernière question qu'à l'instant.

Plutot que de faire un long discours, voici une chti démo qui groupera deux méthodes de recherches à partir d'un UserForm.

Bon Week End
[ol]@+Thierry[/ol] [file name=USF_Search_VlookUp.zip size=20299]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF_Search_VlookUp.zip[/file]

 

[FREESURF]

Re:=> DEMO UserForm "Trouver" avec VBA

bonsoir trout le monde

merci pour ta reponse, je la testerais apres le match de foot qui oppose la suisse a la turquie

merci encore

 

[FREESURF]

Re:=> DEMO UserForm "Trouver" avec VBA

re bonsoir à tous,

ouf bon resultats, pour ta macro et pour le foot, merci Thierry.
Je m'emprese de ettre ta réponse dans mon classeur perso,
et je tente de joindre le classeursur lequel je travaille.Je te precise que la plupars des macros ont été trouvées sur le forum et que j' ai tenté de les adapter à mes besoin avec plus ou moin de succés.

En clican sur le boutton rechercher de la feuille 'nouvelle fiche' tu ouvre mon userform2
en clican sur le boutton chefs machines jet puis rechecher, tu initialise
la combobox
selectionne un nom et appuie sur le commandbutton4.
Les réponse retournées dans la premiere textbox est totalement fantaisiste, puis les autres reponses sont décalées.Peut-tu m'expliquer mon erreure. Merci d'etre indulgeant devant mon ignorance, mas comme dit précédemment, je débute.

A bientot. [file]

 

[FREESURF]

Re:=> DEMO UserForm "Trouver" avec VBA

[file]