Affichage de données de cellules dans une userform

Version imprimable

22/09/2013, 19h32
rocornet

Affichage de données de cellules dans une userform

Bonjour,
j'ai tenté de le créer mais sans réussite
dans l' userform 2 il ya 5 cases:
le numéro d'équipe
Nombre de parties gagnées
Nombre de parties ex aequo
Nombre de parties gagnées après le temps fini
Qualifié pour la suite?
J'aimerai que quand on insère un numéro d'équipe cela affiche les données correspondantes qui se situent dans "feuille des résultats" dans les colones R T V
Et j'aimerai que cela cherche si ce numéro d'équipe est présent dans une liste en ='dispachage pour finale'!F5:F20 (si il est présent cela afficherais OUi autrement Non)
Merci beaucoup d'vance
23/09/2013, 09h52
EngueEngue

il suffit de coder dans numerodequipe_change
un .find puis faire des offsets...
23/09/2013, 17h37
rocornet

Progrès mais encore tout à fait parfait

Merci pour la recherche j'ai trouvé
Mais il me faut encore la fonction qui me renvoie oui ou non en fonction que le numéro d'équipe soit dans la liste mentionnée ou pas.
23/09/2013, 17h39
EngueEngue

Soit tu boucles dans ta liste avec un if... soit tu fais une recherche dans ta liste.. si la recherche donne une erreur alors c'est qu'il n'y est pas..

Un exemple à adapter (si tu veux une fonction, ...):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ValueInRange()
 
  Dim rngPlage As Range, rngTemp As Range
 
  Set rngPlage = Range("Plage de recherche")
  Set rngTemp = rngPlage.Find("Valeur Recherchée", , , xlWhole)
 
  If rngTemp Is Nothing Then
    MsgBox ("False")
  Else
    MsgBox ("True")
  End If
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim rngPlage As Range, rngTemp As Range
 With Worksheets("dispachage pour finale")
  Set rngPlage = Range("F5:F20")
  Set rngTemp = rngPlage.Find("Valeur Recherchée", , , xlWhole)
 
  If rngTemp Is Nothing Then
    suite = "NON"
  Else
    suite = "OUI"
  End If
End With
  End Sub

j'ai ajouté ça mais ça m'affiche toujours Non
Pourquoi donc?

23/09/2013, 18h05
EngueEngue

Parce qu'il n'y a jamais "Valeur Recherchée" dans F5:F20

Alors pourquoi ça affiche toujours non avec ce code:

Code:

1
2
3
4
5
6
7
8
9
Dim rngPlage As Range, rngTemp As Range
With Worksheets("dispachage pour finale")
Set rngPlage = Range("F5:F20")
Set rngTemp = rngPlage.Find(numéquipe.Value, , , xlWhole)
 
If rngTemp Is Nothing Then
suite = "NON"
Else
suite = "OUI"

23/09/2013, 21h20
Invité

Et 'numéquipe.Value' ça renvoie à quoi ? Un controle de formulaire ? Dans ce cas il faut préciser le nom du formulaire avec 'frmFormulaire.numéquipe.Value' en adaptant le nom.
24/09/2013, 16h51
rocornet

ça affiche toujours non même avec le nom du formulaire comme tu as dit
Merci déjà beaucoup pour ton aide

Bonjour, test ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
SerchXls = 0
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function
 
 
Private Sub ValueInRange()
   If  SerchXls(Columns("B:B"), Range("B1"), "toto", True) = 0 Then
    MsgBox ("False")
  Else
    MsgBox ("True")
  End If
 
End Sub

24/09/2013, 17h18
rocornet

Merci beaucoup
ça marche!