Microsoft 365 code vba qui renvoie la formule avec @ dedans

[Usine à gaz]

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 :

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]

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]

Le fil

Merci bien @Hasco pour l'explication et le lien

@Phil69970

 

[ChTi160]

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]

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]

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]

Bonsoir,

Peut-être en changeant la formule :

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]

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]

@Lionel

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]

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é !

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]

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

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]

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

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]

Merci à toi d'avoir testé.

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]

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]

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]

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.