Tri particulier

Bonjour,

Dans ce tableau, il n'y a pas de dates ? Pour le baguage et ensuite pour les contrôles ?

Bonjour,

il vous faudrait adapter ce fichier (auteur: Michel_M de CCM):

https://www.cjoint.com/c/EBeiqV7Vuj6

Bonjour

Peux tu envoyer une petite partie de ton fichier au format excel 2003 sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de ce que tu veux obtenir

Cdlmnt

merci des réponses je vais envoyer une partie du fichier mais il y a plus 50 champs. si j'y arrive

J'espère que ça marche merci a bientôt

https://www.cjoint.com/?0BeqJtfRSs3

OK pour le fichier

mais que veux tu faire exactement
Exemple avec ce que j'ai compris
Je donne un numéro de bague 3525908
Je veux obtenir un extrait constitué de toutes les lignes avec toutes/pastoutes les colonnes - éventuellement sur une autre feuille - qui correspondent à cette bague en colonne R?

Autre chose?

le nombre de colonnne importe peu
en fait c'est toutes les lignes de bagues B et leur C correspondantes que je veux extraire

Bon

Je crois qu'un filtre simple peut faire l'affaire
https://www.cjoint.com/?3BesnUU6CO6

Cdlmnt

je suis desole mais je crois que je n'ai pas su me faire comprendre je vais mettre en couleur les lignes que je veux extraire peu être plus facile a voir je reourne le fichier

les couleurs sont les lignes a extraire ça sur 10300 lignes je ne sais pas si c'est possible a faire
en fait c'est la bague et ses contrôles eventuels qui m'interesse, toutes les bagues n'on pas forcement un contrôle

https://www.cjoint.com/c/EBesJTrr6p7

1. en fait c'est la bague
laquelle, sur ton exemple il y en a 3 (3525908-3525909-3525912)
comment la choisis tu
2. et ses contrôles éventuels qui m'intéressent
c'est quoi les contrôles?

ce n'est qu'une partie du fichier c'est juste pour montrer ce que je veux extraire
le n° de bague est unique par oiseau au momment de la 1ere capture B par la suite cet oiseau peu être recapturer donc contrôler C une ou plusieur fois voir par un autre bagueur
ce qui est interessant c'est de pouvoir avoir une lecture direct de ces oiseaux contrôlés
les données sont triées par n° de bague donc le contrôle apparait avec le baguage mais extraire ligne par ligne est trop fastidueux d'ou l'interet de pouvoir isoler tous ces oiseaux contrôlés avec leur donnée de baguage correspondante c'est pourquoi la 1ere ligne correspond au baguage et la ou les suivantes a son ou ses contrôle

Donc, si je comprends bien (pas sûr)
Tu veux supprimer (ou simplement masquer toutes les lignes) où il y a un B en colonne O non suivi d'un C (et garder toutes les lignes où il y a un C)

C'est ça?

Si oui, une petite macro
https://www.cjoint.com/?3BeuItxRg5U

Cdlmnt

c'est difficile de ce faire comprendre par mail.
j'admire votre patience
je veux pouvoir extraire la donnée de baguageB et ses contrôlesC ensemble et ça dans tout le fichier

surtout je ne veux rien suprimer

Et ce n'est pas ce que fait la macro?
As tu essayé Ctrl+m pour n'afficher que les bagues B suivies de C
il ne reste bien que les lignes en couleur

genial et comment je fais comment pour copier la macro vu ma grande ignorance de ces choses en tout bravo et merci

Bon, ça commence à aller mieux

Le code complet
modifier éventuellement le nom de la colonne Action - j'ai mis la lettre O comme dans ton exemple pour la valeur de la constante co

Option Explicit

Const co = "O"

Public Sub MasqueLignesB()
Dim li As Long, lifin As Long
Application.ScreenUpdating = False
lifin = Range(co & Rows.Count).End(xlUp).Row
For li = 1 To lifin
  If Range(co & li).Value = "B" And Range(co & li + 1) <> "C" Then
    Rows(li).Hidden = True
  End If
Next li
Application.ScreenUpdating = True
End Sub

Public Sub RAZ()
Dim lifin As Long
lifin = Range(co & Rows.Count).End(xlUp).Row
Rows("1:" & lifin).Hidden = False
End Sub

Dans ton fichier
1. Places toi dans la feuille à traiter
2. Alt-F11 pour accéder à l'éditeur vba
3. Coller le code ci dessus

Pour lancer les macros avec des raccourcis clavier
4. Retour à la feuille
5. Outils/Macros
6. Sélectionner la macro MasqueLigneB
Option/Ctrl+m
OK
7. Sélectionner la macro RAZ
Option Ctrl+r
OK

C'est tout

Cdlmnt

merci c'est un peu tard pour moi pour essayer ça je bosse de bonne heure en tout merci pour tout
bonne soirée
cordialement