XL 2010 Copy tableau et selon des valeurs vers la feuille suivante

[yahya belbachir]

Bonjour
j'ai réussi à à faire un code pour créer une nouvelle feuille avec incémentation de date et numérotation d'onglet,jusqu'à maintenant tout fonctionne très bien,je veux par la suite de copier tout le tableau comme il est, sauf les valeurs du colonne (K) si égale à 0 alors ne se recopie pas, et si valeur(K) plus grand que 0 se copie vers tableau du feuille (m2) dans la colonne (H), "colonne A vers A (B vers B) et colonne (K vers H)
est ce possible
merci
mon fichier çijoint:

 

[Robert]

Bonjour Yahya, bonjour le forum,

J'ai modifié la macro initiale. Regarde si ça convient :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Byte

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 5 To 25
        .Cells(I, "H").Value = IIf(.Cells(I, "K").Value = 0, "", .Cells(I, "K").Value)
        .Cells(I, "K").Value = ""
    Next I
End With

End Sub

 

[yahya belbachir]

Bonjour Yahya, bonjour le forum,

J'ai modifié la macro initiale. Regarde si ça convient :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Byte

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 5 To 25
        .Cells(I, "H").Value = IIf(.Cells(I, "K").Value = 0, "", .Cells(I, "K").Value)
        .Cells(I, "K").Value = ""
    Next I
End With

End Sub

merci ROBERT pour la réponse,
pour le copie à la feuille suivante ça fonctionne parfait, mais si la feuille source dans la colonne (K) égale à zero est possible de ne pas le copier?
j'ai fais dans mon exemple une copie manuelle dans la feuille (M 1).
merci

 

[Robert]

Re,

Dans ce cas, essaie comme ça :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Integer

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 25 To 5 Step -1
        If Not .Cells(I, "K") = "" Then
            If .Cells(I, "K").Value = 0 Then
                .Rows(I).Delete
            Else
                .Cells(I, "H").Value = .Cells(I, "K").Value
                .Cells(I, "K").Value = ""
            End If
        End If
    Next I
End With
End Sub

 

[yahya belbachir]

Re,

Dans ce cas, essaie comme ça :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Integer

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 25 To 5 Step -1
        If Not .Cells(I, "K") = "" Then
            If .Cells(I, "K").Value = 0 Then
                .Rows(I).Delete
            Else
                .Cells(I, "H").Value = .Cells(I, "K").Value
                .Cells(I, "K").Value = ""
            End If
        End If
    Next I
End With
End Sub

merci infiniment cela fonctionne bien comme je veux
,je vaisessayer de faire un clear contents pour les colonnes (C:F)

 

[yahya belbachir]

Re,

Dans ce cas, essaie comme ça :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Integer

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 25 To 5 Step -1
        If Not .Cells(I, "K") = "" Then
            If .Cells(I, "K").Value = 0 Then
                .Rows(I).Delete
            Else
                .Cells(I, "H").Value = .Cells(I, "K").Value
                .Cells(I, "K").Value = ""
            End If
        End If
    Next I
End With
End Sub

Re Bonjour Mr Robert
veuillez m'excuser de vous déranger,
concernant le macro fonctionne bien,faisant copie par la suite de la feuille suivante,le tableau s'efface,j'ai tenté plusieurs fois sans résultat de garder le tableau à sa forme dans la feuille 2 comme le tableau de la feuille 1.

 

[Robert]

Re,

Peut-être comme ça :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Integer

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 25 To 5 Step -1
        If Not .Cells(I, "K") = "" Then
            If .Cells(I, "K").Value = 0 And .Cells(I, "A").Value <> "TOTAL" Then
                .Rows(I).Delete
            Else
                .Cells(I, "H").Value = .Cells(I, "K").Value
                .Cells(I, "K").Value = ""
            End If
        End If
    Next I
End With
End Sub

 

[yahya belbachir]

Re,

Peut-être comme ça :

Sub DupliquerFeuille()
Dim Num As Integer
Dim I As Integer

Num = CInt(Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1))
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    .Name = "M " & Num + 1
    .[K2] = [K2] + 1
    .[E2] = [E2] + 1
    For I = 25 To 5 Step -1
        If Not .Cells(I, "K") = "" Then
            If .Cells(I, "K").Value = 0 And .Cells(I, "A").Value <> "TOTAL" Then
                .Rows(I).Delete
            Else
                .Cells(I, "H").Value = .Cells(I, "K").Value
                .Cells(I, "K").Value = ""
            End If
        End If
    Next I
End With
End Sub

merci Mr Robert,même problème,le tableau se réduit.
merci

 

[Robert]

Re,

Pas chez moi, du coup je ne sais pas ce que je dois modifier. Envoie moi un fichier avec minimum 5 tableaux (générés par la macro) et en indiquant clairement, dans chaque onglet, ce qui ne va pas pour que je comprenne...

 

