Personnalisation de Messages en VBA

Citation:

---

Envoyé par ARTURO83

A Slakhdine

Plutôt que d'envoyer votre code, je préférerai que vous disiez quelle est la condition supplémentaire que vous avez ajouté.

---

si la colonne M1 est vide il me donne la valeur de la cellule N1 (celle qui suive). et pour la colonne B de la feuille MAPPING il me la remplace par le téléphone de l’éditeur qui se trouve dans la feuille MAPPING non pas celui du client qui se trouve dans la feuille DATA

Citation:

---

Envoyé par MarcelG

Salut Pierre,

Je le sais
Le choix Formula\Formulalocal fait parfois débat.

On peut donc utiliser Formula.

Par contre, je ne suis pas fan de l'écriture R1C1.

D'autre part, comme Philippe (salut à lui), j'opterais pour une déclaration constante de formule en début de procédure.
Celle-ci serait affectée ensuite à l'objet Range concerné.

Code:

---

1 2 3 4 5 6

Const la formule As String = "laformule"   With Range("lechamp") .Formula = laformule .Value = .Value End With

---

Ceci en sachant que les arguments d'adresse (ligne et colonne), s'ils ne sont pas absolus, s'incrémentent automatiquement.

---

merci pour ces précisions Marcel. j'ai essayé avec ton code mais je suis toujours bloqué . je serai très reconnaissant si vous pourriez jeter un œil sur mon fichier . la macro se trouve dans la feuille3.
merci cordialement.

Perso, je préfèrerais une variable à une constante. Ca permet de... la faire varier (même si ici ce n'est peut-être pas utile).

Pour ce qui est de la formule, la meilleure manière de la rédiger en VBA est de la rédiger dans la feuille Excel, puis de récupérer la formule dans la barre d'exécution (ctrl+G si pas affichée) pour en avoir la syntaxe "à peu près correcte". Il faut ensuite doubler les quotes à l'intérieur de la chaine puis affecter cette valeur à la variable/constante qui doit la recevoir. Ce n'est pas extraordinairement compliqué de fonctionner ainsi et ça permet surtout de se débrouiller tout seul pour la rédaction de la formule, car sauf à avoir exactement le même classeur sous les yeux, il est vite malaisé de créer la formule en VBA à la volée.

Qui plus est,

Au début de ton bloc With, intègre

Code:

---

Debug.Print .Address

---

Puis lance l'exécution en pas à pas.
Tu constateras vite l'anomalie.

suite à demande de modification de la formule, en espérant avoir tout vu
Formule en excel

Code:

---

=SIERREUR(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SI(M1<>"";INDEX(SMS!$A:$B;EQUIV($P1;SMS!$A:$A;0);2);INDEX(SMS!$A:$C;EQUIV($P1;SMS!$A:$A;0);3)); "(Colonne C)";C1;1);"(Colonne D)";D1;1);"(Colonne B de la feuille MAPPING)";INDEX(MAPPING!$A:$B;EQUIV($O1;MAPPING!$A:$A;0);2);1);"(Colonne M)";M1;1);"(Colonne Q)";Q1;1);"(Colonne N)";N1);"(Colonne B)";B1);"")

---

la même en VBA

Code:

---

Range("T1:T" & DerLig).FormulaR1C1 = "=IFERROR(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(RC[-7]<>"""",INDEX(SMS!C1:C2,MATCH(RC16,SMS!C1,0),2),INDEX(SMS!C1:C3,MATCH(RC16,SMS!C1,0),3)), ""(Colonne C)"",RC[-17],1),""(Colonne D)"",RC[-16],1),""(Colonne B de la feuille MAPPING)"",INDEX(MAPPING!C1:C2,MATCH(RC15,MAPPING!C1,0),2),1),""(Colonne M)"",RC[-7],1),""(Colonne Q)"",RC[-3],1),""(Colonne N)"",RC[-6]),""(Colonne B)"",RC[-18]),"""")"

---

nécessité de modifier la feuille SMS, ajout d'une autre proposition en colonne 3 pour traiter le cas où la colonne M de la feuille DATA n'est pas renseignée.
Pièce jointe 475905

Avec le fichier en exemple
Pièce jointe 475907

Cdlt

bonjour à tous,Tout est bon grâce à vous j'ai pu comprendre et résoudre mon problème malgré mon niveau , merci infiniment