Microsoft 365 code vba qui renvoie la formule avec @ dedans

Usine à gaz · 1 Juin 2022

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'ai un souci de code que je ne parviens pas à résoudre,
voici mon code :

VB:

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

    [o2] = "=COUNTIF(R[3]C:R[9996]C,""><"")"
    [M4] = "=IF(SUM(--(ISNUMBER(SEARCH(RC[-11],Facture!R2C[-8]:R30C[-8]))))>=1,RC[-11],"""")"
  
    'ME RENVOIE 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

Le code " [M4] = "=IF(SUM(--(ISNUMBER(SEARCH(RC[-11],Facture!R2C[-8]:R30C[-8]))))>=1,RC[-11],"""")""
Me renvoie dans la cellule "M4" la formule avec @ et je ne parviens pas à m'en débarrasser.

Auriez-vous la solution ?
Je joins le fichier test et je continue à chercher.
Un grand merci à toutes et à tous,
lionel

Deadpool_CC · 1 Juin 2022

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

Deadpool_CC · 1 Juin 2022

Hasco à dit:
Dans Excel 2010 aucun indicateur d'intersection implicite n'était défini, même si elles existaient.

moi sous 2016, pas de @ non plus ... c'est pour cela que j'ai été un en peine sur le sujet
d'où ma suggestion de les virer après coup ... lol

Phil69970 · 1 Juin 2022

Le fil

Merci bien @Hasco pour l'explication et le lien

@Phil69970

ChTi160 · 1 Juin 2022

Bonsoir
n'y connaissant rien où presque aux formules Lol
j'ai fait une petite procédure vba à Voir !
Bonne fin de Soirée
Jean marie

Usine à gaz · 1 Juin 2022

Marcel32 à dit:
Ou quand dans une formule dans un tableau structuré on fait référence à une cellule sur la même ligne dudit tableau structuré.

Su Excel met un @, pourquoi s'emm...der à vouloir absolument l'enlever ?
Avec l'arobase le résultat de la formule est faux ???

OUI Marcel : il est faux

Usine à gaz · 1 Juin 2022

ChTi160 à dit:
Bonsoir
n'y connaissant rien où presque aux formules Lol
j'ai fait une petite procédure vba à Voir !
Bonne fin de Soirée
Jean marie

Bonjour et MERCI Jean-Marie ... ça fonctionne bien.
Le souci est que je ne serait jamais capable d'adapter ton code pour mon fichier lol mais je garde

Usine à gaz · 1 Juin 2022

Hasco à dit:
Bonsoir,

Peut-être en changeant la formule :

VB:

Sub Mise_à_jour() [o2] = "=COUNTIF(R[3]C:R[9996]C,""><"")" With Range("M4:M13") .FormulaR1C1 = "=IF(ISNUMBER(MATCH(""*"" &RC[-11] &""*"",Facture!R2C5:R10C5,0)),RC[-11],"""")" .Value = .Value End With With Range("J4:J13") .FormulaR1C1 = "=IF(RC[3]<>"""",""RdV Fait Facturé"",""RdV Fait"")" .Value = .Value End With Columns("m:q").ClearContents Range("A1").Select End Sub

Equiv (MATCH ) ne renvoie pas de tableau -> pas de @.
Je pense que je ne me suis pas trompé sur l'interprétation de votre formule.
Il s'agit de trouvé la valeur de la colonne B dans les items de Factures colonne E ?

dites-moi si les résultats sont justes et l'utilité de la ligne :

Columns("m:q").ClearContents

qui efface tout !!!!

cordialement

Bonjour Hasco et merci pour le code qui fonctionne très bien
Pardon, je ne l'avais pas vu

"dites-moi si les résultats sont justes et l'utilité de la ligne :
Columns("m:q").ClearContents
qui efface tout !!!!"

Ce code va s'insérer dans mon "usine à gaz" et les données doivent être effacées après traitement.
Merci beaucoup

