selection sur critères avec VBA

selection sur critères avec VBA - VB/VBA/VBS - Programmation

Marsh Posté le 21-08-2006 à 19:55:03    

Bonjour à tous
 
Je travaille actuellement sur une base de données Excel dans laquelle sont repertoriées des caractéristiques pour une centaine d'entreprises.
Je souhaiterais selectionner des entreprises en fonction de critères (nationalité, effectifs...).
Ex : les entreprises françaises, les entreprises de plus de 20 salariés...
Je ne parviens pas à trouver la macro adequate, je vous remercie d'avance si vous avez la réponse.

Reply

Marsh Posté le 21-08-2006 à 19:55:03   

Reply

Marsh Posté le 22-08-2006 à 08:48:28    

pas besoin de macro, regarde le filtre élaboré ^^

Reply

Marsh Posté le 22-08-2006 à 10:04:39    

Le souci c'est que j'ai une fiche entreprise avec liste déroulante. A partir de cette fiche j'aimerais faire un certain nombre d'applications; ex: choisir par nationalité, effectif <20, CA<1000000....
Donc je vois qu'une macro pour faire tout ça. J'en ai bidouillé une. Tout va bien mais j'ai un nouveau problème: je souhaiterais ne selectionner qu'un certain nombre de colonnes par rapport à la feuille d'origine ("données générales" ).  Voici ma macro (selection des entreprises françaises):
 
Sub EntreprisesFrançaises()
j = 2
l = 2
Sheets("Données générales" ).Select
Range("G6" ).Select
For i = 1 To Range("AA65536" ).End(xlUp).Row
    Range("G" & j).Select
    If ActiveCell.Value = "France" Then
        Range("A" & j & ":" & "AA" & j).Select
        Selection.Copy
        Sheets("recherche critères" ).Select
        Range("A2" ).Select
line1:
        If ActiveCell.Value = "" Then
            ActiveSheet.Paste
            Selection.Offset(1, 0).Select
        Else
            Selection.Offset(1, 0).Select
            GoTo line1
        End If
    Else
        Selection.Offset(1, 0).Select
    End If
    j = j + 1
    Sheets("Données générales" ).Select
Next i
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed