Microsoft 365 code vba qui renvoie la formule avec @ dedans

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #2

Salut,

pour ma part quand je pousse une formule dans une celulle, j'utilise le ".Formula" à la place du ".value" qui est la valeur par défaut si tu ne met rien.

Avec ce code cela semble passé (xl 2016) :

VB:

Sub Mise_à_jour()
'ATTENTION Formule : si RdV déjà   : RdV Fait Facturé

    [o2].Formula = "=COUNTIF(R[3]C:R[9996]C,""><"")"
    [M4].Formula = "=IF(SUM(--(ISNUMBER(SEARCH(RC[-11],Facture!R2C[-8]:R30C[-8]))))>=1,RC[-11],"""")"
   
    'ME RENVOIES EN M4 : =SI(SOMME(--(ESTNUM(CHERCHE(B4;@Facture!E$2:E$30))))>=1;B4;"")
   
    [M4].Copy
    [m5:m13].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    [J4] = "=IF(RC[3]<>"""",""RdV Fait Facturé"",""RdV Fait"")"
    [J4].Copy
    [J5:J13].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J4:J13").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Columns("m:q").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
End Sub

Dis moi si c'est bon

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #3

Bonjour Deadpool_CC
Merci pour m'avoir répondu.
Malheureusement, j'avais déjà tenté le ".Formula" = même souci.
Voici le résultat attendu :

lionel

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #4

Dans la formule avec le ".formula" = il n'y a pas le '@' Donc question du post réglé ...lol

Par contre le soucis est tout autre : ta formule en M4 doit être validée en mode matriciel pour avoir un résultat et ensuite Tiré vers le bas.
JE ne sais pas le faire en vba donc :
* je te conseille d'enregistrer une macro en faisant les manipualtions à la main (validation avec ctrl+Maj+enter) et tirage à la main ... puis tu regarde le code dans la macro enregistré et tu adaptes ton propre code en fonction.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #5

Re-Deadpool_CC

Merci pour ce retour :
"Dans la formule avec le ".formula" = il n'y a pas le '@' Donc question du post réglé ...lol"

Ben NON : si tu exécutes le code jusqu'à :
[M4].Formula = "=IF(SUM(--(ISNUMBER(SEARCH(RC[-11],Facture!R2C[-8]:R30C[-8]))))>=1,RC[-11],"""")"
tu pourras constater que le @ est bien dans la formule en cellule M4.

Je vais voir du côté matriciel
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #6

En matricielle, le souci reste entier Grrrr !!!

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #7

Usine à gaz à dit:

Ben NON : si tu exécutes le code jusqu'à :
[M4].Formula = "=IF(SUM(--(ISNUMBER(SEARCH(RC[-11],Facture!R2C[-8]:R30C[-8]))))>=1,RC[-11],"""")"
tu pourras constater que le @ est bien dans la formule en cellule M4.

Cliquez pour agrandir...

Pourtant en pas à pas ... j'ai pris la capture du post #2 (M4 sélectionné et dans la barre de formule tu constate qu'il n'y a pas de @.
un problème de paramétrage de ton Excel ? différence de version ? (suis en 2016) ... là je seche

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #8

Nous ne somme peut-être pas sur la même version excel : office 365 pour moi.
Même avec .formula j'ai : "=SI(SOMME(--(ESTNUM(CHERCHE(B4;@Facture!E$2:E$30))))>=1;B4;"")"
lionel

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #9

et même en décortiquant via un espion (durant le de pas à pas) j'ai aucune des versions de la formule avec un @


Si d'autre ont des idées ... moi j'abandonne.
bonne chance

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #10

Merci pour tes efforts
Mais c'est dans la cellule M4 de la feuille "Base" qu'il faut regarder.
Merci d'avoir essayé de m'aider

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #11

Ben oui ... quand tu lance le code ... t'es bien sur la feuille "Base" donc l'espion du M4 contient bien les données du M4 de la feuille Base
Je fais tourner en pas à pas et j'arrête avant l'effacement ... et tu peux voir dans le fichier joins que chez moi c'est bon.
tu ouvre ton fichier via excel Online (via navigateur) ou dans un excel insallé sur ton PC ?

 

Pièces jointes

• recherche ds chaine.xlsm

  33.5 KB · Affichages: 3

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #12

Encore Merci à toi
Je viens de prendre le fichier de ton #post (je n'utilise pas "Online), donc j'ouvre tous mes fichiers sur mon ordi.

Malheureusement toujours même souci

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2022

• #13

Bon sang de bon sang : rien à faire, je n'y arrive pas

Existe-t-il un moyen de modifier "en vba" la formule en supprimant le @ quand la formule est écrite dans la cellule ?

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #14

Alors là aucune idée ... si un autre avec XL365 peut regardé
Et en attendant une solution si tu laissais dans la colonne M tes formules (en texte blanc pour que cela ne se vois pas et que ton bouton Mise à jour se contente de traiter ta colonne J

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 1 Juin 2022

• #15

après avoir mis ta formule en M4 tente un SUBSTITUE / REMPLACER
en cherchant @ et en le remplaçant par rien ... lol

 

Vote positif 0 Vote négatif

Solution