Re: Ventilation |
Titre du sujet : Re: Ventilation par myDearFriend! le 04/11/2015 12:41:08 Bonjour catzzarts, bienvenue sur XLpages.com
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 :
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, |
Forums