recherche modifiable

[ktm520ktm520]

Bonjour,
il me fautrait rentrer des scores sur des personnes (4 ou 6 resultats) en plusieurs fois

ex: je rentre le resultat B1 et je valide je passe a un autre tireur pendent toutes la journée
bref il faudrait que quand il y ait un resultat de marqué on ne puisse plus l effacer ou qu il reste afficher et ce marque dans la grille recherche

 

[Regueiro]

Re : recherche modifiable

Bonsoir
Mot de Passe pour enlever la protection de la Feuille "scratch"
Merci

 

[ktm520ktm520]

Re : recherche modifiable

Bonjour non c est "vm"
je l ai marqué dans la feuille scratch
manu

 

[Regueiro]

Re : recherche modifiable

Bonsoir Le Forum, ktm520ktm520
Voici ton fichier en retour
Pour Info tu n'avais pas de Tableau1 sur ce fichier
Sur la Feuille "Scratch" click sur la zone Nom tu auras Tableau1

Code dans la Feuille "Scratch"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([P5], Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
            [P9:AA9].ClearContents
            [P9].FormulaR1C1 = "=INDEX(Tableau1[Nom Prénom],MATCH(R5C16,Tableau1[Dos],0))"
            [U9].FormulaR1C1 = "=INDEX(Tableau1[Série],MATCH(R5C16,Tableau1[Dos],0))"
            [V9].FormulaR1C1 = "=INDEX(Tableau1[A1],MATCH(R5C16,Tableau1[Dos],0))"
            [W9].FormulaR1C1 = "=INDEX(Tableau1[B1],MATCH(R5C16,Tableau1[Dos],0))"
            [X9].FormulaR1C1 = "=INDEX(Tableau1[A2],MATCH(R5C16,Tableau1[Dos],0))"
            [Y9].FormulaR1C1 = "=INDEX(Tableau1[B2],MATCH(R5C16,Tableau1[Dos],0))"
            [Z9].FormulaR1C1 = "=INDEX(Tableau1[Barr 1],MATCH(R5C16,Tableau1[Dos],0))"
            [AA9].FormulaR1C1 = "=INDEX(Tableau1[Barr 2],MATCH(R5C16,Tableau1[Dos],0))"
            [P9:AA9].Value = [P9:AA9].Value
       Application.EnableEvents = True
    End If
 End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = "$P$5:$T$5" Then
     Set MonDico = CreateObject("Scripting.Dictionary")
     a = [Tableau1[Dos]]
     For Each c In a
       MonDico(UCase(c)) = UCase(c)
     Next c
     b = MonDico.keys
     Call tri(b, LBound(b), UBound(b))
     For Each c In b: temp = temp & c & ",": Next c
     Target.Validation.Delete
     Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
  End If
End Sub
Sub tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub

Code dans le module "ModValider"

Sub valider()
Dim Cible As Range
Dim Source
Dim p
Set Source = Sheets("scratch").[P5]
Set Cible = Range("Tableau1[Dos]")
'Si la source n'est pas renseignée
     If IsEmpty(Source) Then
        MsgBox ("pas de dos renseigné")
     Exit Sub
     End If

p = Application.Match(Source, Cible, 0)
'MsgBox "ligne : " & p
If Not IsError(p) Then
MsgBox "Dossard : " & Source & " trouvé" & vbNewLine & _
"A la ligne : " & p
End If
     If Cible.Find(What:=Source, LookIn:=xlValues) Is Nothing Then
     MsgBox ("dos non trouvé")
     Exit Sub
     End If
     
    j = 1
    For Each i In Array(1, 2, 3, 4, 6, 7)
        If Not IsEmpty(Cible.Cells(p, j)) Then
            Cible.Cells(p, 1).Offset(0, 2 + i).Value = Cells(9, 21 + j).Value
        End If
    j = j + 1
     Next i
     Range("U6").Select
 End Sub

A+
Bonne soirée

 

[ktm520ktm520]

Re : recherche modifiable

Bonjour,
C'est au top
il reste un truc pour la protection de la feuille
le problème quand la feuille est protéger sa ne marche pas
j ai mi le fichier joint que j ai modifier en présentation
une autre chose quand je valide les scores y a une box qui sort
il faudrait qui est marqué Voulez vous vraiment valider les scores de (le nom du tireur)
et en dessous oui ou non .
A l ouverture j ai un message d erreur
excel a rencontrer un contenu illisible voulez vous récupéré le classeur.....
y doit y avoir un beug
merci beaucoup
Manu

 

[ktm520ktm520]

Re : recherche modifiable

Bonjour,
je suis toujours bloqué sur le probléme de protection de la feuille
pouvez vous m aide
merci Manu

 

[Regueiro]

Re : recherche modifiable

Bonjour le Forum, ktm520ktm520
La Feuille Scratch est bien protégé sauf les colonnes F à J et K à L
depuis la ligne 10.
Donc pas de problème lors de la validation des données.
Celles-ci se mettent à jour correctement

Par contre j'ai également un message lors de l'ouverture du fichier.

Fonction supprimée: Validation des données dans la partie /xl/worksheets/sheet8.xml

Cela provient de la donnée-validation en :

  If Target.Address = "$P$5:$T$5" Then

Etant donnée que ces cellules sont protégées ??

Je regarde cela à l'occase
A+

 

[ktm520ktm520]

Re : recherche modifiable

Bonsoir
donc je viens de regarder avec la feuille protéger y a bien la mise a jour pas de problème
par contre pour rentrer le numéro du dossard sa bloque message d'erreur
merci
a+

 

[ktm520ktm520]

Re : recherche modifiable

Bonsoir,
Je reviens vers vous pour la macro pour voir si vous avez pu trouver une solution?
Cordialement Manu