pb formule VBA avec index et deux équiv

[FloH]

Bonjour à toutes et à tous,


J'ai une erreur qui est générée avec cette macro il ne reconnait pas mes deux variables crit et usn.
Cette macro permet de sélectionner dans le tableau de l'onglet Global certaines données pour les copier en fonction dans l'onglet critère du pareto.

Je ne comprends pas pourquoi, pourtant elles sont bien déclarées.

Sub Critère_du_pareto()

Dim crit As String
Dim usn As String

Sheets("Pareto des critères").Select

For I = 2 To 13

    For J = 2 To 44
    
    crit = Cells(1, I)
    usn = Cells(J, 1)
    
    Cells(J, I).Select
    
    'données, critères et usines sont des plages de données d'un autre onglet "Global"
        
    ActiveCell.FormulaR1C1 = "=index(données,match(" & crit & ",critères,0),match(" & usn & ",usines,0))"

    Next J
    
Next I

End Sub

Je vous remercie d'avance pour votre aide car je suis dans une impasse.

 

[Modeste]

Re : pb formule VBA avec index et deux équiv

Bonjour FloH et bienvenue à toi,


C'est toujours nettement plus compliqué sans fichier!

Sans certitude donc, essaye toujours

ActiveCell.FormulaR1C1 = "=index(données,match(""" & crit & """,critères,0),match(""" & usn & """,usines,0))"

Petite mise en garde, au passage: puisque tu es une "adepte de vba depuis peu" 🙂 en fréquentant ce forum (mais les autres sources sont concordantes! 😀) tu liras qu'il vaut mieux éviter les .Select, qui ralentissent inutilement l'exécution du code

 

[FloH]

Re : pb formule VBA avec index et deux équiv

Salut Modeste,

Je te remercie ça fonctionne. C'est génial je vais pouvoir finir mon projet.🙂

Merci beaucoup

 

[Modeste geedee]

Re : pb formule VBA avec index et deux équiv

Bonsour®

Heu ...😕

pourquoi une macro ???
la plage concernée est toujours $B$2:$M$44

en B2:
=INDEX(DONNées;EQUIV(B$1;CRITERES;0);EQUIV($A2;USINES;0))
puis étirer la formule à toute la plage B2:M44

ou bien simplement sans boucle par macro :

Sub Critère_du_pareto()
 Sheets("Pareto des critères").Select
 Range("B2:M44").FormulaLocal="=INDEX(Données;EQUIV(B$1;Critères;0);EQUIV($A2;Usines;0))" 
'ou bien :   
'Range("B2:M44").Formula="=INDEX(Données, MATCH(B$1,Critères,0),MATCH($A2,Usines,0))" 
 'données, critères et usines sont des plages de données d'un autre onglet "Global"
 End Sub

 

[FloH]

Re : pb formule VBA avec index et deux équiv

Bonjour,

Non ne pense pas que cela soit possible car le nombre de ligne et de colonne peut varier. Par contre il me met la formule dans la cellule. Comment faire si je ne veux que le résultat?

 

[Modeste geedee]

Re : pb formule VBA avec index et deux équiv

Bonsour®
🙄
il suffit de nommer dynamiquement la plage destination...

Sub Critère_du_pareto()
  Sheets("Pareto des critères").Select
  [PlageDestination].FormulaLocal="=INDEX(Données;EQUIV(B$1;Critères;0);EQUIV($A2;Usines;0))" 
'ou bien :   
'[PlageDestination].Formula="=INDEX(Données, MATCH(B$1,Critères,0),MATCH($A2,Usines,0))" 
 'PlageDestination, données, critères et usines sont des plages de données d'un autre onglet "Global"
[PlageDestination].Value=[PlageDestination].Value
 End Sub

 

[FloH]

Re : pb formule VBA avec index et deux équiv

Merci

ça fonctionne parfaitement.🙂