Discussion :

[rocornet]

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

[EngueEngue]

il suffit de coder dans numerodequipe_change
un .find puis faire des offsets...

[rocornet]

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.

[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..

[Invité]

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

Code :

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

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

[rocornet]

Code :

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

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?