selection sur critères avec VBA - VB/VBA/VBS - Programmation
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
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.