Discussion :

[aymen.fst]

Bonjour ,

SVP j'ai besoin de votre aide car je n'ai pas grandes connaissances en VB.

Mon on problème est le suivant : soient deux lignes excel suivantes

A	B	C	D	E	F	G	H
2018	000	1000036	01012018	31012018	20	01/01/2018	31/01/2018
2018	000	1000036	01022018	31122018	20	01/02/2018	31/12/2018

Je souhaite fusionner ces deux lignes en 1 seule car mes conditions sont vérifiées :
- G2 = H1 + 1 jour (date de début en 2 ème ligne colonne 7= date de fin en 1ère ligne à la colonne 8 +1 ) (01/02/2018 = 31/01/2018 +1)
- A1=A2
- B1=B2
- C1=C2
- D1=D2
- E1=E2
- F1=F2
- G1=G2
- H1=H2


La ligne attendue est la suivante avec suppression des 2 lignes fusionnées , je ne laisse que la ligne résultat de la fusion :
2018 000 1000036 01012018 31012018 20 01/01/2018 31/12/2018

Pourriez vous m'aider ?

Merci

[ARTURO83]

Bonjour,

Pas claire votre demande, les conditions qui doivent être réunies
- G2 = H1 + 1 jour (date de début en 2ème ligne colonne 7= date de fin en 1ère ligne à la colonne 8 +1 ) (01/02/2018 = 31/01/2018 +1)
- A1=A2
- B1=B2
- C1=C2
- D1=D2
- E1=E2
- F1=F2
- G1=G2
- H1=H2
et le résultat attendu
2018 000 1000036 01012018 31012018 20 01/01/2018 31/12/2018

or dans votre exemple
D1<>D2
E1<>E2

Que doit-on comparer exactement et qu'est-ce qui doit être retenu?

Cdlt

[aymen.fst]

Bonjour ,

Vous avez raison , il ne faut pas tenir compte de la condition suivante et ne pas considérer les colonnes D et E :
D1<>D2
E1<>E2

En gros, si :
A1=A2
B1=B2
C1=C2
F1=F2
et
G2 = H1 + 1 jour (date de début en 2ème ligne colonne 7= date de fin en 1ère ligne à la colonne 8 +1 ) (01/02/2018 = 31/01/2018 +1)

On fusionne les 2 lignes en 1 seule ligne ( les colonnes D et E peuvent être vides) :

2018 000 1000036 vide vide 20 01/01/2018 31/12/2018

Merci

[ARTURO83]

Bonjour,

Voilà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Fusion()
    Application.ScreenUpdating = False
    DerLig = [A10000].End(xlUp).Row
 
    For i = DerLig - 1 To 2 Step -1
        If Cells(i, "A") = Cells(i + 1, "A") And Cells(i, "B") = Cells(i + 1, "B") And Cells(i, "C") = Cells(i + 1, "C") And _
            Cells(i, "F") = Cells(i + 1, "F") And Cells(i + 1, "G") = Cells(i, "H") + 1 Then
            Cells(i, "H") = Cells(i + 1, "H")
            Range(Cells(i, "D"), Cells(i, "E")).ClearContents
            Range(Cells(i + 1, "A"), Cells(i + 1, "H")).Delete
        End If
    Next i
End Sub

Avec le fichier
Pièce jointe 447059

Cdlt

[aymen.fst]

Merci pour ce code,

Sauf que en l'exécutant j'ai l'erreur de type "13" incompatibilité de type.

Désolé mais je suis vraiment profane en VB excel

[ARTURO83]

montrez-moi un échantillon de vos données

[aymen.fst]

Il s'agit de signaler que mes colonne G et H sont de format Date , mais sur lesquelles j'ai appliquées une formule pour obtenir cette date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CONCATENER(GAUCHE(D2;2);"/";DROITE((GAUCHE(D2;4));2);"/";DROITE(D2;4))

C'est à dire en partant de la colonne E (non utilisée ) :
01012018 ==> sera une date 01/01/2018 (format de cette dernière est DATE)

serait-ce à cause de ça?