Discussion :

[dmoluc]

Bonjour,
Je bataille depuis quelques temps avec mes très maigres connaissances pour récupérer les valeurs de deux cellules d'une feuille de calcul et les insérées dans des textBox d'un userform.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

Dim LigneActive As Long
 Dim Pa As Long
 Dim Pe As Long

 'Dans La TextBox8 j'ai une Valeur que je veux comparer aux cellule de la collonne "B", alor j'essais de faire une boucle j'usqu'à ce que la condition soit Vrait

 Pa = Range("B" & Rows.Count).End(xlUp).Offset(0, 0)
While Pa <> TextBox8
Pa = Range("B" & Rows.Count).End(xlUp).Offset(0, 0)
If TextBox8 = Pa Then
'Ensuite j'essais de me déplacer sur la ligne sélectionnée ver la collonne "D" afin de copier la valeur de la cellule D"" Vers l'UserForm dans la textBox13 

LigneActive = Selection.Row
Load UserForm2
UserForm2.TextBox13.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
End If
Wend

' Je recommence l'opération pour la deuxième TextBox

Pe = Range("B" & Rows.Count).End(xlUp).Offset(0, 0)
While Pe <> TextBox7
Pe = Range("B" & Rows.Count).End(xlUp).Offset(0, 0)
If TextBox7 = Pe Then
LigneActive = Selection.Row
Load UserForm2
UserForm2.TextBox14.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
End If
Wend

Au mieux tout ce que j'arrive à faire c'est faire tourner la macro en boucle et tester la puissance de mon I7 et j'ai beau chercher sur le net, je ne trouve pas de syntaxe qui correspondent à ce que je veux faire.
Je joints le fichier avec mes codes de débutants
Merci par avance pour votre aide

[mercatog]

Bonjour
Regarde l'aide sur la méthode Find, tu auras ta solution.

[dmoluc]

Voilà ce que j'ai pu trouver sur la méthode find que je ne connaissais pas, mais il y a encore quelque chose que je ne saisis pas car aucun résultat ne s'affiche dans ma textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Rg As Range, Trouve As Range, Adr As String
With Worksheets("Feuil1")
    Set Rg = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
End With
 
With Rg
    Set Trouve = .Find(What:=Me.TextBox8, LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
 
    'Si la méthode "find" a trouvé
    If Not Trouve Is Nothing Then
        Adr = Trouve.Address
        Do
          'Trouve est la cellule qui contient l'expression recherchée
 
           'Pour récupérer la valeur de la colonne D sur la même ligne
         TextBox13.Value = Trouve.Offset(, 2).Value
 
            'Pour continuer la recherche sur la plage
 
            Set Trouve = .FindNext(Trouve)
        Loop Until Trouve.Address = Adr
    End If
End With

[mercatog]

Le but est de chercher la première ligne de la colonne B contenant le texte entrée dans TextBox8 et afficher la donnée de la colonne D dans TextBox13

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Rg As Range, Trouve As Range
 
If Me.TextBox8 <> "" Then
    With Worksheets("Feuil1")
        Set Rg = .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
    End With
 
    With Rg
        Set Trouve = .Find(What:=Me.TextBox8, LookIn:=xlValues, LookAt:=xlWhole, _
                           SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
        'Si la méthode "find" a trouvé
        If Not Trouve Is Nothing Then
            TextBox13.Value = Trouve.Offset(, 2).Value
            Set Trouve = Nothing
        End If
    End With
    Set Rg = Nothing
End If

Sinon, une question, quelles sont les types des données de la colonne B (texte, nombres, dates...) et si elles sont des valeurs ou des formules.

[dmoluc]

Je crois que je vais encore passé de longue heures sur ce problème car "Trouve" ne trouve rien et rien ne s'affiche dans ma textbox. 9Ce serait bête de devoir rentré mes distances à la main alors qu'elles sont sur la feuille et ça me bloque la suite de mon programme qui est encore long et surement pas mal à retoucher.
Enfin merci pour ton aide car au moins maintenant la macro n’essaie plus de mettre l'ordinateur à genoux
D'ici l'arrivé de l'étape du tour de France j'aurai peu être trouver quelque chose

[mercatog]

Si Find ne trouve rien c'est qu'il faudra répondre à ma question: en colonne B tu as des formules ou valeurs? Quelle est le type des données de ta colonne B?