Discussion :

[Tooth]

Bonjour,

J'ai un petit problème dans la réalisation d'un fichier Excel, je dois filtrer des données selon les choix de l'utilisateur et celui ci doit travailler ensuite dessus(génération de graphique, comparaison avec d'autres données...). Mon système de filtre est fonctionnel mais pour rendre le travail sur les données plus simples et éviter tous problèmes de modification sur les données de base, j'aimerais extraire les données répondant aux filtres vers une feuille annexes dans le même classeur.

Et c'est la que ça coince, je ne sait pas comment faire pour copier uniquement les données filtrées afin de les mettre dans mon autre feuille. Je vous met le bout de code avec les filtres.

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
Private Sub Rechercher_Click()
 
        texte = ValeurRecherche 'On affecte a texte la valeur rentré par l'utilisateur dans le textBox
 
 
        If ListeChamp = "Nom" Then
 
            Range("A1").AutoFilter Field:=1, Criteria1:="*" & texte & "*"
 
 
 
        ElseIf ListeChamp = "OTP" Then
 
            Range("D1").AutoFilter Field:=4, Criteria1:="*" & texte & "*"
 
        ElseIf ListeChamp = "Projet" Then
 
        Range("E1").AutoFilter Field:=5, Criteria1:="*" & texte & "*"
 
        Else
            Dim retour As Long
 
            retour = MsgBox(prompt:="Veuillez renseigner le champ où rechercer les informations", Buttons:=vbOKOnly)
 
        End If
 
    End Sub

Je vous remercie d'avance pour votre aide,

Thomas

[Marc-L]

Bonjour,

exemple ici …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Tooth]

Merci pour la réponse rapide, mes données se copient bien vers une autre feuille

J'ai un autre problème, j'aimerais comparé ce que rentre l'utilisateur dans un textBox avec plusieurs cellules d'une feuille (Juste pour faire un simple système de connexion avec plusieurs compte), je ne sais pas trop comment m'y prendre enfaite. J'ai essaye divers choses mais aucune ne fonctionne

Merci pour vos réponse

[Marc-L]

On aimerait bien voir ces diverses choses pour corriger, orienter, etc …

[Tooth]

Bonjour,

Mon idée principale était de mettre les données de ma feuille dans un tableau pour ensuite pouvoir comparer avec mes textBox. L'erreur pour le moment est : "L'indice n'appartient pas à la sélection.

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
34
35
36
37
38
39
40
41
42
43
44
Public Login As String
Public mdp As String
 
Public Sub estAutorise(TextBoxLogin, TextBoxMDP)
 
    Dim tab_login(29) As String
    Dim compteur As Integer
 
 
    'Cette boucle remplit un tableau de String avec les login des utilisateurs, cela va nous servir pour tester si le login rentré est présent dans le tableau
    For i = 2 To 30
 
    tab_login(i) = Workbooks(Pointage).Worksheet(User).Range("A" & i + 1)
 
    Next i
 
 
    Dim tab_mdp(29) As String
 
    For j = 1 To 30
 
    tab_mdp(j) = Workbooks(Pointage).Worksheet(User).Range("B" & j + 1)
 
    Next j
 
    compteur = 0
 
        While compteur < 30
 
        If TextBoxLogin = tab_login(compteur) & TextBoxMDP = tab_mdp(compteur) Then
 
            Workbooks(Pointage).Worksheet(User).Visible = xlSheetVeryHidden
            Workbooks(Pointage).Worksheet(Feuil2).Visible = xlSheetVeryHidden
 
        Else
            Dim retour As Long
            retour = MsgBox(prompt:="Le login ou le mot de passe est incorrect", Buttons:=vbOKOnly)
 
            End If
 
 
 
 
End Sub

[Philippe Tulliez]

Bonjour,

....L'erreur pour le moment est : "L'indice n'appartient pas à la sélection.

Il n'est pas inintéressant de signaler la ligne où à lieu cette erreur.
En ligne 13 de ta procédure je vois déjà une chance d'avoir une erreur de ce type

Code :

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

tab_login(i) = Workbooks(Pointage).Worksheet(User).Range("A" & i + 1)

A moins d'être publique mais tu ne le signales pas, la variable User n'étant pas déclarée et encore moins initialisée elle a donc par défaut une valeur nulle et WorkSheet(0) ou WorkSheet("") provoque inévitablement une erreur