XL 2016 Chekbox et fonction copier coller

zic04

XLDnaute Nouveau
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.
 

Pièces jointes

  • AR18_macro.xlsm
    117.3 KB · Affichages: 58
Dernière édition:

Bebere

XLDnaute Barbatruc
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
Code:
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
 

Pièces jointes

  • AR16_macroV1.xlsm
    123.3 KB · Affichages: 45

zic04

XLDnaute Nouveau
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
 

Pièces jointes

  • AR19_macroV2.xlsm
    188.6 KB · Affichages: 49

Bebere

XLDnaute Barbatruc
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
Code:
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

XLDnaute Nouveau
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
 

Pièces jointes

  • AR19_macroV2.xlsm
    208.8 KB · Affichages: 48
Dernière édition:

zic04

XLDnaute Nouveau
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 ^^
 

Pièces jointes

  • AR19_macroV3.xlsm
    190.5 KB · Affichages: 36

Bebere

XLDnaute Barbatruc
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
 

Pièces jointes

  • AR19_macroV5.xlsm
    195.7 KB · Affichages: 39
Dernière édition:

Discussions similaires

Réponses
9
Affichages
380

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth