Doublons sur plusieurs colonnes

SALAH

XLDnaute Occasionnel
Bonjour à tous et à toutes

Permettez moi de vous dire que c 'est la première fois que je viens sur ce forum, je l'ai beaucoup consulté mais n' ayant pas trouvé exactement ce que je recherche alors je me suis permis d' envoyer ce fichier afin qu' une ame charitable me dépanne de ce processus infernal.
En fait je gère une réception de pochettes clients et une commande faite par le SAV, il me faudrait soit par une formule ou VBA de supprimer les doublons, additionner les quantités et faire une comparaisons sur une autre feuille afin de distinguer les differences de quantité et les pochettes non livrées ou manquantes sur la commande

Vous en remerciant à l' avance
 

Pièces jointes

  • doublons sur 2 fichiers.zip
    24.8 KB · Affichages: 192
  • doublons sur 2 fichiers.zip
    24.8 KB · Affichages: 189
  • doublons sur 2 fichiers.zip
    24.8 KB · Affichages: 193

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere

Je pense qu' avec un fichier joint je comprendrais
mais il faudrait que l'onglet "pochettes vierges" ne doit pas changer
seul dans l' archive il doit avoir une date que je donnerais moi-meme
et pour ce qui est de la récupératione d' un autre feuille excel elle doit se rajouter à la suite des onglets dans le classeur "pochettes vierges" avec son nom d' onglet approprié

Merci et abientot
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere
Bonjour Le Forum

Bebere je pense qu' on arrive déjà à la fin, tout est ok mais reste une petite chose ; serait il possible que l' onglet nommé "b" ne change pas, car là il prend le même nom que la copie.

Merci et Abientot
 

Bebere

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

bonjour Salah
met en commentaire cette ligne
'SheetSource.Name = Reponse 'change nom feuille copiée
Sub EssaiDer()
Dim Fich As String, Wb As Workbook, SheetSource As Worksheet, NewSheet As Worksheet
Dim DerL As Long
Set SheetSource = ThisWorkbook.Sheets("Feuil1") 'la feuille à copier
'choix fichier destination
Fich = GetDirectory
If Fich = "" Then Exit Sub
Workbooks.Open Filename:=Fich 'ouverture fichier
Set Wb = ActiveWorkbook
Set NewSheet = Wb.Sheets.Add 'ajoute feuille
NewSheet.Move after:=Wb.Sheets(Sheets.Count) 'dernière feuille
'copie dans nouvelle feuille,attention,choisir la colonne la plus longue
DerL = SheetSource.Cells.Find("*", [A1], , , 1, 2).Row
SheetSource.Range("A1:J" & DerL).Copy Destination:=NewSheet.Range("A1")
NouvelleFeuille 'nouveau nom feuille
'SheetSource.Name = Reponse 'change nom feuille copiée
NewSheet.Name = Reponse 'change nom nouvelle feuille
Wb.Save 'sauve
Wb.Close 'ferme

End Sub

à bientôt
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonsoir Bebere
Bonsoir le Forum

Tout marche à merveille, je ne sais vraiment pas comment te remercier, tu es le seul qui m' a aidé jusqu' au bout, grace à tes commentaires je vais pouvoir étudier chaque ligne du programme et me lancer sérieusement dans cette voie.

Abientot et encore merci
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere

j' ai un petit souci sur ce code
le bouton "transfert permet de copier les autres feuilles en les empilant sur la feuille transfert jusque là sa marche très bien mais en fait ce que j' aimerais c 'est qu' il ne copie seulement que les feuilles qui se trouvent à droite de la feuille transfert mais pas celles qui sont avant je te joins le fichier

Abientot
 

Pièces jointes

  • Transfert.zip
    14.8 KB · Affichages: 78
  • Transfert.zip
    14.8 KB · Affichages: 77
  • Transfert.zip
    14.8 KB · Affichages: 74

