SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

[CG2000]

Trop peu de connaissances en Excel 🙁 pour me dépatouiller. Ramant à ne plus avancer, je solicite votre aide.

d'après le code proposer ci-dessous :

Sub Synthese_Onglets()
Dim Feuille As Worksheet
Dim i As Integer
With Sheets("Synthese")
.Range("A1:J" & Sheets("Synthese").Range("B65535").End(3).Row + 1).Clear
i = .Range("IV1").End(xlToLeft).Column + 1
For Each Feuille In Sheets
If i = 2 Then
i = i - 1
Else: i = .Range("IV1").End(xlToLeft).Column + 1
End If
If Feuille.Name <> "Synthese" Then
Feuille.Range("A1:J" & Feuille.Range("B65535").End(3).Row).Copy Sheets("Synthese").Cells(1, i) 'Range("A" & Sheets("Synthese").Range("B65535").End(3).Row + 1)
End If
Next Feuille
End With
End Sub

Je recherche à obtenir par macro le raisonnement suivant :

Si le contenu de la cellule A2 du feuillet 1 est égal à l'une des cellules de la colonne A du feuilet 2 copier l'ensemble de ces deux lignes dans synthèse,

si A2 du feuillet 1 = 123 par exemple et l'une des cellules du feuillet 2 = 123 recopier les lignes dans synthèse.
puis la macro passerait à la cellule B2 du feuillet 1 = etc ........
A savoir que la colonne A de feuillet 1 poséderat dans chaque cellule des numeros uniques par exemple de 0 à 9999, jamais deux fois le meme numero et idem dans la colle A du feuillet 2 (0 à 9999 et jamais deux numéros identique)

Autre précision si les infos du premier feuillet ne trouvent pas de concordance pour être copiées dans Synthese alors elle ne seraient pas copiées dans le feuillet Synthese ...

Merci pour votre aide, et orientation à la résolution de cette recherche.

 

[kjin]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

...Si le contenu de la cellule A2 du feuillet 1 est égal à l'une des cellules de la colonne A du feuilet 2 copier l'ensemble de ces deux lignes des deux feuillet dans synthèse,

...
Oui mais..l'une en dessous de l'autre... laquelle en premier ?
Ces lignes ont un début et une fin, donc toute la ligne,... y a t-il des formules ?
A+
kjin

 

[CG2000]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

Toutes mes excuses, erreur d'intention (double frappe). Texte rectifié.

Complément d'info : aucunes formules dans les feuillets, que du texte ou des chiffres

CG2000

 

[kjin]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

Bonsoir,
Ca ne répond pas vraiment à la question mais bon
Du coup 2 versions, avec ou sans copier/coller, la macro activée depuis la feuille synthèse d'un bout de fichier que j'ai du créer à ta place !
A+
kjin

 

[CG2000]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

kjin,

c'est tout bon comme ça. L'un et l'autre de cet exemple sont parfait.
Tu as trouvé ce que je recherche à faire. Parfait et je suis admiratif de la qualité et du sérieux de la solution et ce malgré du manque de précision dans ma demande.
Merci.


PS: EST-IL POSSIBLE DE FAIRE LA MEME CHOSE MAIS EN PRENANT EN COMPTE LES COLONNES A ET B DU FEUILLET 1 ET DES COLONNES A ET B DU FEUILLET 2 ?

 

[kjin]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

Bonjour,
Nouvelle mouture
A+
kjin

 

[CG2000]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

kjin

un grand merci pour ton super travail de pro.
Grandiose, je suis stocher par le résultat !

CG2000

 

[CG2000]

Re : SI A1 de 1 = AVEC A de 2 résultat A1de1+Ade2 SINON ...

Le résultat est parfait.
Une dernière question : est-il possible d'obtenir le même résultat (un top de top)
mais en incluant en fin de fichier de la page synthese les lignes de la feuille 1 et de la feuille 2 qui ne serait pas condensée dans synthese ?

Précision du raisonnement !
SI feuille 1 = feuille 2 repport assemblé sur feuille de synthese (résultat de la macro actuelle)
SI feuille 1 différente de feuille 2 = repport partie feuille 1 à la fin sur feuille de synthese en fin de fichier ou a la suite.
et vis-versa
SI feuille 2 différente de feuille 1 = repport partie feuille 2 à la fin sur feuille de synthese en fin de fichier ou a la suite.


CG 20000

 

[CG2000]

Different ...

Bonsoir

Ce code :

Sub AvecCopierColler() 
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet, C1 As Byte, C2 As Byte, Derlign As Long 
Set Ws1 = Sheets("Feuil1") 
Set Ws2 = Sheets("Feuil2") 
Set Ws3 = Sheets("Synthese") 
    Application.ScreenUpdating = False 
    For i = 2 To Ws1.Range("A65000").End(xlUp).Row 
        For j = 2 To Ws2.Range("A65000").End(xlUp).Row 
        If Ws1.Cells(i, 1) = Ws2.Cells(j, 1) Then 
            Derlign = Ws3.Range("A65000").End(xlUp).Row + 1 
            With Ws1 
                C1 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(i, 1), .Cells(i, C1)).Copy 
                Ws3.Cells(Derlign, 1).PasteSpecial Paste:=xlValues 
            End With 
            With Ws2 
                C2 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(j, 2), .Cells(j, C2)).Copy 
                Ws3.Cells(Derlign, C1 + 1).PasteSpecial Paste:=xlValues 
                End With 
        Application.CutCopyMode = False 
        End If 
        Next 
    Next 
    Application.ScreenUpdating = True 
    
End Sub

si sur une mème ligne la cellule de "Feuil1" est = à ("Feuil2") repport sur la "Synthese"
idem
si sur une mème ligne la cellule de "Feuil2" est = à ("Feuil1") repport sur la "Synthese"
et ainsi de suite ...

Maintenant je cherche à obtenir et ni arrivant pas je sollicite encore une fois votre aide :

si sur une mème ligne la cellule de "Feuil1" est différente à ("Feuil2") repport sur la "Synthese"
idem
si sur une mème ligne la cellule de "Feuil2" est différente à ("Feuil1") repport sur la "Synthese"

et ainsi de suite ...... et donc ne repporte plus les identiques ..... mais uniquement que les différents.

Merci