Doublons sur plusieurs colonnes

Catrice

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

Bonjour,

Dans la formule du nom de la zone d'impression, il y a une petite modification à faire à cause des cellules fusionnées :

=DECALER('27-09-2007'!$A$1;;;NBVAL('27-09-2007'!$A:$A)+1;NBVAL('27-09-2007'!$A$1:$F$4)-1)

Voir fichier joint
 

Fichiers joints

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Catrice
Bonjour Bebere
Bonjour le Forum

Je vous remercie de m'avoir répondu aussi rapidement
Merci Catrice ta formule marche très bien sur la zone d'impression
Bebere, je ne sais pas si je m' y prend mal mais faut-il chaque fois changer dans le module 2 le nom de la feuille de destination ? ce qui semble assez long
Y a t il moyen d' enregistrer une feuille quelconque dans n' importe classeur fermé à la fin de tous les onglets comme si on faisait un clic droit sur l' onglet de la feuille ( copiez déplacer - en dernier et en cochant la croix sur copie).

Vous remerciant à tous les deux pour tout

Abientot
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere, le Forum

Bebere, sa marche pas trop mal, Je vois qu' avec ce language il n' y a presque pas de limite. Je te rejoins un autre fichier pour améliorer mon projet tu trouveras à l'intérieur les modifications à apporter. J 'en profite aussi dans le même sens que celui-ci récupérer une feuille d' un classeur pour l' afficher à la suite du projet initial qui est celui ci c' est à dire "SalahV2"

Merci pour ton aide

Abientot
 

Fichiers joints

Bebere

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

bonjour Salah,Catrice
dans module1 une procédure pour aller chercher les données
à adapter bien sûr,voir commentaires
autres changements effectués
à bientôt
 

Fichiers joints

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere, Catrice et le Forum

Bebere excuse moi encore de t'importuner la sauvegarde se fait très bien avec le nom de la feuille mais par contre pour ce qui est de récupérer une feuille dans un autre dossier ce n'est pas tout à fait çà, je te joins le fichier pour une meilleur compréhension

Abientot
 

Fichiers joints

Bebere

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

oui,Salah je le dis dans mon message
est ce toujours le même fichier,et la feuille?,est ce la feuille active quand on ouvre le fichier
le classeur n'a t'il qu'une feuille,etc
quel nom donner à feuil2,à toi d'expliquer
à bientôt
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonsoir Bebere bonsoir le Forum

Excuse moi Bebere mais je pense que je me suis mal exprimé, je ne t' ai peut-ête pas donné assez de précisions je vais résumé tout çà,
Je travaille avec un fichier principal qui comporte 4 onglets nommés "pochettes vierges-traitement-conclusion et une feuille que je récupère chaque jour que l'on m'envoie qui vient se coller après l' onglet conclusion(il peut y en avoir plusieurs)
Après calcul je recopie dans un autre dossier l' onglet "pochettes vierges" en lui donnant une date ce fichier s'appelle " archives" et chaque jour un onglet supplémentaires se rajoute à la suite avec une date differente
C' est pour cela qu 'il me faut dans un premier temps récupérer cette feuille qu' on m'envoie chaque jour que je colle dans mon fichier principal à la sute des autres onglets et dans un deuxième temps je vaudrais la sauvegarde de l'onglet "pochettes vierges" de mon dossier principal dans un autre classeur qui s'appelle "archives" les uns à la suite des autres en lui changeant l'onglet qui comporte une date par contre l'onglet "pochettes vierges" de mon dossier principal ne doit pas changer de nom.

Je comprends bebere que ce n' est pas très évident de comprendre mais je pourrais peut-etre te faire tout cela en schéma

Je te joins les fichiers

Abientot
 

Fichiers joints

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

bonjour Bebere, bonjour le forum

Coucou bebere m'aurais tu oublié ou alors je n'ai pas été très explicite

Abientot
 

Bebere

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

bonjour Salah
je peux mettre le code dans le fichier pochettes vierge
pour le reste je pense que çà va
le nom des feuilles la date du jour te convient elle
à bientôt
 

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, le forum

Coucou Bebere aurais tu compris mes commentaires, vu ton silence je ne sais pas si tu as saisi mes dires

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
 

Fichiers joints

É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:

Discussions similaires


Haut Bas