Discussion :

[ed47300]

bonjour,
j'ai un problème surement très simple mais que je n'arrive pas à résoudre.
je joints le fichier qui sera plus explicite que plein de discours.
sur le fichier joint je voudrais que sur l'onglet 1tip quand je choisis dans la liste déroulante en G2 par exemple 2tip, s'affiche toutes les lignes correspondantes à 2tip de l'onglet book-1 dans l'onglet 1tip.
je ne sais pas si c'est clair
par avance merci


Multi-Book-essai.xlsx

[parmi]

Bonjour,

Essaie ceci
À mettre dans le code de la feuille 1tip

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 And Target.Row > 9 And Target.Value <> "" Then
        Application.EnableEvents = False
        CopierData Target.Value
        Application.EnableEvents = True
    End If
End Sub
 
Private Sub CopierData(Valeur As String)
    Dim nbLignes As Long
 
    'Effacer les données de 1tip
    nbLignes = Sheets("1tip").Cells(Rows.Count, "A").End(xlUp).Row
    If nbLignes > 9 Then Sheets("1tip").Range("A10:G" & nbLignes).ClearContents
 
    Sheets("Book-1").AutoFilterMode = False
    Sheets("Book-1").Rows(6).AutoFilter Field:=7, Criteria1:=Valeur
 
    nbLignes = Sheets("Book-1").Cells(Rows.Count, "G").End(xlUp).Row
    If nbLignes > 8 Then
        'Copie des premières colonnes
        Sheets("Book-1").Range("A9:E" & nbLignes).Copy
        Sheets("1tip").Range("A10").PasteSpecial
 
        Sheets("Book-1").Range("G9:H" & nbLignes).Copy
        Sheets("1tip").Range("G10").PasteSpecial
 
        'Inscription formule en B
        nbLignes = Sheets("1tip").Cells(Rows.Count, "A").End(xlUp).Row
        Sheets("1tip").Range("B10:B" & nbLignes).Formula = "=LEFT(A10,1)"
 
    End If
End Sub

[Menhir]

http://www.developpez.net/forums/d15...te-deroulante/

[ed47300]

merci parmi mais je suis une quiche en vba je ne sais pas comment m'en débrouiller
merci quand meme

[parmi]

Où est-ce que tu bloques ?

[Menhir]

merci parmi mais je suis une quiche en vba je ne sais pas comment m'en débrouiller

Un enseignant qui considère que le manque de savoir est une fatalité incorrigible ? Étonnant.
La plus part du temps, quand sur ce forum on lit "je suis ignorant" (ou autre formule similaire), ça veut dire "je n'ai pas envie de me donner la peine, je veux que d'autres travaillent pour moi".

[ed47300]

je n'ai jamais touché aux macro sur excel faut que je m'y penche sérieusement dessus.
d'autre part je ne trouve pas très sympa les remarques de menhir, mais c'est peut etre le jeu .....

[Menhir]

je n'ai jamais touché aux macro sur excel faut que je m'y penche sérieusement dessus.

http://excel.developpez.com/cours/?page=prog