[yahya belbachir]

Re,

Pas chez moi, du coup je ne sais pas ce que je dois modifier. Envoie moi un fichier avec minimum 5 tableaux (générés par la macro) et en indiquant clairement, dans chaque onglet, ce qui ne va pas pour que je comprenne...

essayez de voir ce fichier que j'ai fais,j'ai tenté de rajouter quelque chose dans le code pour que le macro ne diminue pas le tableau, je vous explique
si une ligne est supprimé dans le feuille suivante,est possible que le tableau rajoute une ligne au dessous:
exemple le tableau s'arrête dans la ligne (26),alors ce que je veux dans la feuille suivante que le tableau s’arrête dans la ligne (26) ("TOTAL")

 

[Dranreb]

Bonjour.
Définitivement, NON !
De nos jours ça ne se fait absolument plus de laisser exprès des lignes vide dans un tableau.
Au contraire on met les plages qui les couvrent sous forme de tableaux à références structurées (beaucoup raccourcissent ça en 'tableaux structurés', ce qui est un terme que je n'ai jamais vue employé par Microsoft), lesquels n'ont que des lignes utiles mais peuvent se terminer par une ligne Total dont la position est donc variable.
Je ne comprend pas exactement ce que vous souhaitez. Ce que j'ai plus ou moins compris, à travers vos classeurs joints et une conversation que vous m'avez adressée, c'est que vous voulez reporter dans la nouvelle feuille les impayés, grosso modo, en une liste de noms sans doublon. Mais dans ce cas la logique voudrait qu'en même temps les colonnes Vente1 à Vente4 et les paiements soient remis à zéro dans la nouvelle feuille, non ?

 

[yahya belbachir]

Bonjour.
Définitivement, NON !
De nos jours ça ne se fait absolument plus de laisser exprès des lignes vide dans un tableau.
Au contraire on met les plages qui les couvrent sous forme de tableaux à références structurées (beaucoup raccourcissent ça en 'tableaux structurés', ce qui est un terme que je n'ai jamais vue employé par Microsoft), lesquels n'ont que des lignes utiles mais peuvent se terminer par une ligne Total dont la position est donc variable.
Je ne comprend pas exactement ce que vous souhaitez. Ce que j'ai plus ou moins compris, à travers vos classeurs joints et une conversation que vous m'avez adressée, c'est que vous voulez reporter dans la nouvelle feuille les impayés, grosso modo, en une liste de noms sans doublon. Mais dans ce cas la logique voudrait qu'en même temps les colonnes Vente1 à Vente4 et les paiements soient remis à zéro dans la nouvelle feuille, non ?

Bosoir Dranreb
je vais essayé de vous envoyé mon classeur que j'ai réaliser à travers une copie de ce code,j'ai réussi à le faire il me reste un petit probléme,je vais vous envoyé mon classeur pour voir ce qu'il me manque
et merci pour votre soutien

 

[yahya belbachir]

Bosoir Dranreb
je vais essayé de vous envoyé mon classeur que j'ai réaliser à travers une copie de ce code,j'ai réussi à le faire il me reste un petit probléme,je vais vous envoyé mon classeur pour voir ce qu'il me manque
et merci pour votre soutien

Bonjour.
Définitivement, NON !
De nos jours ça ne se fait absolument plus de laisser exprès des lignes vide dans un tableau.
Au contraire on met les plages qui les couvrent sous forme de tableaux à références structurées (beaucoup raccourcissent ça en 'tableaux structurés', ce qui est un terme que je n'ai jamais vue employé par Microsoft), lesquels n'ont que des lignes utiles mais peuvent se terminer par une ligne Total dont la position est donc variable.
Je ne comprend pas exactement ce que vous souhaitez. Ce que j'ai plus ou moins compris, à travers vos classeurs joints et une conversation que vous m'avez adressée, c'est que vous voulez reporter dans la nouvelle feuille les impayés, grosso modo, en une liste de noms sans doublon. Mais dans ce cas la logique voudrait qu'en même temps les colonnes Vente1 à Vente4 et les paiements soient remis à zéro dans la nouvelle feuille, non ?

essayer d'ouvrir mon test origine ce que je veux exactement,et c'est vrai vous avez bien compris ce que je veux exactement, c'est de reporter les vente impayées dans la page suivante

 

[Dranreb]

Bonjour.
Essayez en rangeant le numéro de ligne x dans l'item de votre collection plutôt que d'y répéter le clé: ça vous évitera de l'y rechercher pour cumuler. Ce ne serait vraiment pas possible de mettre ça sous forme de tableau ?

 

[yahya belbachir]

Bonjour.
Essayez en rangeant le numéro de ligne x dans l'item de votre collection plutôt que d'y répéter le clé: ça vous évitera de l'y rechercher pour cumuler. Ce ne serait vraiment pas possible de mettre ça sous forme de tableau ?

je vais essayé,merci infiniment.