Épaf

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Pour ne copier que les feuilles "à droite" de la feuille "Bidule"
Code:
Dim CL1 As Workbook
    Set CL1 = ActiveWorkbook
    NbFeuilles = CL1.Worksheets.Count
    For NoFeuille = CL1.Worksheets("Bidule").Index + 1 To NbFeuilles
        ' Affichage pour vérifier que c'est bon -> Tu EFFACES......
        MsgBox CL1.Worksheets(NoFeuille).Name
        'Ton code de copie
    Next
Bonne soirée
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Epaf, Bebere

Merci d' avoir répondu aussi vite j'ai testé ton code mais ne marche pas
ci-joint le code de la pièce jointe
Peux tu me dire ce qui ne va pas



Sub TransfertListes()
Dim i As Byte
Dim Lf1 As Integer
Dim Lf2 As Integer

'Effacement des données précédentes
Lf1 = Sheets(1).Range("A65000").End(xlUp).Row + 1
Sheets(1).Range("A2:G" & Lf1).ClearContents
'Boucle sur les feuilles autre que la première
For i = 2 To Sheets.Count
'vérification que la feuille n'est pas vide
If Sheets(i).Range("A5") <> "" Then
Lf1 = Sheets(1).Range("A65000").End(xlUp).Row + 1
Lf2 = Sheets(i).Range("A65000").End(xlUp).Row
'Copie collage spécial valeurs
Sheets(i).Range("A5:G" & Lf2).Copy
Sheets(1).Range("A" & Lf1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next i
End Sub

Abientot
 

Épaf

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Dis-nous au moins si l'index correspond bien à la feuille "Transfert". Je me contente de répondre à ta question, j'ai pris la discussion en route et n'ai répondu qu'à ta dernière question.
Une autre méthode :
Code:
Sub test2()
Dim CL1 As Workbook, NoFeuille, LaFeuille As Worksheet
    Set CL1 = ActiveWorkbook
    NbFeuilles = CL1.Worksheets.Count
    For Each LaFeuille In CL1.Worksheets
        [COLOR="darkred"][B]MsgBox LaFeuille.Index & "  " & LaFeuille.Name[/B][/COLOR]
        If lcase(LaFeuille.Name) = "transfert" Then
            [COLOR="DarkRed"][B]MsgBox LaFeuille.Index & "  " & LaFeuille.Name[/B][/COLOR]
            NoFeuilleSuivante = LaFeuille.Index + 1
            'Exit For 'Valide cette ligne, c'est "mieux"
        End If
    Next
    For NoFeuille = NoFeuilleSuivante To NbFeuilles
        'Ton code de copie
    Next
End Sub
Chez moi, les deux codes fonctionnent pour trouver l'index des feuilles placées à droite de la feuille "Transfert"
... si tu as une feuille "transfert".
@+
 
Dernière édition:

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere Comment tu vas ?
Bonjour Epaf
Bonjour le forum

Mon projet marche à merveille
Cependant Bebere, comment creer une macro qui afficherait une boite de dialogue avec tous les onglets et qui nous demanderait de faire le choix de supprimer tel ou tel onglets

Merci encore pour toutes vos explications

Abientot
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere
Bonjour le Forum

Comment tu vas Bebere ? voilà je reviens vers toi pour tout autre chose
si tu peux m' aider sa serait sympa comme tu la fais jusqu' à présent
voilà j' ai un classeur avec 2 feuilles une avec une base clients et l' autre "controle" qui va servir à éditer des feuilles par tournée, le programme en lui -même marche très bien le seul hic c' est que si tu cliques sur le bouton des tournées éditées la liste n' apparait pas.
Le fichier est trop gros il fait compressé 264 ko
comment pourrais je te l' envoyer ? as tu une adresse ? ou faut il que je fasse un copier coller des codes ?

Te remerciant par avance

Abientot
 

Discussions similaires

Réponses
13
Affichages
342