Rapport de message :*
 

Re: Ventilation

Titre du sujet : Re: Ventilation
par myDearFriend! le 04/11/2015 12:41:08

Bonjour catzzarts, bienvenue sur XLpages.com smiley

 

Tu trouveras en pièce jointe une façon de faire...

 

J'ai utilisé le code VBA suivant :

 

DANS UN MODULE DE CODE STANDARD (ex : Module1)

Option Explicit
'----------------------------------------------------------------------
' myDearFriend!  -  www.mdf-xlpages.com
' Novembre 2015
'----------------------------------------------------------------------
Sub Ventilation()
Dim vTab As Variant
Dim L As Long
    vTab = Sheets("Index").UsedRange.Value
    For L = 1 To UBound(vTab, 1)    'Pour chaque ligne d'Index
        If IsDate(vTab(L, 1)) Then  'Si date détectée en colonne 1
            Injection L, vTab       'Injecter les résultats
        End If
    Next L
    MsgBox "Ventilation des résultats terminée !"
End Sub

Private Sub Injection(L As Long, vTab As Variant)
Dim shCible As Worksheet
Dim R As Range
Dim C As Byte
    On Error Resume Next
    Set shCible = Sheets(vTab(L, 2))                'Onglet ? (si existe)
    On Error GoTo 0
    If shCible Is Nothing Then Exit Sub
    Set R = shCible.Columns(1).Find(vTab(L, 1))     'Date ? (si existe)
    If Not R Is Nothing Then
        'Injecter les résultats
        For C = 1 To 5
            R.Offset(0, C).Value = vTab(L, C + 2)
        Next C
    End If
End Sub

En théorie, il te faut simplement veiller au respect des points suivants :

  • Les noms des joueurs en onglet "Index" correspondent EXACTEMENT aux noms d'onglets joueurs.
  • Les dates en onglet "Index" sont également présentes dans ces onglets joueurs.

 

Pour l'ajout d'un joueur, il suffit simplement d'ajouter une ligne dans l'onglet "Index" et de créer son onglet correspondant.

Si les points ci-dessus sont respectés, la macro fera le reste...

 

En espérant que ça te dépanne.

Bien cordialement,