Discussion :

[sramitator]

Bonjour

J'aimerai savoir s'il est possible dans un script vb de faire ceci :

J'ai une date dans une cellule sous la forme mars-2016 j'aimerai dans mon script tester toute les dates et si elle contient 2016 la date sois copiée dans une autre cellule correspodant à l'année 2016.

mars-2016	mars-2016
fevrier-2017
decembre-2016	decembre-2016

[ProgElecT]

Salut

En gros

Code :

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

1
2
3
4
5
6
If InStr(1, celluleSource, celluleDeComparaison, vbTextCompare) Then
    'Copier
    celluleDestination = celluleSource
    Else
    'Ne pas copier
End If

ceci dans une boucle, a condition que celluleDeComparaison ai pour valeur une année (2016 dans ton exemple).

[l_autodidacte]

En plus de la solution de ProgElecT(), on peut envisager cette autre possibilité :

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
Dim Tbl(12), I, OK
 
    Tbl(1) = "janvier-2016"
    Tbl(2) = "fevrier-2016"
    Tbl(3) = "mars-2016"
    Tbl(4) = "avril-2016"
    Tbl(5) = "mai-2016"
    Tbl(6) = "juin-2016"
    Tbl(7) = "juillet-2016"
    Tbl(8) = "août-2016"
    Tbl(9) = "septembre-2016"
    Tbl(10) = "octobre-2016"
    Tbl(11) = "novembre-2016"
    Tbl(12) = "décembre-2016"
Function DansLaListe(strCellContent)
    OK = False
    For i = LBound(Tbl) To UBound(Tbl)
        OK = LCase(Tbl(i)) = LCase(strCellContent)
         If OK Then
             DansLaListe = Tbl(i)
              Exit For
         End If
   Next
End Function
msgbox DansLaListe("Fevrier-2016")
msgbox DansLaListe("toto-2016") ' message vide car rien de trouvé