extraire des couples

ERIC S

XLDnaute Barbatruc

• 16 Avril 2009

• #2

Re : extraire des couples

Bonjour

en C2 et tirer

=SI(ESTVIDE(A2);SI(C1="ok";"ok";"no");SI(ESTVIDE(A4&B4);"no";SI(OU(B2&B3="AB";B2&B3="BA");"ok";"no")))

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 16 Avril 2009

• #3

Re : extraire des couples

Bonjour Eric S et merci de m'aider

Cela ne fonctionne pas, les lignes 4, 5 et 6 sont "ok" alors quelles devraient "no" puisque il faut prendre que les "couples"

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Avril 2009

• #4

Re : extraire des couples

re

essaie

=SI(ESTVIDE(A2);SI(D1="ok";"ok";"no");SI(ET(ESTVIDE(A4);ESTVIDE(B4));SI(OU(B2&B3="AB";B2&B3="BA");"ok";"no");SI(ESTVIDE(A4);"no";SI(OU(B2&B3="AB";B2&B3="BA");"ok";"no"))))

brut de fonderie, cela doit se simplifier

remplacer le D1 par C1, j'ai testé en colonne D

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Avril 2009

• #5

Re : extraire des couples

re

=SI(ESTVIDE(A2);SI(C1="ok";"ok";"no");SI(ET(ESTVIDE(A4);NON(ESTVIDE(B4)));"no";SI(OU(B2&B3="AB";B2&B3="BA");"ok";"no")))

a tester

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 17 Avril 2009

• #6

Re : extraire des couples

Bonjour Eric S, le forum

C'est bon la troisième formule fonctionne dans l'exemple, je vais essayer dans la matinée sur le fichier (2350 lignes).
Si cela ne te dérange pas pourrais-tu m'expliquer la formule, c'est toujours bon de comprendre comment cela fonctionne.

Merci

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 17 Avril 2009

• #7

Re : extraire des couples

Bonjour

l'imbrication des SI permet de passer en revue tous les cas :

=SI(ESTVIDE(A2);SI(C1="ok";"ok";"no");SI(ET(ESTVID E(A4);NON(ESTVIDE(B4)));"no";SI(OU(B2&B3="AB";B2&B 3="BA");"ok";"no")))

d'abord si en A la cellule est vide, je regarde l'état de la cellule en C de la ligen au dessus car c'est elle qui le sert de référence (1ère ligne du groupe si non vide en A)

je m'occupe ensuite des cellules avec A non vide

comme il me faut forcément 2 lignes par groupe (pour avoir une chance d'avoir un A et un B, je regarde 2 lignes en dessous si A est vide et B rempli (cela signifie que que je n'ai qu'une ligne dans mon groupe ou au moins trois donc je ne peux pas avoir un seul A et un seul B)

enfin je regarde si avec la ligne d'en dessous je peux recomposer AB ou BA

il reste peut-être un bug si sur 3 lignes consécutives A est renseigné

il faudrait donc peut-être modifier

=SI(ESTVIDE(A2);SI(C1="ok";"ok";"no");SI(ET(ESTVID E(A4);NON(ESTVIDE(B4)));"no";si(estvide(A3).SI(OU(B2&B3="AB";B2&B 3="BA");"ok";"no");"no")))

a tester

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 18 Avril 2009

• #8

Re : extraire des couples

Merci beaucoup pour la formule et pour les explications.

est-ce possible d'inclure cela dans une macro ?

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 18 Avril 2009

• #9

Re : extraire des couples

Bonjour

normalement une macro doit être simple à réaliseren écrivant des conditions comme

if then

else

endif

si besoin je peux regarder mais lundi seulement

pour balayer les lignes en macro il faudrait prendre en référence la colonne B pour déterminer la dernière ligne

for i=1 to derligne=range("B65536").end(xlup).row

next

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 20 Avril 2009

• #10

Re : extraire des couples

Bonjour ERIC, le forum

Si cela ne dérange pas et sit tu peux me faire une macro VBA cela serait bien car je pourrai l'inclure dans tools.

Merci de ton aide

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Avril 2009

• #11

Re : extraire des couples

Bonsoir
à essayer un emacro non optimisée qui reprend les "si" imbriqués

Sub essai()
'
For i = 2 To Range("B65536").End(xlUp).Row
'par défaut on écrira "no" sinon on forcera le "ok"
Cells(i, 3) = "no"
'=SI(ESTVIDE(A2);SI(C1="ok";"ok";"no")
If IsEmpty(Cells(i, 1)) Then
If Cells(i - 1, 3).Value = "ok" Then
Cells(i, 3) = "ok"
End If
Else
'SI(ET(ESTVIDE(A4);NON(ESTVIDE(B4)));"no"
If IsEmpty(Cells(i + 2, 1)) And Not IsEmpty(Cells(i + 2, 2)) Then
Else
'SI(ESTVIDE(A3); "no"
If Not IsEmpty(Cells(i + 1, 1)) Then
Else
'SI(OU( B2&B3="AB";B2&B3="BA");"ok";"no")
If Cells(i, 2).Value = "A" And Cells(i + 1, 2).Value = "B" Then Cells(i, 3) = "ok"
If Cells(i, 2).Value = "B" And Cells(i + 1, 2).Value = "A" Then Cells(i, 3) = "ok"
End If
End If
End If
Next
End Sub

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 22 Avril 2009

• #12

Re : extraire des couples

Bonjour Eric,

Cest good, merci

 

Vote positif 0 Vote négatif