Discussion :

[KOUZINE]

Bonjour

je suis débutante vba j'ai tout appris sur les forums merci

j'ai créé un planning avec en lignes toutes les dates du calendrier
L'utilisateur entre dans la colonne du lieu choisi (salle de spectacle, hall ou autre) le nom de l'évènement et dans la case "cout "adjacente le tarif.

Les évènements ont souvent le même nom ("expo" '"résidence" "cours de danse" dans l'exemple)



dans l'exemple la colonne TOTAL affiche n'importe quoi mais c'est une somme toute bête des coûts (ici je n'en ai mis aucun)

Le résultat souhaité sur un autre onglet est celui ci:
En Colonne :
DATE, LIEU, NOM, COUT (les virgules représentent des changements de cellules) :
mardi 5, salle de spectacle, residence, cout
mercredi 6, salle de spectacle, residence, cout
jeudi 7, salle de spectacle, residence, cout
jeudi 7, hall,expo, cout
etc


Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton38_Cliquer()
Dim plage As Range
Dim cel As Range
Set plage = Range("E6:E35")
 
For Each cel In plage
If cel.Value <> "" Then
Sheets("LISTING_PREV").Range("A65536").End(xlUp).Offset(1).Value = cel.Value
Sheets("LISTING_PREV").Range("C65536").End(xlUp).Offset(1).Value = "Salle de spectacle"
End If
Next cel
Set plage = Nothing
End Sub

Pour copier les cellules non vides ça marche
mais pour faire une recherche dans la matrice (copier la date et le cout) c'est impossible car il y a des doublons !! il faut surement que je passe par le n° index de la cellule ou un truc comme ça....
Je ne sais pas comment gérer les doublons

De plus mon code je vais devoir le copier 3 fois pour chaque mois car 3 salles, soit 36 fois ce bout de code... je suis sure qu'il y a plus simple

l'un d'entre vous a t-il traité un problème similaire
merci

[kiki29]

Salut, pour ta culture personnelle : gestion des doublons Index et Equiv

[AlphaScorpi]

Je me suis permis quelques libertés avec les lignes et colonnes, je n'ai pas trop les yeux en face des trous à cette heure ci. Mais ça devrait marcher avec une simple boucle comme celle ci.

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
Sub Bouton38_Click()
    Dim WS As Worksheet
    Dim WS2 As Worksheet
    Dim i As Integer, j As Integer
    Dim a As Integer
    Dim mt(1 To 4) As Variant
    Set WS = ThisWorkbook.Worksheets("TesDonnées")
    Set WS2 = ThisWorkbook.Worksheets("LISTING_PREV")
    a = WS2.Cells(Rows.Count, 3).End(xlUp).Row + 1
    With WS
        For i = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
            For j = 3 To 7 Step 2
                If .Cells(i, j) <> "" Then
                    mt(1) = .Cells(i, 1)
                    mt(2) = .Cells(4, j)
                    mt(3) = .Cells(i, j)
                    mt(4) = .Cells(i, j + 1)
                End If
                WS2.Cells(a, 3).Resize(, 4) = mt
                a = a + 1
            Next j
        Next i
    End With
 
End Sub

ps : Je viendrais verifier dans un litre de café =)

[KOUZINE]

AlphaScorpi MERCI à toi !!

Voici mon CALENDRIER avec ton bout de code sur le bouton "CLOTURER"
Regarde sur le deuxieme onglet le résultat si par hasard tu as le temps d'y jetter un oeil ... je vais me documenter pour mieux comprendre mais ça a l'air fantastique comme piste

[KOUZINE]

Salut, pour ta culture personnelle : gestion des doublons Index et Equiv

KIKI
j'avais lu ces deux liens avant de poster mais tout ce que j'ai trouvé c'est comment supprimer les doublons :/ Or moi c'est la situation inverse !

donc à part développer un truc du genre :

• compter le nombre de valeurs identiques
• pour le nombre de valeurs identiques appliquer une fonction index et equiv

je n'ai pas trouvé de solution "simple", ou du moins, à mon niveau