XL 2016 formules sous VBA

[marc94600]

Bonjour,
Dans mon tableau, j'ai différente formule et je souhaiterai savoir s'il n'y a pas possibilité de les mettre en programmation (vba) au lieu qu'elle soit effaçable par des personnel qui manipule mon tableau...
Exemple :
1er cas feuille : "En cours à partir de 2019", colonne C : j'ai la formule : =SIERREUR(INDEX(CU_2024!$A$2:$B$6331;EQUIV($B2;CU_2024!$A$2:$A$6331;0);2);"")
2 ème cas : feuille : "En cours à partir de 2019" : colonne D : =SIERREUR(RECHERCHEV(C2;HPM_ARCHIVES!$C$2:$Q$5;15;FAUX);"")
3 ème cas : feuille : "En cours à partir de 2019" : colonne I : =SIERREUR(RECHERCHEV(B2;HPM_ARCHIVES!$B$2:$AZ$5;50;FAUX);"")

voila, serait il donc possible d'avoir c'est 3 formules dans une programmation VBA ?

merci à vous tous
marc

 

[wDog66]

Bonjour marc94600

Pour votre demande, il suffit de vous servir de l'enregistrement de macros
Menu Développeur -> Enregistrer une macro

Si vous n'avez pas le menu, voilà comment faire

Afficher l’onglet Développeur - Support Microsoft

Ajoutez l’onglet Développeur au ruban quand vous le souhaitez.

support.microsoft.com

Ensuite, une fois l'enregistreur lancé, vous vous mettez sur les formules en question
F2 pour entrer en mode édition + Entrée

Vous arrêtez l'enregistreur
ALT+F11 pour aller dans l'éditeur VBA, vous aurez un module avec le code

A+

 

[marc94600]

Bonjour wDog66
j'ai essayé mais rien ne se passe. durant l’enregistrement de la macro je ne sais pas comment mettre les 3 formules...

 

[Oneida]

Bonjour a tous

marc94600​

Vous devez avoir ceci pour C2, mais il faut pour les autres colones etc...

Sub Macro2
'
' Macro2 Macro
'

'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(INDEX(CSO!R2C1:R6331C2,MATCH(RC2,CSO!R2C1:R6331C1,0),2),"""")"
    Range("C3").Select
End Sub

Mais je ne vois pas en quoi cela "securise" vos colonnes et surtout a quel moment ca va s'ecrire dans les cellules des colonnes
De plus il y a des forumules dans d'autres colonnes et la pas besoin!

Maintenant la question est:
est ce que vous voulez l'equivalent de ces forumules en VBA dont le code mettrait la valeur dans les cellules ?

Comprends pas vraiment!

 

[marc94600]

Bonjour,
En effet vous avez compris ma démarche .
En gros, nous sommes plusieurs à travailler sur le même tableau de données mais certain font des copier coller de leur propre tableau ce qui nous donne ensuite des formules qui font référence à leur tableau (complexe mais c'est le cas ) J'ai beau demandé de faire des copier de données uniquement mais ça ne sert à rien ...
donc je souhaiterai pouvoir figer ces formule sans qu'ils puissent y toucher même après un coller.
j'ai pris uniquement c'est 3 formules car ce sont les seules qui posent problème

 

[wDog66]

Re,
Bonjour Oneida

Bonjour wDog66
j'ai essayé mais rien ne se passe. durant l’enregistrement de la macro je ne sais pas comment mettre les 3 formules...

Très étonnant...

 

[vgendron]

Hello
en PJ la méthode que j'utilise quasi systématiquement
1) je créé la formule sous forme de string en ANGLAIS
Formule="........"
2) j'applique la formule à sa place

dans ton fichier, j'ai
1) créé des tables structurées
2) modifié tes formules pour y faire référence

la Macro s'appelle "ReplaceFormules"

 

[marc94600]

Merci WDog66
.. Là c'est plus explicite pour moi. Je vais essayer dans mon tableau pour voir
Merci encore
marc

 

[marc94600]

Bonjour Vgendron

Je vais essayer tout ça mais en tous les cas ça à l'air sympa.​

Je vous tiens informer de mes avancées..
Bien à vous tous
Prenez soin de vous
marc

 

[vgendron]

Petite précision supplémentaire pour écrire les formules en VBA
le ; devient , (point virgule devient virgule)
le " devient "" (guillement devient double guillemet)