condition extraire données

[roro69]

Bonsoir et merci pour l'aide apporté


Je voudrais extraire des données d'une colonne par sairie ; je vous joint mon classeur pour une meilleur compréhension
Merci de l'aide et du temps consacré

 

[Dranreb]

Re : condition extraire données

Bonsoir.

Sub SupprInterm()
Dim T(), Le&, Ls&
T = Feuil1.Cells(2, "A").Resize(Feuil1.[A60000].End(xlUp).Row, 2).Value
Ls = 1
For Le = 2 To UBound(T, 1) - 1
   If T(Le, 1) <> T(Le - 1, 1) Or T(Le, 2) <> T(Le - 1, 2) + 1 Or _
      T(Le, 1) <> T(Le + 1, 1) Or T(Le, 2) <> T(Le + 1, 2) - 1 Then
      Ls = Ls + 1: T(Ls, 1) = T(Le, 1): T(Ls, 2) = T(Le, 2)
      End If: Next Le
Feuil1.[G2:H2].Resize(UBound(T, 1) - 1).Value = Empty
Feuil1.[G2:H2].Resize(Ls).Value = T
End Sub

Edit: Bonsoir Victor21.

 

[Victor21]

Re : condition extraire données

Bonjour, roro69.

En attendant mieux, avec une colonne supplémentaire :
En C3 :

=SI(OU(A3<>A2;A3<>A4);LIGNE();SI(ET(A3=A2;OU(B3<>B2+1;B3<>B4-1));LIGNE();""))

En E3 :

=SIERREUR(INDEX($A$1:$A$30000;PETITE.VALEUR($C$3:$C$129;LIGNES($1:1)));"")

En F3 :

=SIERREUR(INDEX($B$1:$B$30000;PETITE.VALEUR($C$3:$C$129;LIGNES($1:1)));"")

Le tout à recopier vers le bas.

Edit : Bonsoir, Dranreb, posté avant de voir ta solution

 

[roro69]

Re : condition extraire données

Bonjour Un grand merci à vous deux pour vos solutions qui fonctionnent parfaitement
Merci pour le temps consacré
Désolé pour mes remerciments tardif