Discussion :

[salseropom]

Bonjour,
lorsque je crée un dictionnaire, j'ai toujours une ligne monDico.comparemode = vbTextCompare. Voir code ci-dessous. Existe-t-il svp une option que je pourrai mettre en tête de mon module ou de mon module de classe pour dire que par défaut je souhaite utilise le vbTextCompare ? Un peu comme un Option Explicit ou un Option Base 1

Merci beaucoup

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
28
 
        Set dicoMoisCadRegion = CreateObject("Scripting.Dictionary") 'creation du dictionnaire
        dicoMoisCadRegion.comparemode = vbTextCompare 'on ignore la casse de la cle de recherche
        mois = moisRef_
        For i = 1 To nbMois_
            If (Not dicoMoisCadRegion.exists(mois)) Then
                dicoMoisCadRegion.add mois, CreateObject("Scripting.Dictionary")
                dicoMoisCadRegion(mois).comparemode = vbTextCompare
            End If
            For Each pvt In sharp.data.keys
                For Each usine In sharp.data(pvt).keys
                    For Each cad In sharp.data(pvt)(usine).keys
                        If (Not dicoMoisCadRegion(mois).exists(cad)) Then
                            dicoMoisCadRegion(mois).add cad, CreateObject("Scripting.Dictionary")
                            dicoMoisCadRegion(mois)(cad).comparemode = vbTextCompare
                        End If
                        For Each region In sharp.data(pvt)(usine)(cad).keys
                            If (Not dicoMoisCadRegion(mois)(cad).exists(region)) Then
                                dicoMoisCadRegion(mois)(cad).add region, sharp.data(pvt)(usine)(cad)(region).getPPRmois(i)
                            Else
                                dicoMoisCadRegion(mois)(cad)(region) = dicoMoisCadRegion(mois)(cad)(region) + sharp.data(pvt)(usine)(cad)(region).getPPRmois(i)
                            End If
                        Next region
                    Next cad
                Next usine
            Next pvt
            mois = ajouter1mois(mois)
        Next i

[salseropom]

Bonjour

après recherches sur internet, j'ai mis un

Code :

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

1
2
 
Option Compare Text

en tête de chacun de mes modules. Ca semble fonctionner. Faîtes-vous de-même ?

Merci