Microsoft 365 VBA - Tableau

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Juin 2023

• #2

Bonjour Morval, et bienvenu sur XLD,
Comment comptez vous les dates ?
2018/2019 : 1 janvier 2018 au 31 décembre 2019
2019/2020 : 1 janvier 2019 au 31 décembre 2020
d'où un souci de recouvrement, ou :
2018/2019 : 1 janvier 2018 au 31 décembre 2018
2019/2020 : 1 janvier 2019 au 31 décembre 2019

 

Vote positif 0 Vote négatif

J

JOMOR

XLDnaute Nouveau

• 9 Juin 2023

• #3

2019/2020 -01/09/2019 au 31/08/2020
2020/2021 01/09/2020 au 31/08/2021
2021/2022 01/09/2021 au 31/08/2022

 

Vote positif 0 Vote négatif

J

JOMOR

XLDnaute Nouveau

• 10 Juin 2023

• #4

Re bonjour, en fait les années 2019/2020 - 2020/2021 etc... non pas vraiment d'importance au niveau des dates.
Ces champs peuvent être remplacés par des noms, comme "Victor Emile Sophie etc..
Bien à vous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Juin 2023

• #5

Bonjour Morval,
Un essai en PJ. Cette macro s'exécute automatiquement lorsqu'on sélectionne la feuille "Sol", avec :

Code:

Sub Worksheet_Activate()
    Dim tablo, Ligne%, Colonne%, i%, DL%
    On Error GoTo Fin
    DL = [A65500].End(xlUp).Row
    Set Plage = Range("A1:A" & DL)
    Range("B5:M" & DL).ClearContents
    Application.ScreenUpdating = False
    tablo = Sheets("Base").[A1].CurrentRegion
    For i = 2 To UBound(tablo)
        Ligne = Application.Match(tablo(i, 1), Plage, 0)
        Colonne = Application.Match(tablo(i, 2), [3:3], 0)
        Cells(Ligne, Colonne) = tablo(i, 3)
    Next i
Exit Sub
Fin:
MsgBox " Non trouvé : " & tablo(i, 1) & " - " & tablo(i, 2) & " - " & tablo(i, 3)
End Sub

A noter que le lieu "Zimont" dans votre fichier est présent deux fois, mais la macro ne le traite qu'une seule fois.
est ce une erreur ou doit on dupliquer cette ligne ?

 

Pièces jointes

• Tableau 1 (1).xlsm

  27.4 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JOMOR

XLDnaute Nouveau

• 10 Juin 2023

• #6

Un grand merci, oui j'ai remarqué que je devais enlever le deuxième "Zimont".
C'est vraiment ce que je voulais.
Si j'ose abuser, est-il possible de mettre les couleurs autrement que par mise en forme conditionnelle.
Merci d'avance pour vos réponses.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Juin 2023

• #7

Il suffit de rajouter :

VB:

Range("B5:M" & DL).Interior.Color = xlNone
et
Select Case tablo(i, 3)
   Case "Maison":      Cells(Ligne, Colonne).Interior.Color = RGB(255, 192, 0)
   Case "Ferme":       Cells(Ligne, Colonne).Interior.Color = RGB(255, 255, 0)
   Case "Building":    Cells(Ligne, Colonne).Interior.Color = RGB(197, 224, 178)
End Select

 

Pièces jointes

• Tableau 1 (V2).xlsm

  27.8 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

J

JOMOR

XLDnaute Nouveau

• 10 Juin 2023

• #8

Cela fonctionne à merveille, je vous remercie.
Je vous souhaite de passer un très bon we.
Bien à vous

 

Vote positif 0 Vote négatif

J

JOMOR

XLDnaute Nouveau

• 12 Juin 2023

• #9

Bonjour Sylvanu,
Est-il possible en plus d'indiquer la couleur pour la cellule, de changer la couleur du texte.
Merci d'avance pour votre réponse.
Bien à vous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2023

• #10

Bonjour Jomar,
On peut tout modifié. En PJ, qui est un exemple, j'ai joué sur les couleurs et mises en forme avec :

VB:

'Cells(Ligne, Colonne).Interior.Color = RGB(255, 192, 0)    'Couleur de fond de la cellule
'Cells(Ligne, Colonne).Font.Color = RGB(255, 0, 0)          'Couleur du texte
'Cells(Ligne, Colonne).Font.Italic = True                   'Italigne ( False=normal)
'Cells(Ligne, Colonne).Font.Underline = True                'Souligné
'Cells(Ligne, Colonne).Font.Bold = True                     'Gras

A vous de modifier le code à votre sauce. 🙂

 

Pièces jointes

• Tableau 1 (V3).xlsm

  28.5 KB · Affichages: 2

Vote positif 0 Vote négatif

J

JOMOR

XLDnaute Nouveau

• 12 Juin 2023

• #11

Ah ok, j'ai compris comment il faut le faire.
Encore un grand merci et belle après-midi.

 

Vote positif 0 Vote négatif