vba excel, problème avec une boucle pour une list

Question

un petit soucis avec mon code, j'ai une userform avec une liste qui contient 3 noms(car en exemple),et j'ai plusieurs boutons. j'ai une base de donn&#233;es en excel, avec trois colonnes.
je veux qu'a chaque fois que je cliques sur un nom de ma liste, la boucle recherche la bonne d&#233;finition que je lui ai attribu&#233; dans ma base de donn&#233;es. mais je n'arrive pas a integrer ma boucle car a chaque fois que je cliques sur n'importe quel nom, cela me met le toujours la meme d&#233;finition voila mon code

Option Explicit
Dim machaine As String
Dim maplage As Range
Dim macellule As Range
Dim paranoia As String
Dim schizo As String
Dim troubles As String
Dim I As Integer


Private Sub cmddescription_Click()


For I = 0 To 3
lstmaladies.ListIndex


Next I


Set maplage = Range("paranoia")
Set macellule = maplage.Find("Paranoia")
If Not macellule Is Nothing Then
txttexte.Text = Range("B2").Value 'met la d&#233;finition de paranoia dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If


Set maplage = Range("troubles")
Set macellule = maplage.Find("Troubles bipolaire")
If Not macellule Is Nothing Then
txttexte.Text = Range("B3").Value 'met la d&#233;finition des troubles bipolaires dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If


Set maplage = Range("schizo")
Set macellule = maplage.Find("Schizophr&#233;nie")
If Not macellule Is Nothing Then
txttexte.Text = Range("B4").Value 'met la d&#233;finition de schizophr&#233;nie dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If



End Sub

vous pouvez m'aider??? a moins qu'il y ait plus facile que mon code.... Merci

valtrase · Answer

Lut,
Faut d'autres explications &#231;a n'a pas l'aire tr&#233;s dur
Donnes des explications claires du style "Quand je clique sur lstmaladie je veux que txttexte =...."
D'autres part pour toi c'est bien de nommer tes cellules mais pour nous ......
donc les r&#233;f&#232;rence seraient les bienvenues.
de plus quand tu codes le .Find il est tr&#233;s recommand&#233; de donner tous les param&#232;tres
What: ; LookIn ; LookAt ..... sont gard&#233; en m&#232;moire et cela peu fausser les recherches.

Option Explicit
Dim machaine As String
Dim maplage As Range
Dim macellule As Range
Dim paranoia As String
Dim schizo As String
Dim troubles As String
Dim I As Integer
' C'est quoi cmddescription
Private Sub cmddescription_Click()
For I = 0 To 3
' et &#231;a ? c'est quoi lstmaladies
lstmaladies.ListIndex


Next I
' Pourquoi 3 fois txttexte ?
Set maplage = Range("paranoia")
Set macellule = maplage.Find("Paranoia")
If Not macellule Is Nothing Then
txttexte.Text = Range("B2").Value 'met la d&#233;finition de paranoia dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If


Set maplage = Range("troubles")
Set macellule = maplage.Find("Troubles bipolaire")
If Not macellule Is Nothing Then
txttexte.Text = Range("B3").Value 'met la d&#233;finition des troubles bipolaires dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If


Set maplage = Range("schizo")
Set macellule = maplage.Find("Schizophr&#233;nie")
If Not macellule Is Nothing Then
txttexte.Text = Range("B4").Value 'met la d&#233;finition de schizophr&#233;nie dans la textbox
Else
MsgBox "votre recherche n'a pas aboutie"
End If

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_lilith1928 · Answer

oui je suis d&#233;sol&#233;e je suis u peu brouillon. Voyon cmddescription c mon bouton de commande qui me permets de rechercher dans ma base excel la description de la maladie s&#233;lectionn&#233;e. Lstmaladies est ma liste de maladies, pour le moment j'en ai trois (pour essai) schizophr&#233;nie, troubles bipolaires et paranoia.En fait je choisi par exemple paranoia ensuite je clique sur description et cela doit recehrcher dans ma base la description de paranoia (ici dans B2) et ensuite mettre cette description trouv&#233;e dans une textbox (nomm&#233;e txttexte)
Pour l'histoire des txttexte ben c'&#233;tait pour essayer car j'ai vu que qd je mets cette formule une fois &#231;a me r&#233;cup&#232;re bien la description, or quand j'ajoute les deux autres &#231;a ne marche pas.. &#231;a c'est parce que j'ai encore du mal a faire un code et donc j'ai &#233;t&#233; maladroite sur cela... En fait il me faut une boucle je crois For...Next....il me semble apr&#232;s je pense que &#231;a devrait marcher. Pour le code .find on me l'a montr&#233; ainsi sans les autres What: ; LookIn ; LookAt ..... J'esp&#232;re que mes renseignements te conviendront.Merci de prendre le temps de m'aider.

