Je suis en train de travailler sur une base de donn=E9es et je voudrais
r=E9aliser un userform qui me permettrait de s=E9lectionner l'=E9l=E9ment qu=
i
servira de r=E9f=E9rence dans la suite de mon =E9tude.
En gros pour choisir cette r=E9f=E9rence, il me faut croiser 3 colonnes
- nom
- ann=E9e
- domaine
Il peut y avoir des redondances (un m=EAme nom =E0 diverses ann=E9es et pour=
divers domaines)
En gros ce que je souhaiterais faire, ce sont 3 listbox qui
reprendrais ces 3 colonnes nom, domaine et ann=E9e, sans doublon,
class=E9e par ordra alphanum=E9riqueet quand je s=E9lectionne un =E9lement
d'une colonne cel=E0 enl=E8ve des choix dans les autres.
C=E0 correspond en fait aux filtres automatiques sur ces 3 colonnes,
mais je souhaite une m=E9thode d=E9tourn=E9e pour que l'utilisateur n'ait
pas acc=E8s =E0 la base de donn=E9es directement.
Ch_Nom Ch_An Ch_Domaine On Error Resume Next ActiveSheet.ShowAllData End Sub
malheureusement, celà ne marche pas et j'ai l'erreur d'exécution 1004
Nyck0las
non, tu n'as pas compris ce que je voulais faire, je ne suis mal exprimé. en fait je veux supprimer les références aux noms de colonnes du type A, B et C car ma base de données est susceptible de modification et les colonnes pourront changer de place. J'ai créé une procédure qui détecte mes colonnes et rentre leur num éro dans variables ColA, ColC et ColD. Ce sont ces variables que je souhaiterais utiliser ici.
non, tu n'as pas compris ce que je voulais faire, je ne suis mal
exprimé.
en fait je veux supprimer les références aux noms de colonnes du type
A, B et C car ma base de données est susceptible de modification et
les colonnes pourront changer de place.
J'ai créé une procédure qui détecte mes colonnes et rentre leur num éro
dans variables ColA, ColC et ColD.
Ce sont ces variables que je souhaiterais utiliser ici.
non, tu n'as pas compris ce que je voulais faire, je ne suis mal exprimé. en fait je veux supprimer les références aux noms de colonnes du type A, B et C car ma base de données est susceptible de modification et les colonnes pourront changer de place. J'ai créé une procédure qui détecte mes colonnes et rentre leur num éro dans variables ColA, ColC et ColD. Ce sont ces variables que je souhaiterais utiliser ici.
par contre çà ne marche pas, il doit encore y avoir un problème (voire plusieurs)
Dans tes fichiers, quand je fais la sélection des 3 critères (collectivité, an, domaine) je vois la sélection en direct dans les colonnes. Dans mon fichier ce n'est pas le cas. De plus quand on clique sur OK, je lui demande de rafficher la totalité des données : çà coince ...
J'ai aussi fait 2 petites modifs dans les procédures filtre et ligneref :
Sub filtre() On Error Resume Next ActiveSheet.ShowAllData [A1].AutoFilter Field:=1, Criteria1:=Me.Collectivité If Me.An <> "*" Then [A1].AutoFilter Field:=3, Criteria1:=Me.An [A1].AutoFilter Field:=2, Criteria1:=Me.Domaine End Sub
et
Sub LigneRef() Dim ligne As Integer If Range("A:A").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then ligne = 2 'pas de filtre Else 'il y a un filtre ligne = Range("A:A").SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row End If LgR = ligne End Sub
Dans ces procédures, j'ai modifié les codes [A1] et range("A:A") par cells(1, ColC) et columns(ColC). çà te semble juste ??
Je mets un version modifiée de mon fichier, si tu pouvais jetter un oeil ... Il faut lancer la macro Prog et choisir le mode Bilan Annuel
http://cjoint.com/?clkFBYNsxE
merci :-)
bonjour JB,
super, merci beaucoup
par contre çà ne marche pas, il doit encore y avoir un problème (voire
plusieurs)
Dans tes fichiers, quand je fais la sélection des 3 critères
(collectivité, an, domaine) je vois la sélection en direct dans les
colonnes. Dans mon fichier ce n'est pas le cas.
De plus quand on clique sur OK, je lui demande de rafficher la
totalité des données : çà coince ...
J'ai aussi fait 2 petites modifs dans les procédures filtre et
ligneref :
Sub filtre()
On Error Resume Next
ActiveSheet.ShowAllData
[A1].AutoFilter Field:=1, Criteria1:=Me.Collectivité
If Me.An <> "*" Then [A1].AutoFilter Field:=3, Criteria1:=Me.An
[A1].AutoFilter Field:=2, Criteria1:=Me.Domaine
End Sub
et
Sub LigneRef()
Dim ligne As Integer
If Range("A:A").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1
Then
ligne = 2 'pas de filtre
Else 'il y a un filtre
ligne =
Range("A:A").SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row
End If
LgR = ligne
End Sub
Dans ces procédures, j'ai modifié les codes [A1] et range("A:A") par
cells(1, ColC) et columns(ColC). çà te semble juste ??
Je mets un version modifiée de mon fichier, si tu pouvais jetter un
oeil ...
Il faut lancer la macro Prog et choisir le mode Bilan Annuel
par contre çà ne marche pas, il doit encore y avoir un problème (voire plusieurs)
Dans tes fichiers, quand je fais la sélection des 3 critères (collectivité, an, domaine) je vois la sélection en direct dans les colonnes. Dans mon fichier ce n'est pas le cas. De plus quand on clique sur OK, je lui demande de rafficher la totalité des données : çà coince ...
J'ai aussi fait 2 petites modifs dans les procédures filtre et ligneref :
Sub filtre() On Error Resume Next ActiveSheet.ShowAllData [A1].AutoFilter Field:=1, Criteria1:=Me.Collectivité If Me.An <> "*" Then [A1].AutoFilter Field:=3, Criteria1:=Me.An [A1].AutoFilter Field:=2, Criteria1:=Me.Domaine End Sub
et
Sub LigneRef() Dim ligne As Integer If Range("A:A").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then ligne = 2 'pas de filtre Else 'il y a un filtre ligne = Range("A:A").SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row End If LgR = ligne End Sub
Dans ces procédures, j'ai modifié les codes [A1] et range("A:A") par cells(1, ColC) et columns(ColC). çà te semble juste ??
Je mets un version modifiée de mon fichier, si tu pouvais jetter un oeil ... Il faut lancer la macro Prog et choisir le mode Bilan Annuel
