Automatisation de fonction

Version imprimable

05/02/2019, 16h52
Snooz4

Automatisation de fonction

Bonjour,

Je me permets de venir vers vous suite à un problème que je rencontre.

Après avoir crée une fonction à l'aide de ce groupe, je rencontre des difficultés à l'automatiser à mon fichier excel.

La fonction s'appelle - dateInversee -. Cette fonction a pour paramètre les contenus de la colonne W, soit un seul paramètre.

Dans une feuille, je souhaiterai appliquer cette fonction, dateInversee, à la colonne X, jusqu'à qu'il y est du contenu dans les colonnes W.

Exemple : Colonne X en X2 : =dateInversee(W2)
X3 : =dateInversee(W3)

Tout cela de façon automatisé.

Merci encore pour votre aide qui m'a déjà été bien utile.

A bientôt
05/02/2019, 17h20
Menhir

Montre ton code.

Le voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function dateInversee(ByVal mavar As String)
 
 
 
 
    Dim matchs
 
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True: .Pattern = "(\d+)\/(\d+)\/(\d+)"
        Set matchs = .Execute(mavar)
        If matchs.Count > 0 Then dateInversee = Replace(mavar, matchs(0), Format(matchs(0), "mm/dd/yyyy")) Else dateInversee = "Date not found"
 
    End With
 
 
 
End Function

05/02/2019, 17h22
Snooz4

PS : Il me permet de passer d'un format de date français à un format de date anglais
05/02/2019, 17h46
Menhir

A priori, il n'y a rien à faire.
Ta macro, telle qu'elle est, permet de faire ce que tu décris puisque rien dans son contenu n'est spécifiquement dédié à une zone ou une cellule.
Tu peux donc la placer dans n'importe quelle cellule et y mettre comme paramètre la référence à n'importe quelle cellule.

As-tu testé ?