Microsoft 365 Formule VBA qui coince

[Fipat]

Bonjour,

J'ai un fichier avec quelques macros.
Quand j’écris

feuilleTraitement.Range("B6").Formula = "=TCD!A4"

Je n'ai pas de souci.
Je cherche à supprimer les résultats vides et je fais :

feuilleTraitement.Range("B6").Formula = "=SI(TCD!A4="";"";TCD!A4)"

Cette ligne me renvoi une erreur.

Avez-vous une idée ?
Merci.

 

[Phil69970]

Bonjour @Fipat

J'ai pas vu ton fichier

Cette ligne me renvoi une erreur.

Quelle erreur ?

@Phil69970

 

[Dranreb]

Bonjour.
Propriété FormulaLocal pour une formule en style A1 français. Formula c'est pour le style A1 natif.
et les apostrophes doivent être doublées pour ne pas être comprises comme délimiteur. Il en faut donc 4 pour 2 consécutives.

 

[Fipat]

Merci pour vos réponses.

Dranreb, pile poil dedans. Ta réponse corrige mon souci.
Merci beaucoup pour cette aide.

 

[Staple1600]

Bonjour le fil

@Fipat
[aparté]
1) B6 est une cellule
2) Elle doit contenir une formule
3) Pourquoi passer par une macro pour insérer une formule dans une une seule cellule ?
Quelle est la plus-value ?
[/aparté]

 

[Fipat]

Bonjour le fil

@Fipat
[aparté]
1) B6 est une cellule
2) Elle doit contenir une formule
3) Pourquoi passer par une macro pour insérer une formule dans une une seule cellule ?
Quelle est la plus-value ?
[/aparté]

Bonjour,

Je vois ton message tardivement, désolé.
Le but est d'incorporer à ce classeur des données brute d'un ou plusieurs autres classeurs et de traiter ces données via du vba pour mettre en forme, ajouter des colonnes... et récupérer des données de plusieurs feuilles via des formules.
Ensuite ces formules sont étirées jusqu’à la dernière ligne.
Je traite plusieurs fichiers via une page de traitement qui va chercher mes différents fichiers via des macros macros pour alimenter des TCD en nombre de 23 pour ce classeur et cela pour alimenter un tableau de bord

En espérant répondre à ta question.

 

[Staple1600]

Bonjour,

@Fipat
Merci pour les précisions qui laisse penser que le message#1 et la ligne de code ne décrive pas la situation réelle.
ceci ne concerne qu'une seule cellule
feuilleTraitement.Range("B6").Formula = "=TCD!A4"
et ne correpond pas du tout à cette situation

et récupérer des données de plusieurs feuilles via des formules.
Ensuite ces formules sont étirées jusqu’à la dernière ligne.

Si j'avais eu les précisions de 15h09, le message de 22h44 n'aurait pas vu le jour