Cordialement Lilith

valtrase · Answer

lut,
Option Explicit 
' On va partir sur un exemple tout simple 
' Il te faut un UserForm "UserForm1" 


' Une ListBox "ListBox1" 


' Un Label "Label1" 


' Un TextBox "TextBox 


' Et 2 boutons de commande CommanButton1 et 2 


' On va d&#233;finir notre base de donn&#233;e 


' Dans un premier temps la listbox se charge 


' et tu peux faire une recherche dans la textbox 


' C'est juste une &#233;bauche pour montrer le fonctionnement 


Dim MaBase As Range 




Private Sub CommandButton2_Click() 


  Dim Cell As Range 




  For Each Cell In Range( "Base" ) 


    If UCase (NotAccents(Cell.Value)) Like "*" & UCase (NotAccents(TextBox1.Text)) & "*" Then 


      ListBox1.Clear: ListBox1.AddItem Cell.Value 


      Exit For 


    End If 


  Next 


End Sub 




Private Sub ListBox1_Click() 


  ' Si clic sur la listBox 


  ' Rechercher le mot cl&#233; et renvoyer la d&#233;finition 


  ' Like permet de trouver un mot ou une partie d'un mot 


  Dim Cell As Range 




  For Each Cell In Range( "Base" ) 


    If UCase (NotAccents(Cell.Value)) Like "*" & UCase (NotAccents(ListBox1.Text)) & "*" Then 


      Label1.Caption =  Cell.Offset( 0 , 1 ).Value 


      Exit For 


    End If 


  Next 


End Sub 




Private Sub UserForm_Activate() 


  ' D&#233;finition de ma plage 


  Set MaBase = [B1:B50] 


  MaBase.Name = "Base" 


  ' Mise en place des controles 


  With UserForm1 


    .Height 326 : .Width 486 : .StartUpPosition = 1 


  End With 




  With Label1 


    .Top 6 : .Height 150 : .Left = 192 : .Width = 282 : 


    .BorderStyle fmBorderStyleSingle: .Caption "Pas d'infos" 


  End With 




  With TextBox1 


    .Top 162 :    .Left 192 :    .Width = 282 : .Height = 24 


  End With 




  With ListBox1 


    .Left 6 : .Top 6 : .Height = 294 : .Width = 150 


  End With 


  With CommandButton1 


    .Top 228 : .Left 288 : .Width = 84 : .Height = 30 : .Caption = "Quitter" 


  End With 


  With CommandButton2 


    .Top 228 : .Left 192 : .Width = 84 : .Height = 30 : .Caption = "Rechercher" 


  End With 


  ' On rempli la listBox 


  ' Je vais au plus simple elle comprends aussi les lignes vides 


  ListBox1.List = Range( "Base" ).Value 


End Sub 




Private Sub CommandButton1_Click() 


  Unload Me 


End Sub 




Function  NotAccents(Chaine$)  As String 


  ' Cette fonction enleve les accent 


  ' c'est plus pratique pour la recherche 


  Dim tmp$, i, x 


  tmp  = Trim (Chaine) 


  For i = 1 To Len (tmp) 


    x = Asc ( Mid (tmp, i, 1 )) 


    Select Case x 


    Case 192 To 197 : x = "A" 


    Case 200 To 203 : x = "E" 


    Case 204 To 207 : x = "I" 


    Case 209 : x = "N" 


    Case 210 To 214 : x = "O" 


    Case 217 To 220 : x = "U" 


    Case 221 : x = "Y" 


    Case 224 To 229 : x = "a" 


    Case 232 To 235 : x = "e" 


    Case 236 To 239 : x = "i" 


    Case 241 : x = "n" 


    Case 240 , 242 To 246 : x = "o" 


    Case 249 To 252 : x = "u" 


    Case 253 , 255 : x = "y" 


    Case Else: x = Chr (x) 


    End Select 


    NotAccents = NotAccents & x 


  Next 


End Function 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_lilith1928 · Answer

Bonsoir,

Je suis venue te remercier pour ton code qui marche a merveille, ce dernier m'a permis de mieux comprendre le fonctionnement d'une boucle!Il m'a aussi permis de d&#233;velopper d'autres id&#233;es qui elles aussi marchent tr&#232;s bien grace a toi. Encore merci d'avoir pris un peu de ton temps pour m'avoir aider.Si tu veux quand j'aurais tout fini je t'enverrais ce que j'ai fait (comme tu veux).
Bonne fin de soir&#233;e

Cordialement lilith

valtrase · Answer

Je suis toujours preneur de nouvelle id&#233;es ... donc d'accord pour ta proposition 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Vba excel, problème avec une boucle pour une list

5 réponses

Discussions similaires