Discussion :

[matimatfr]

Bonjour à toutes et à tous,

Voilà, je viens vers vous car je me retrouve coincé. J'ai une formule dans un tableau comprenant 380 colonnes et 265 lignes. La formule est donc étirée sur le nombre de cellules correspondantes, soit environ 100000 fois... Ca fait beaucoup et ça rend le fichier lourd. J'aimerai donc adapter le tout en vba. Pour ce faire, j'ai utilisé la fenêtre d'exécution du vba, en tapant :

Code :

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

1
2
?Range ("G9").Formula
=IF(INDIRECT("'Competence Effectif'!"&ADDRESS(MATCH('Effectif Niveaux'!$E:$E,'Competence Effectif'!$E:$E,0),MATCH('Effectif Niveaux'!$8:$8,'Competence Effectif'!$8:$8,0)))="OUI","Niv 0 / Intégration","")

J'ai essayé d'adapter plusieurs fois le code dans un Sub test, mais rien n'y fait ça plante :

Code :

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

1
2
3
4
5
6
7
Sub test()
 
Application.Volatile
 
Range("G9").Formula = "=IF(INDIRECT(Competence Effectif!&ADDRESS(MATCH(Effectif Niveaux!$E:$E,Competence Effectif!$E:$E,0),MATCH(Effectif Niveaux!$8:$8,Competence Effectif!$8:$8,0)))=""OUI"",""Niv 0 / Intégration"","""")"
 
End Sub

Erreur 1004, Erreur définie par l'application ou par l'objet

Auriez vous une solution à me proposer, sachant que j'aimerai adaptez le vba pour toutes les cellules ?

Merci d'avance.

Mat

[unparia]

Bonjour

Une formule est une chaîne de caractères.
Regarde celle que tu as construite -->>

=IF(INDIRECT(Competence Effectif!&ADDRESS(MATCH(Effectif Niveaux!$E:$E,Competence Effectif!$E:$E,0),MATCH(Effectif Niveaux!$8:$8,Competence Effectif!$8:$8,0)))="OUI","Niv 0 / Intégration","")

Que pourrait selon toi y représenter par exemple "&ADDRESS" ?

(ce n'est pas sans raison que je te fais une telle réponse, dont le but est de t'éveiller )

[matimatfr]

Bonjour unparia,

Merci déjà de ton aide. Aucun soucis pour le type de réponse, au contraire j'aime bien comprendre plutôt que des réponses toutes cuites aussi

Pour en revenir à ta question :

=Que pourrait selon toi y représenter par exemple "&ADDRESS" ?

En fait ma formule sous excel est construite comme cela pour obtenir les références de colonnes spécifiques. Donc une adresse spécifique, si c'est la réponse que tu attends de ma part, mais je suis pas sur du tout...

[unparia]

En fait ma formule sous excel est construite comme cela pour obtenir les références de colonnes spécifiques

Ah ?
Hé bien : montre-la donc, cette formule ainsi écrite sous Excel et qui fonctionnerait ainsi écrite.

[matimatfr]

la voilà la fameuse formule, et elle fonctionne hein

Code :

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

=SI(INDIRECT("'Competence Effectif'!"&ADRESSE(EQUIV('Effectif Niveaux'!$E:$E;'Competence Effectif'!$E:$E;0);EQUIV('Effectif Niveaux'!$8:$8;'Competence Effectif'!$8:$8;0)))="OUI";"Niv 0 / Intégration";"")

[unparia]

et tu ne vois pas la différence ? Vraiment pas ?

Code :

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

=SI(INDIRECT("'Competence Effectif'!"&ADRESSE(EQUIV('Effectif Niveaux'!$E:$E;'Competence Effectif'!$E:$E;0);EQUIV('Effectif Niveaux'!$8:$8;'Competence Effectif'!$8:$8;0)))="OUI";"Niv 0 / Intégration";"")

Ta difficulté semble être tout simplement savoir construire une chaîne de caractères par concaténation

[Invité]

Code :

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

=SI(INDIRECT("'Competence Effectif'!"&ADRESSE(EQUIV('Effectif Niveaux'!$E:$E;'Competence Effectif'!$E:$E;0);EQUIV('Effectif Niveaux'!$8:$8;'Competence Effectif'!$8:$8;0)))="OUI";"Niv 0 / Intégration";"")

Serait-il possible d'avoir ton fichier (en enlevant tout ce qu'il y a de confidentiel) ? J'ai du mal à m'imaginer ce que fait ta formule en fait.