[XL-2007] Liste déroulante de choix source feuille différente [Résolu]

[laduche31]

Bonjourà tous!

J'ai une liste déroulante de choix qui fait appel à une plage présente sur une autre feuille que j'ai nommée MyList.
Jusque là tout va bien.

Le problème est que lorsque j'insère une ligne à l'intérieur de cette plage, la liste déroulante s'adapte MAIS j'ai des rechercheV qui font référence à la valeur renvoyée par la liste déroulante et dès lors que j'ai inséré une ligne les rechercheV cessent de fonctionner.

Quelqu'un a une explication?

Merci par avance!

Cdlt,

Adrien.

[Daniel.C]

Décris comment tu as fait ta liste déroulante et donne la formule de recherchev.

[laduche31]

Bonjour,

Pour faire ma liste déroulante je fais validation des données, dans Autoriser : Liste, je coche ignorer si vide et Liste déroulante dans la cellule. Dans source je mets : =MyList

L'un des mes formules rechercheV:
=SI($A$5="";"";RECHERCHEV($A$2;'Feuil1'!A16:KN190;259;1))

A2 correspondant à l'endroit où se trouve la liste déroulante

[Daniel.C]

1. Qu'est-ce que renvoie la formule ?
2. Si tu entres la même formule avec la valeur de A2 à la place de la référence, qu'est-ce que tu obtiens ?
3. Sur quelle feuille se trouve "MyList" et quelle est sa plage (après insertion) ?
4. Vérifie que tu es bien en mode "Calcul automatique" (onglet "Formules", "Options de calcul", "Automatique" doit être sélectionnée).

[laduche31]

1- La formule va chercher dans la Feuil1 la valeur qui correspond a A2, elle fait cette recherche dans la plage A16:KN190 et renvoit ce qui se trouve en colonne 259 (colonne IY).
Cela marche parfaitement sauf lorsque je me mets à insérer des ligne dans la Feuil1.

2- Si je rentre simplement une valeur en A2 cela ne fonctionne toujours pas.

3- MyList se trouve sur la Feuil1, dans la plage a16:a191

4- Oui je suis bien en mode calcul automatique.

[Daniel.C]

Cela marche parfaitement sauf lorsque je me mets à insérer des ligne dans la Feuil1.

Je me permets d'insister : qu'est-ce qui s'affiche dans la formule à ce moment là ?

2- Si je rentre simplement une valeur en A2 cela ne fonctionne toujours pas.

Je veux dire : au lieu de le formule :

Code :

=SI($A$5="";"";RECHERCHEV($A$2;'Feuil1'!A16:KN190;259;1))

mets :

Code :

=SI($A$5="";"";RECHERCHEV("toto";'Feuil1'!A16:KN190;259;1))

(par exemple.)

MyList se trouve sur la Feuil1, dans la plage a16:a191

Quand tu insères une cellule en colonne A uniquement (au lieu d'insérer une ligne), tu introduis un décalage entre les valeurs de la colonne A et les autres. Est-ce que ce n'est pas l'origine de ton problème ?

[laduche31]

1- la formule ne change pas, elle renvoie la dernière valeur qu'elle indiquait même si on change la valeur de A2

2- je ne comprends pas ta formule, A2 est ma valeur cible, si je mets autre chose ce n'est plus le résultat que je souhaite..

3- Je n'insère pas de colonnes, que des lignes.

Merci pour ton aide en tout cas, si tu as d'autres idées je suis toujours preneur!

[Daniel.C]

2- je ne comprends pas ta formule, A2 est ma valeur cible, si je mets autre chose ce n'est plus le résultat que je souhaite..

D'après ce que j'ai compris, A2 est la valeur de ta liste déroulante. Si elle affiche "toto", est-ce que tu peux essayer, dans une cellule autre que A2, d'entrer la formule :

Code :

=SI($A$5="";"";RECHERCHEV("toto";'Feuil1'!A16:KN190;259;1))

3- Je n'insère pas de colonnes, que des lignes.

Je n'ai pas écrit cela non plus. On n'avance pas. Est-ce que tu peux mettre ton classeur en pièce jointe en changeant les données confidentielles ?

[laduche31]

Je viens de faire le test sur un fichier vierge et là ca marche.
Le problème vient peut être du fait que j'utilise une macro pour insérer la ligne. Je teste à nouveau et je te dis.
Si je ne vois toujours pas je te donne un extract en pièce jointe. Merci!


Après Vérification je confirme que manuellement ca marche, c'est ma macro qui chamboule tout...

Voici le code de la macro (qui recopie les formules présentent dans la ligne du dessus)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Bouton9_Clic()
Application.Calculation = xlManual
On Error Resume Next 'added
Sheets("Workpackages Database & PP").ShowAllData 'added
On Error GoTo 0 'added
 
 
  Range("A2").Select 'la première cellule de la ligne de titre
  Selection.End(xlDown).Select 'la dernière cellule de la colonne A avant la cellule vide
  Selection.EntireRow.Copy
  Selection.Insert shiftXldown
  Selection.Offset(1).Select  'positionnement sur la nouvelle ligne
  For Each c In Intersect(ActiveSheet.UsedRange, Selection.EntireRow)
    If Left(c.Formula, 1) <> "=" Then c.Value = ""
  Next
  Selection = Selection.Offset(-1) + 1  ' incrémentation de la valeur en colonne A
 
Application.CutCopyMode = False
Selection.Offset(0, 299).Select 'added
Selection.Value = "31.12.2020" 'added
Selection.Offset(0, -298).Select
 
End Sub

[Daniel.C]

Je ne sais pas si c'est lié, mais la première instruction de ton code fit passer Excel en mode de calcul manuel :

Code :

Application.Calculation = xlManual

[laduche31]

Bien vu, c'était exactement ça le problème.

Merci beaucoup pour ton aide et ta patience!

Bonne journée