ChTi160 · 1 Juin 2022

Re
Ok
N'hésite pas si besoin !
Il n'y a rien de Bien Compliqué (voir commentaires)
Bonne fin de journée
Jean marie

soan · 1 Juin 2022

@Lionel

Usine à gaz à dit:
utilité de la ligne :
Columns("M:Q").ClearContents
qui efface tout !!!!

pas exactement ! ça efface uniquement les colonnes M à Q (en laissant intactes les autres colonnes) ; de plus, même pour les colonnes effacées, ça n'efface que le contenu (= les données), pas le format des cellules ! (ni d'autres trucs comme par exemple une MFC ou une Validation de données) ; attention : c'est Columns("M:Q").Clear qui efface vraiment tout en colonnes M à Q ! mais Excel, le PC, et l'utilisateur sont préservés. (enfin, je crois ! )

soan

TooFatBoy · 1 Juin 2022

Deadpool_CC à dit:
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.

Toutafé !

Deadpool_CC à dit:
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

Il faut utiliser FormulaArray.

TooFatBoy · 1 Juin 2022

@Usine à gaz : tu peux essayer ça, stp et me dire quoi :

VB:

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

    [o2].Formula = "=COUNTIF(R[3]C:R[9996]C,""><"")"

    [M4].FormulaArray = "=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].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    [J4].Formula = "=IF(RC[3]<>""-"",""RdV Fait Facturé"",""RdV Fait"")"
    [J4].Copy
    [J5:J13].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    With Range("J4:J13")
        .Value = .Value
    End With

    Columns("m:q").ClearContents

    Range("A1").Select

End Sub

Usine à gaz · 1 Juin 2022

Marcel32 à dit:

@Usine à gaz : tu peux essayer ça, stp et me dire quoi :

VB:

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

    [o2].Formula = "=COUNTIF(R[3]C:R[9996]C,""><"")"

    [M4].FormulaArray = "=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].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    [J4].Formula = "=IF(RC[3]<>""-"",""RdV Fait Facturé"",""RdV Fait"")"
    [J4].Copy
    [J5:J13].PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    With Range("J4:J13")
        .Value = .Value
    End With

    Columns("m:q").ClearContents

    Range("A1").Select

End Sub

Re-Marcel : Test fait et c'est tout bon et le code est court ... super :
Merci à toi,
lionel

TooFatBoy · 1 Juin 2022

Merci à toi d'avoir testé.

Usine à gaz à dit:
Re-Marcel : Test fait et c'est tout bon et le code est court ... super

C'est ton code de #1, dans lequel j'ai enlevé les Select car, comme tu le sais, les Select sont à proscrire tant que faire se peut.

Ton problème initial venait donc uniquement du fait que la formule qui n'était pas validée sous forme matricielle.

Usine à gaz · 1 Juin 2022

Marcel32 à dit:
Merci à toi d'avoir testé.

C'est ton code de #1, dans lequel j'ai enlevé les Select car, comme tu le sais, les Select sont à proscrire tant que faire se peut.

Ton problème initial venait donc uniquement du fait que la formule qui n'était pas validée sous forme matricielle.

Merci à toi

Hasco · 2 Juin 2022

Bonjour

Pourquoi faire simple quand on peut faire compliqué ? Mettre du matriciel là où il n'y en a pas besoin, faire des copies là où il n'y en a pas besoin ? Oui, ça fait certainement plus pro ?

Allez, bonne trituration méningiale

TooFatBoy · 2 Juin 2022

Hasco à dit:
Pourquoi faire simple quand on peut faire compliqué ? Mettre du matriciel là où il n'y en a pas besoin

Pour une fois j'ai la réponse à cette question : parce que c'est la formule qui lui a été donnée dans son fil précédent.

Microsoft 365 code vba qui renvoie la formule avec @ dedans

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Deadpool_CC

Deadpool_CC

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires