XL 2016 Affectation de données dans certaines cellule selon des conditions.

[manu49300]

Bonjour,

Je ne trouve pas de solution avec les fonctions "=Si.conditions" ou bien la fonction "RechercheV" car trop de critères.
Je souhaite affecter des données dans un tableau selon des conditions prédéfinies en amont. Je vous joins un classeur pour exemple. Merci.

 

[sylvanu]

Bonjour Manu,
Un essai en PJ en modifiant les colonnes pour plus de facilité, avec :

Calcul de la ligne correspondante :
=EQUIV(A14;$B$3:$B$8;1)
Comptage des valeurs :
=SI(INDEX(D$3:D$8;$B14)=0;"";INDEX(D$3:D$8;$B14))

 

[JHA]

Bonjour à tous,

Avec ce que je comprends.

JHA

 

[sylvanu]

Bonjour Manu, JHA,
Encore plus simple avec :

=INDEX(C$3:C$8;EQUIV($A14;$B$3:$B$8;1))

 

[manu49300]

Merci pour vos réponses. Ça fonctionne !
Par contre est-il possible de l'intégrer dans une macro ? Car le tableau final va faire environ 400 lignes et une trentaine de colonnes ?

 

[sylvanu]

Re,
Il eût été pertinent de demander ça dès le départ, les approches sont très différentes.
En PJ un essai avec :

Sub Compte()
    Dim DC%, DL%, PL%, Plage As Range
    DC = Cells(2, Columns.Count).End(xlToLeft).Column   ' Dernière colonne
    DL = Range("A65500").End(xlUp).Row                  ' Dernière ligne
    PL = 14                                             ' Première ligne à traiter, à modifier suivant tableau
    Application.ScreenUpdating = False
    Set Plage = Range(Cells(PL, "C"), Cells(DL, DC))
    Plage.FormulaR1C1 = "=INDEX(R3C:R8C,MATCH(RC1,R3C2:R8C2,1))"    ' Insère formules : =INDEX(C$3:C$8;EQUIV($A14;$B$3:$B$8;1)), Formule à modifier si tableau des limites à varier en longueur.
    Plage.Value = Plage.Value                                 ' Copier coller valeur
    Application.ScreenUpdating = True
End Sub

A noter que :
1- La liste des limites est figées comme l'exemples à 6 limites.
2- Le tableau à traiter commence en ligne 14.
Sinon adapter la macro.

 

[manu49300]

Re,
Il eût été pertinent de demander ça dès le départ, les approches sont très différentes.
En PJ un essai avec :

Sub Compte()
    Dim DC%, DL%, PL%, Plage As Range
    DC = Cells(2, Columns.Count).End(xlToLeft).Column   ' Dernière colonne
    DL = Range("A65500").End(xlUp).Row                  ' Dernière ligne
    PL = 14                                             ' Première ligne à traiter, à modifier suivant tableau
    Application.ScreenUpdating = False
    Set Plage = Range(Cells(PL, "C"), Cells(DL, DC))
    Plage.FormulaR1C1 = "=INDEX(R3C:R8C,MATCH(RC1,R3C2:R8C2,1))"    ' Insère formules : =INDEX(C$3:C$8;EQUIV($A14;$B$3:$B$8;1)), Formule à modifier si tableau des limites à varier en longueur.
    Plage.Value = Plage.Value                                 ' Copier coller valeur
    Application.ScreenUpdating = True
End Sub

A noter que :
1- La liste des limites est figées comme l'exemples à 6 limites.
2- Le tableau à traiter commence en ligne 14.
Sinon adapter la macro.

Je l'ai adapté à mon tableau. Ça a l'air de fonctionner. Merci beaucoup pour votre aide.

 

[sylvanu]

Re,
La solution est en post #6 et non en post #7.
Pensez aux lecteurs futurs qui seront intéressée par la solution, et se rueront sur le post vert.

 

[manu49300]

Re,
La solution est en post #6 et non en post #7.
Pensez aux lecteurs futurs qui seront intéressée par la solution, et se rueront sur le post vert.

C'est corrigé.