Discussion :

[Vinzent219]

Bonjour,

Je suis novice en terme de VBA. Je souhaite mettre au point une Macro qui fonctionne comme suit :

Une colonne A contient un Acronym en 3 lettre - du texte - exemple : ARR/ARA/ARU/...
Une colonne B contient une phrase - du texte
Une colonne C contient une date

Je souhaite obtenir en colonne D, la date de la colonne C + "x" jours, en fonction de :

1.Je souhaite rechercher le mot "Code" dans la colonne B et obtenir en colonne D = "Date de colonne C" + 3 jours
2.Je souhaite rechercher l'acronym ARA dans la colonne A ET le mot "Code" dans la colonne B , pour obtenir en colonne D = "Date de colonne C" + 5 jours
3.Je veux que pour toutes les celulles non vides restantes dans la colonne A, il y a en colonne D = "Date de colonne C" + 4 jours (il s'agit de la règle de base)

Pouvez-vous m'aider ? Me faire une proposition de code ? Une ébauche ?

Merci de votre aide,
Cordialement,

Vinzent219

[blepy]

Bonjour,

Difficile à lire un texte justifié à droite !

Ma question pour avancer :
Pourquoi passer en VBA ?
Ne serait-ce pas plus simple de commencer par créer une formule Excel qui réalise la formule édictée avec ses conditions ?

A+

[Vinzent219]

Hello Blepy

C'est modifié le texte à droite, pardon ^^

J'ai pensé à faire une formule excel classique, mais j'ai déjà une macro qui effectue un tas d'opérations sur les données en question, j'ai donc besoin d'y inclure ces étapes-là sous forme VBA.

A+

[Jouad]

Bonjour,
Voici une proposition :

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
Function DateEcheance(strAcro, strTexte, dDateEffet As Date) As Date
'strAcro  : l'acronyme qui se trouve dans la colonne A
'strTexte : le texte qui se trouve dans la colonne B
'dDateEffet : la date qui se trouve dans la colonne C
 
  'la cellule de la colonne B contient-elle le mot CODE (quelle que soit la casse des caractères)
  If InStr(UCase(strTexte), "CODE") > 0 Then
 
    'si oui : la cellule de la colonne contient-elle "ARA" ?
    If strAcro = "ARA" Then
      DateEcheance = dDateEffet + 5
    Else
      DateEcheance = dDateEffet + 3
    End If
 
  'il n'y a ni l'acronyme "ARA" en [A] ni le mot "CODE" en [B]
  ElseIf Not (IsEmpty(strAcro)) Then
    'mais la cellule en [A] n'est pas vide
    DateEcheance = dDateEffet + 4
  Else
    'et la cellule en [A] est vide
    DateEcheance = dDateEffet
  End If
 
End Function

Test de la fonction:


Affichage des formules:

[kiki29]

Salut, commencer par lire : Excel et l'enregistreur de macro

[Menhir]

J'ai pensé à faire une formule excel classique, mais j'ai déjà une macro qui effectue un tas d'opérations sur les données en question, j'ai donc besoin d'y inclure ces étapes-là sous forme VBA.

Je ne vois pas trop le rapport.
Ce n'est pas parce qu'une macro VBA fait certaines opérations que ça interdit l'usage de fonction dans la feuille, surtout si ces fonctions sont plus simples et plus dynamiques.
Et encore plus si on ne maitrise pas du tout les bases de ce langage.

1.Je souhaite rechercher le mot "Code" dans la colonne B et obtenir en colonne D = "Date de colonne C" + 3 jours
2.Je souhaite rechercher l'acronym ARA dans la colonne A ET le mot "Code" dans la colonne B , pour obtenir en colonne D = "Date de colonne C" + 5 jours
3.Je veux que pour toutes les celulles non vides restantes dans la colonne A, il y a en colonne D = "Date de colonne C" + 4 jours (il s'agit de la règle de base)

Code :

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

=C1+SI(ESTERREUR(CHERCHE("Code";B1));4;3+SI(A1="ARA";2;0))