Discussion :

[ericlb56]

Bonjour,
je suis un habitué de ce forum ou j'arrive toujours à trouver des codes à adapter à mes projets.
J'adore faire des petites macros, en général pour des classeurs en lien avec le sport. Je ne demande que très rarement l'aide de la communauté developpez.net car j'essai au maximum de m'inspirer des sujets proposés sur le forum.

Aujourd'hui, après des multitudes d'essais d'adaptation de divers codes, je ne parviens pas à réaliser mon projet.

J'ai adapté un classeur exemple qui répondra à mes besoins.
Dans ce classeur, il y a 4 feuilles, la 1ère appelé Tableau de bord me sert à entrer les informations nécessaires à l'établissement d'un classement (dans mon fichier exemple, il s'agit d'un classement cycliste..) j'y entre les informations à intégrer dans une base de données (feuille Bdd) par copier collé.
Jusque là pas de soucis, ensuite je voudrais pour chaque coureur (sans doublon) récupérer le nombre de point qu'il a marqué à chaque course pour établir un classement (feuille CLT) et c'est là que "je" plante!
Je vous laisses découvrir mon classeur exemple en espérant qu'avec celui-ci un surdoué du language vba puisse me venir en aide
Mon projet est disponible ici : https://drive.google.com/file/d/13KZ...ew?usp=sharing

Eric

[EricDgn]

Bonjour,

Une façon de faire mettant toutes les données dans un tableau structuré, tableau utilisé ensuite pour alimenter un tableau croisé dynamique (et plus besoin de remplir la feuille CLT).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Sub AjoutDansBdd()
    Dim kR As Long
    ThisWorkbook.Worksheets("Tableau de Bord").Select
    If Range("B2") = "" Or Range("B3") = "" Then
        MsgBox "Date et lieu à compléter svp.", , "Annulé"
        Exit Sub
    End If
    If Range("A5") = "" Then
        MsgBox "Cellule A5 est vide !?", , "Annulé"
        Exit Sub
    End If
    '--- complète la plage de données avant copie
    Range("E5") = Format(Range("B2").Value, "dd/mm/yyyy") & " " & Range("B3").Value '--- date et lieu
    kR = Range("A" & Rows.Count).End(xlUp).Row      '--- n° dernière ligne à copier
    Range("E5").Copy Range("E5:E" & kR)             '--- recopie la formule
    Range("A5:A" & kR).Copy Range("F5")             '--- recopie les places de A en F
    '--- sélection cellule en bas de la table
    ThisWorkbook.Worksheets("Bdd").Select
    Range("T_Bdd").Offset(Range("T_Bdd").Rows.Count, 0).Resize(1, 1).Select
    '--- recopie des données
    Worksheets("Tableau de Bord").Range("B5:F" & kR).Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    '--- vide la plage de données
    Sheets("Tableau de Bord").Range("A5:F" & kR).Delete Shift:=xlUp
End Sub

Cordialement.

[ericlb56]

ERICDGN, un grand MERCI,
même si votre proposition n'était pas tout à fait ce que j'attendais, elle m'a permit d'aborder mon problème d'une autre manière.
Merci beaucoup!