[VBS] Date et copie

Version imprimable

15/04/2015, 09h40
sramitator

[VBS] Date et copie

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

Salut

En gros
Code:

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).

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

Code:

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é

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