XL 2016 Chekbox et fonction copier coller

[zic04]

Bonjour,

Il me reste 2 solutions à trouver :
1) Dans la feuille Tableau ajouter des colonnes avec la même mise en forme que la colonne B ou C dans une colonne vide.
2) Gérer l'impression du tableau sur une feuille pour afficher Col B/C - Col B/D ... si non vide

Chekbox : ok
Reset Chekbox : ok



J'ai une feuille "formulaire ou j'ai inséré des chekbox quand je sélectionne la chekbox je voudrais qu'elle réalise un copier coller.

Ex : "Formulaire" en C4/D4/E4 j'ai des chekbox et quand je valide une des chekbox je veux réaliser un copier coller d'une autre feuille "formulaire" E3:E18

Merci de me donner un petit coup de main car j'ai pas trouvé de solution viable.
Je voudrais utilisé la même formule sur toute les chekbox car je copie toujours la même plage.

Par avance merci.

 

[Bebere]

bonjour
Zic voilà une partie de ta demande
pour imprimer donne un exemple,je pense que tu veux mettre les données dans la feuille print
je joins ar16,il y a peut être du code qui t'intéresse

Sub SauvegardeClients()'pour AR19
    Dim a, b(), c As Long, i As Long, j As Long, k As Long, l As Long

    With Worksheets("Tableau")
        a = .Range("A2:AF3")
        For i = 1 To UBound(a, 1)
            For j = 3 To UBound(a, 2)
                If a(i, j) <> "" Then c = c + 1
            Next j
            If c > 0 Then
                l = l + 1
                ReDim Preserve b(1 To 2, 1 To c + 2)
                b(l, 1) = a(i, 1)
                b(l, 2) = a(i, 2)
                k = 2
                For j = 3 To UBound(a, 2)
                    If a(i, j) <> "" Then k = k + 1: b(1, k) = a(i, j)
                Next j
            End If
            c = 0
        Next i

    End With

 

[zic04]

J'ai intégré le code mais il enregistre toujours les colonnes vide, j'ai fait un modèle pour l'impression. pas besoin forcèment d une page impression juste un bouton qui imprime sans ligne avec une macro qui intégre la colonne produit a dupliqué a chaque client

 

[Bebere]

bonjour
Zic voilà un autre code ,simplifié et corrigé
dans le dernier fichier il manquait la partie salvar(à la fin)
attention si tu cliques 2 fois le bouton,faut il faire quelque chose pour éviter de sauver 2 fois

Sub Backup_Clients()
    Dim a, b(), c As Long, i As Long, j As Long, k As Long

    With Worksheets("Canasta_")
        a = .Range("A2:AF3")
            For j = 3 To UBound(a, 2)
                If a(1, j) <> "" Then c = c + 1
            Next j
            If c > 0 Then
                ReDim Preserve b(1 To 2, 1 To c + 2)
                b(1, 1) = a(1, 1): b(1, 2) = a(1, 2)
                b(2, 1) = a(2, 2): b(2, 2) = a(2, 2)
                k = 2
                For j = 3 To UBound(a, 2)
                    If a(1, j) <> "" Then k = k + 1: b(1, k) = a(1, j): b(2, k) = a(2, j)
                Next j
            End If

    End With

    With Worksheets("Salvar")
            i = .Range("B65536").End(xlUp).Row + 1
        .Range("B" & i).Resize(UBound(b, 1), UBound(b, 2)) = b
    End With

End Sub

 

[zic04]

Merci la formule fonctionne, il manque juste la somme des lignes (A3) au lieu de copier la formule il indique "Precio"
A3 Canasta_.

Pour le problème de recopier 2 fois peux etre avec la date ? si elle existe deja ne pas copier ?

suite :
voila j'ai travailler sur l'impression, pour les étiquettes si tu as une idée pour ne pas affiché un produit si l'autre le prend.
Comme dans l'ex en pièce joint

Merci

 

[Bebere]

bonsoir
Zic code de tantôt changé
code pour imprimer (moduleprint) à tester

 

[zic04]

Bonsoir, j'ai testé le fichier félicitation pour le système de sauvegarde fonctionne parfaitement.
Pour l'impression il y a déja beaucoup de boulot 🙂, j'ai relevé quelque petite chose a modifier.
Quand un client a une caisse basique et d'autre chose le nom du client et le prix est répété pas besoin, les colonnes vides C/F ... ne sont pas utile juste peut etre une double ligne comme sur l'exemple pour gagner de la place car l’impression coute cher ici.

encore merci ^^

 

[Bebere]

bonjour
Zic une autre version pour feuille print

 

[zic04]

Salut,
Aie non, l'autre version correspondait mieux, il fallait juste trouvé une solution pour enlever les colonnes vides et enlever la répétition de nom.
je peux te faire un exemple du rendu si je suis pas très clair ?

 

[Bebere]

Pas grave,j'ai mal compris ,un exemple comme cela nous tomberons d'accord

 

[zic04]

voila

 

[Bebere]

bonjour
Zic dans feuille canasta, ligne choix cliente y a t'il une raison que les choix soient dispersés
exemple Walter en colonne P
edit:fichier joint