Discussion :

[Razekiel_]

Bonjour,

j'ai lu plusieurs discussions qui traite de cela mais malgré ma mise en application cela ne fonctionne pas.

Je veux insérer en cellule B17 une formule. "

Code :

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

=SI(J12="";"";RECHERCHEV(J12;Database!A1:J150;3;FAUX))

J'ai tenté deux codes:

Code :

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

1
2
Sheets(2).Range("B17").Select
ActiveCell.FormulaR1C1Local = "=SI('J12'="";"";RECHERCHEV('J12';Database!'A1':'J150';3;FAUX))"

J'ai tenté d'effectué un enregistrement de macro, ce qui donne

Code :

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

1
2
3
4
Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[10]C[8]="""","""",VLOOKUP(R[10]C[8],Database!R[-1]C[-1]:R[148]C[8],3,FALSE))"
    Range("B3").Select

Avec cette deuxième méthode, la formule s'insère bien en B17, sauf que toutes mes autres formules passent en version US/EN et donc plus rien de fonctionne.

Merci d'avnance

[Marc-L]

Bonjour,

entrer la formule française telle quelle - en doublant toutefois les guillemets - via la propriété FormulaLocal …

Une formule entrée via une autre propriété Formula en version US native est automatiquement convertie
dans la langue de la version d'Excel et donc ne change rien à son fonctionnement ‼
Si cela ne fonctionne pas c'est juste une erreur de logique ou de syntaxe !   En aucun cas une histoire de langue …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Quatre remarques :

FormulaR1C1 insère les formule au format L1C1, c'est-à-dire avec des nombres pour désigner les colonnes. Pour une formule de type A1, il suffit de retirer R1C1.

ActiveCell désigne une cellule activé (Activate) et non une cellule sélectionnée qui est désignée par Selection. Dans 90% des cas c'est la même chose mais mieux veut éviter de confondre pour ne pas avoir de problèmes dans les quelques cas particuliers.

Select/Selection n'est pas utile.

Pour mettre un guillemet dans une chaine, il faut le doubler.
https://msdn.microsoft.com/fr-fr/vba...ring-data-type

Code :

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

Sheets(2).Range("B17").FormulaLocal = "=SI('J12'="""";"""";RECHERCHEV('J12';Database!'A1':'J150';3;FAUX))"

[Razekiel_]

Merci à vous.
j'avais justement testé avec ForumlaLocal mais j'avais aussi un problème.

J'ai malgré tout testé avec votre formule j'ai de nouveau une erreur.
La macro ne copie pas la formule dans la cellule.

Savez vous pourquoi?

[Marc-L]

N'étant pas sur un forum de divination, ne voyant pas ta tentative de code, j'affirme juste il comporte une erreur !

Vérifier déjà en entrant une formule manuellement dans une cellule puis une fois fonctionnelle, comparer le code …

[romainorleans]

J'ai testé de mon côté et en respectant la syntaxe de l'enregistreur de macro cela fonctionne très bien.
Y compris pour les autres formules qui sont en Francais dans Excel, cela n'impacte en rien.

Bref je ne comprend pas son problème car chez moi ca fonctionne très bien.

Bonne soirée,

[Marc-L]

Tout comme de mon côté depuis ~ 20 ans sur différentes versions !   Effectivement, juste respecter la syntaxe …

[Menhir]

j'avais aussi un problème.

Ca, on peut dire que c'est extrêmement clair et détaillé comme description de problème.

La macro ne copie pas la formule dans la cellule.

Ca veut dire qu'après la macro il n'y a rien dans B17 ?
Es-tu sûr que "Sheets(2)" est bien celle que tu crois ?
Mets dans ton code un test pour vérifier :

Code :

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

Debug.Print Sheets(2).Name, Sheets(2).Workbook.Name