VBA Excel - Macro simple

Version imprimable

01/10/2016, 10h05
Vinzent219

VBA Excel - Macro simple

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
01/10/2016, 10h14
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+
01/10/2016, 10h39
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+

3 pièce(s) jointe(s)

Bonjour,
Voici une proposition :

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
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:
Pièce jointe 221652

Affichage des formules:
Pièce jointe 221653

01/10/2016, 12h32
kiki29

Salut, commencer par lire : Excel et l'enregistreur de macro
03/10/2016, 11h05
Menhir

Citation:

Envoyé par Vinzent219

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.

Citation:

Envoyé par Vinzent219

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:

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