Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1169 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  selection sur critères avec VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

selection sur critères avec VBA

n°1428936
kipke
Posté le 21-08-2006 à 19:55:03  profilanswer
 

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.

mood
Publicité
Posté le 21-08-2006 à 19:55:03  profilanswer
 

n°1429082
jpcheck
Pioupiou
Posté le 22-08-2006 à 08:48:28  profilanswer
 

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

n°1429119
kipke
Posté le 22-08-2006 à 10:04:39  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  selection sur critères avec VBA

 

Sujets relatifs
VBA EXCEL : détecter mise en forme texte (gras, italique)VBA bordure
Afficher le résultat de ma requete VBA (noob)[VBA] Probleme copie after + ...
[VBA] appels fonctions .dll C/C++EXCEL VBA - Bug pour affecter valeurs dans tableau
Bouton VBA permettant Somme 2 colonnes en 1 pour impression...Saut de ligne sous ACCESS dans des Label en VBA
[C#] OpenFileDialog ne devrait pas retenir les anciennes sélectionSaut de ligne sous ACCESS dans des Label en VBA
Plus de sujets relatifs à : selection sur critères avec VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR