Discussion :

[Bieffe]

Bonjour à tous,

Tout d'abord, merci à tous pour les solutions du forum. C'est la première fois que j'écris, mais très loin d'être la première où j'utilise ce site pour trouver une solution. Je suis relativement nouveau dans le VBA donc j'utilisais souvent des solutions préfaites. J'ai cependant un problème avec un code VBA que j'essaie d'écrire qui me permettrait d'écrire une formule dans la cellule sélectionnée. J'ai fouillé sur plusieurs forum ou tutorial (incluant https://vba.developpez.com/actu/8352...lippe-Tulliez/), mais j'arrive à une erreur 1004.

Mon objectif est d'écrire < =$B$6&"."&NBVAL($B$6:$B6) > dans la cellule active où la cellule indiquée B6 est celle se trouvant au dessus (donc écrire cela dans la cellule B7). J'ai fait le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim racine As String 'Pour mémoriser la cellule au dessus
 ActiveCell.Offset(-1, 0).Select
 racine = ActiveCell.Address
 
Dim actuelle As String 'Pour mettre la cellule actuelle
    actuelle = ActiveCell.Address(RowAbsolute:=False)
 
Dim formule As String 'Pour créer la formule
    formule = "=" & racine & Chr(34) & "." & Chr(34) & Chr(38) & "NBVAL(" & racine & ":" & actuelle & ")"
 
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = formule

Cependant, j'obtiens une erreur 1004. En utilisant le débogage, Excel m'indique pourtant que je devrais obtenir exactement ce que j'ai demandé plus haut dans l'activecell.

J'espère avoir été assez clair pour que vous puissiez m'aider...

Merci,
Vincent

[clementmarcotte]

Bonjour,

Pour utiliser le nom français de ta formule c'est:

Code :

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

activecell.formulalocal =formule

Code :

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

Activecell.formula = formule

fonctionne avec le nom anglais de ta forme. (Et cela fonctionne même sur un Excel français. Suffit de mettre le non anglais de la fonction)

Regarde si ta version d'Excel comporte un traducteur de fonctions. (Je ne me souviens plus si c'est juste pour Office 365, ou pour Office 365, 2017 et 2019)

[Bieffe]

Bon, il suffisait que je pose la question pour trouver mon erreur... J'avais essayé avec FormulaLocal et en effet, c'est cette version qu'il faut que j'utilise. Cependant, mon problème était tout simplement qu'il manquait un & après la variable racine...