Bonjour,
Tout effort pour arriver à une procédure VBA de traitement en suivant les conseils de Menhir sera un bon investissement.
D'autant plus que les tableaux de la feuille Planning en sacrifiant à des impératifs de présentation ( cellules fusionnées dans la colonne A pour chacun des plannings)
compliquent fortement les tentatives d'utilisation de formules.
Voici dans le classeur joint une proposition pour un dépannage rapide.
Deux noms ont été définis contenant des parties de formules pour éviter par la suite des formules trop longues dans les cellules.
En se plaçant en B5, on a défini le nom la_tournee par :
1 2
| =SI(ESTNUM(EQUIV('Planning S24 à S27'!$A5;'Planning S24 à S27'!B$28:B$66;0));
INDEX('Planning S24 à S27'!$A$28:$A$66;EQUIV('Planning S24 à S27'!$A5;'Planning S24 à S27'!B$28:B$66;0)-MOD(EQUIV('Planning S24 à S27'!$A5;'Planning S24 à S27'!B$28:B$66;0)-1;3));"") |
puis en se plaçant en B6 le nom ChoixTournée par :
=DECALER('Planning S24 à S27'!B$27;EQUIV(DECALER('Planning S24 à S27'!B$4;LIGNE()-MOD(LIGNE()-5;3)-4;0);'Planning S24 à S27'!$A$28:$A$66;0);0;3;1)
Les formules dans les cellules sont alors :
en B5 :
en B6 :
=SI(NBVAL(ChoixTournée)<2;"";CHOISIR(MIN(EQUIV($A5;ChoixTournée;0);2);INDEX(ChoixTournée;2);INDEX(ChoixTournée;1)))
en B7 :
=SI(NBVAL(ChoixTournée)<3;"";CHOISIR(MAX(EQUIV($A5;ChoixTournée;0);2)-1;INDEX(ChoixTournée;3);INDEX(ChoixTournée;2)))
On sélectionne ensuite la plage B5:B7 >>> Copier >>> Coller en B8:B10 , B11:B13 , B14:B16 , B17:B19 , B20:B22
Sélectionner B5:B22 et tirer vers la droite pour recopier les formules à droite.
Cordialement
Claude
Partager