Sos macro ou vba
Fermé
mitinne
Messages postés
3
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
3 septembre 2013
-
Modifié par mitinne le 2/09/2013 à 09:23
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 sept. 2013 à 12:18
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 sept. 2013 à 12:18
A voir également:
- Sos macro ou vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Jitbit macro recorder - Télécharger - Confidentialité
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
2 réponses
Bonjour
Même sans un tri on peut effectuer ça
il faut faire une boucle for pour trouver le metier secretaire.
copier la ligne et la coller dans l'onglet correspondant au metier.
Cordialement
Même sans un tri on peut effectuer ça
il faut faire une boucle for pour trouver le metier secretaire.
copier la ligne et la coller dans l'onglet correspondant au metier.
Cordialement
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
3 sept. 2013 à 12:25
3 sept. 2013 à 12:25
Bonjour Mitinne
sans boucler, tu pourrais utiliser tout simplement les filtres
classeur exemple à adapter à ton contexte
https://www.cjoint.com/?3Idmtnhpsz8
le code VBA
En espérant une réponse de ta part...
:o)
sans boucler, tu pourrais utiliser tout simplement les filtres
classeur exemple à adapter à ton contexte
https://www.cjoint.com/?3Idmtnhpsz8
le code VBA
Sub Extraire_fonction() Dim Choix As String, Derlig As Integer With Sheets(1) Choix = .Range("K2") ' A DAPTER la profession est ici en colonne 2 Derlig = .Columns(2).Find("*", , , , , xlPrevious).Row .[A1].AutoFilter Field:=2, Criteria1:=Choix With Sheets(2) .Activate .Cells.Clear End With .Range("A1:I" & Derlig).SpecialCells(xlCellTypeVisible).Copy [A1] .ShowAllData End With End Sub
En espérant une réponse de ta part...
:o)
mitinne
Messages postés
3
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
3 septembre 2013
3 sept. 2013 à 14:02
3 sept. 2013 à 14:02
O;) mille mercis : je teste ... @ Tout'
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
5 sept. 2013 à 12:18
5 sept. 2013 à 12:18
Et alors ?
3 sept. 2013 à 14:02