Discussion :

[slakhdine]

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

[slakhdine]

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 :

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

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.

[Pierre Fauconnier]

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.

[MarcelG]

Qui plus est,

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

Code :

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

Debug.Print .Address

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

[ARTURO83]

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

Code :

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

=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 :

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

    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

[slakhdine]

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