Liste sur base de choix précédent

K

kjin

XLDnaute Barbatruc

• 4 Novembre 2008

• #2

Re : Liste sur base de choix précédent

Bonjour,
Pour tout dire, je n'ai rien compris
C'est quoi "X", et où est-on sensé le trouver
La liste en question, est ce une liste déroulante ? Où doit-elle se situer ?
Les listes déroulantes actuelles sont vides !
Bref, je n'ai vraiment rien compris
A+
kjin

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Novembre 2008

• #3

Re : Liste sur base de choix précédent

Bonjour

Une solution par macro. Un double clic sur A1 lance la macro.



La liste est crée dans la feuille2.

A tester

JP

 

Pièces jointes

• liste en fonction choix.zip

  11.9 KB · Affichages: 24

Vote positif 0 Vote négatif

N

nijseri

Guest

• 4 Novembre 2008

• #4

Re : Liste sur base de choix précédent

voici le fichier coorrigé désolé j'avais du effacer une partie du douc pour limiter sa taille

Donc en résumé

Je voudrais que ce qui est à coté de résultats soient mis automatiquement
la ligne "type d'agents" vide est faites expres, il faut également ignorer ce genre de ligne et ne pas mettre deligne vide

Merci encore de votre aide

 

Pièces jointes

• liste en fonction choix.xls

  39 KB · Affichages: 49
• liste en fonction choix.xls

  39 KB · Affichages: 50
• liste en fonction choix.xls

  39 KB · Affichages: 50

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Novembre 2008

• #5

Re : Liste sur base de choix précédent

Bonsoir

Ci dessous la macro modifiée.


A tester

JP

 

Dernière édition: 5 Novembre 2008

Vote positif 0 Vote négatif

N

nijseri

Guest

• 5 Novembre 2008

• #6

Re : Liste sur base de choix précédent

j'ai copier la macro et ça marche pas quand je l'éxécute

Dois-je faire quelques chose de plus ?

Merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Novembre 2008

• #7

Re : Liste sur base de choix précédent

Bonjour,
Ci joint un essai avec macro événementielle
A+
kjin

 

Pièces jointes

• XoupasX.zip

  8.9 KB · Affichages: 37

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Novembre 2008

• #8

Re : Liste sur base de choix précédent

Bonjour,

Par formule
Formule matricielle, à valider par ctrl, maj et entrée
Une tentative d’explication en bas de feuille.

 

Pièces jointes

• ListeSelonTabloNijseri.zip

  4.7 KB · Affichages: 29

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Novembre 2008

• #9

Re : Liste sur base de choix précédent

Bonjour
Bonjour Monique

nijseri à dit:

j'ai copier la macro et ça marche pas quand je l'éxécute

Dois-je faire quelques chose de plus ?

Merci

Cliquez pour agrandir...

Ci joint le fichier avec la macro corrigée.

JP

 

Pièces jointes

• liste en fonction choix2.zip

  13.5 KB · Affichages: 24

Vote positif 0 Vote négatif

N

nijseri

Guest

• 6 Novembre 2008

• #10

Re : Liste sur base de choix précédent

Kjin

J'ai utilisé ta macro elle fonctionne très bien pour la sélection mais me dit que la variable i est inconnue pour la création de la liste

Pour les autres j'ai pas encore essayer toute les macros j'essaie une à une mais merci pour toute vos propositions

A+

Eric

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Novembre 2008

• #11

Re : Liste sur base de choix précédent

Bonjour,

nijseri à dit:

J'ai utilisé ta macro elle fonctionne très bien pour la sélection mais me dit que la variable i est inconnue pour la création de la liste

Cliquez pour agrandir...

Peut-être es tu en mode "déclaration de variables obligatoires" (je devrais prendre l'habitude de le faire, et à dix sous...🙄) donc remplace le code par le suivant

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Blue"]Dim i As Integer, j As Integer[/COLOR]
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Row < 9 Then
    Select Case Target.Column
    Case 3, 6, 9
        If Target.Value = "" Then
            Target = "X"
        Else
            Target = ""
        End If
    Range("B12:B" & Range("B12").End(xlDown).Row).ClearContents
    For i = 3 To 8
        For j = 3 To 9 Step 3
            If Cells(i, j) = "X" Then Range("B1000").End(xlUp).Offset(1, 0) = Cells(i, j + 1)
        Next
    Next
    End Select
End If
End Sub

En outre, la macro fonctionne pour les lignes 3 à 8 et les colonnes 3, 6, 9
Si tu modifies le tableau, il faudra adapter
A+
kjin

 

Vote positif 0 Vote négatif

N

nijseri

Guest

• 6 Novembre 2008

• #12

Re : Liste sur base de choix précédent

merci beaucoup pour l'aide maintenant dernier petit soucis

Quand je coche une des case de lma colonne J le texte n'apparait pas dans la liste

Une idée ??

Merci d'avance

Eric

 

Pièces jointes

• forum.xls

  25.5 KB · Affichages: 48
• forum.xls

  25.5 KB · Affichages: 50
• forum.xls

  25.5 KB · Affichages: 40

Vote positif 0 Vote négatif