Fonction Index

[Le double cheese]

Bonjour,

J'ai un tableau d'un planning, et je voudrait créer une fonction qui me dit automatiquement quelle est la destination suivante. Normalement une fonction "index" customisée fait l'affaire (mais je n'y arrive pas).

Quelqu'un pourrait m'aider?

Voici le fichier ci-joint avec des explications.

Merci

 

[Nairolf]

Re : [facile] Fonction Index

Salut,

Essaye avec la formule suivante:
=SIERREUR(INDEX($F$3:$M$3;1;EQUIV(FAUX;ESTVIDE($F6:$M6);0));"")

A noter qu'il faut valider la formule comme un calcul matriciel (ctrl+shift+entrée).

 

[Le double cheese]

Re : [facile] Fonction Index

Merci Nairolf, c'est parfait !

 

[Le double cheese]

Re : Fonction Index

Re-bonjour,

Merci pour la formule Nairolf, elle fonctionnait jusqu'a présent pour ce que je voulais faire.
Cependant, comme je doit mettre à jour régulièrement mon fichier (avec des macro), la formule matricielle ne se valide pas automatiquement.

Serait-il possible de faire la même chose sans formule matricielle ?

Merci.

 

[Pierrot93]

Re : Fonction Index

Bonjour,

Cependant, comme je doit mettre à jour régulièrement mon fichier (avec des macro), la formule matricielle ne se valide pas automatiquement.

lance peut être un "calculate" en fin de procédure... A voir...

bonne journée
@+

 

[Le double cheese]

Re : Fonction Index

Bonjour,

Si j'ai bien compris je doit faire ceci:

Private Sub worksheet_calculate()
Macro tirer la formule matricielle
End Sub

C'est bien cela?

 

[Le double cheese]

Re : Fonction Index

Voici ma macro (qui sert à tirer les formule sur une nouvelle ligne inserés):

Private Sub Worksheet_Change(ByVal R As Range)
Dim L As Long
Application.EnableEvents = False
L = R.Row
If L > 3 And L < 101 Then
Cells(L, 1).FormulaR1C1 = "=ROW()-3"
Range("C" & L + 1).Resize(1, 4).Copy Range("C" & L).Resize(1, 4)
Range("O" & L + 1).Copy Range("O" & L)
End If
Application.EnableEvents = True
End Sub

 

[Pierrot93]

Re : Fonction Index

Re,

C'est bien cela?

non, je pensais plutôt au recalcul de ta plage ou de ta feuille à placer avant le "end sub" de ta macro à laquelle tu faisais allusion....

 

[Le double cheese]

Re : Fonction Index

Re,

Ok, par contre je ne sais pas vraiment comment faire ceci... (la macro ne vient pas de moi).
Je ne connait que très peu de chose sur les macro.

Pourriez-vous me donner plus de détail svp ?

 

[Pierrot93]

Re : Fonction Index

Re,

modifie la fin comme suit :

Me.Calculate
Application.EnableEvents = True
End Sub

 

[Le double cheese]

Re : Fonction Index

Re,

Merci pour l'aide, si j'ai bien compris cela permet de refaire la macro chaque fois que je modifi quelquechose (la ou la macro à agit) ?

Mais j'ai oublié de préciser que la formule =SIERREUR(INDEX($F$3:$M$3;1;EQUIV(FAUX;ESTVIDE($F6 :$M6);0));"") doit être mise à jour sur toute sa colonne (jusqu'au bas du tableau).

 

[Pierrot93]

Re : Fonction Index

Re,

As tu testé ?

 

[Le double cheese]

Re : Fonction Index

Re,

As tu testé ?

Oui, mais rien ne se passe.

 

[Pierrot93]

Re : Fonction Index

Re,

bah place un petit fichier permettant de tester, parce que là en l'état pas d'autre idée....

 

[Le double cheese]

Re : Fonction Index

Re,

bah place un petit fichier permettant de tester, parce que là en l'état pas d'autre idée....

Voici un fichier (c'est le même qu'au début avec plus de lignes)