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.

 

[zic04]

J'ai assigné le code suivant :

Private Sub CheckBox3_Click()

If Range("C4").Value = False Then
Range("C5:C20").ClearContents
End If
If Range("C4").Value = True Then

La fonction false fonctionne, pour la True ne fonctionne pas.
Avec une macro fonctionne :

Sub test()
'
' test Macro
'Feuil1 -> nom de l'onglet de la feuille source
'Feuil2 -> nom de l'onglet de la feuille destination
Application.EnableEvents = False
With Worksheets("Tableau")
Formumaire.Range("E3:E18").Copy Destination:=Sheets("Sauvegarde1").Range("C5:C20")

End With
Application.EnableEvents = True
End Sub

Si vous avez une idée

 

[Bebere]

bonjour Zic
bienvenue
meilleurs voeux à tous pour 2017
avec un fichier tu aurais déjà eu une réponse
une possibilité en pièce jointe

 

[zic04]

Bonjour,

Merci beaucoup exactement ce que je voulais faire.
Meilleurs voeux à tous pour 2017.


J'ai 2 bug qui sont apparut du coup.
Dans la feuille tableau quand je clique sur masquer les lignes il y à une erreur et quand je fais masquer colonne et que seulement la première est rempli la seconde reste aussi.


Merci encore pour le travail Bebere

 

[Bebere]

Zic avec option explicit tu es obligé de déclarer les variables
exemple pour i : dim i as long (ligne après option explicit ou en tête de procédure)
si tu veux cacher les checkbox, me.checkbox1.visible= false,montrer me. checkbox1.visible=true
içi me fait référence à la feuille qui contient les objects(checkbox)
tu as un menu déroulant qui apparait quand tu tapes le point
voir aide touche fonction F1

 

[zic04]

Voila j'ai réglé le problème pour les lignes fonctionne à nouveau.
Par contre la chekbox cacher les colonnes disparait.
J'ai toujours le même problème si colonne 1 2 3 rempli je clique sur cacher les colonnes la 4 reste toujours présente surement un bug dans le code.

Merci encore ^^

 

[Bebere]

Voilà Zic
explication feuille tableau,tu verras ce qui est changé dans le code

 

[zic04]

Super, fonctionne parfaitement je profite pour te poser 2 autres questions :

Dans la feuille tableau j'ai une macro reiniciar pour réinitialiser le tableau les checkbox en C4 / D4 ... ne se réinitialise pas une solution ?

J'ai besoin d'ajouter des colonnes dans le tableau (ex : copier/coller colonne E) pour ajouter des clients.
Quand je fais un copier coller toute les informations ne passe pas : chekbox / couleurs ...

 

[Bebere]

bonjour Zic
en regardant un peu plus le fichier,je pense qu'il serait intéressant de passer par un userform(formulaire)
qu'en penses-tu

 

[zic04]

Quand je clique sur masquer les colonnes je voudrais garder les boutons visible quand la colonne pas maswuer
Par avance merci

 

[Bebere]

bonjour
Zic ajout d'une formule dans source de validation de données feuille tableau
changement du code checkbox1

Sub AjoutColonne()
    Dim c As Byte
    Worksheets("Tableau").Activate
    Union(Range("Tableau1[maricel]"), Range("Tableau1[maricel]")(0)).Select
    c = Selection.Column
    Selection.Copy
    Cells(3, c + 1).Select
    ActiveSheet.Paste
   creation (Cells(4, c + 1))
End Sub

Sub creation(cel As Range)
Dim Cb As OLEObject
Set Cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
With Cb
    .Left = cel.Left + 25
    .Top = cel.Top + 5
    .Width = 20 'largeur
    .Height = 20 'hauteur
'    .Name = "CB" & cel.Column '<-- attribution du nom
    .Object.Caption = ""
End With

End Sub

 

[zic04]

Bonjour,
Merci je vais traduire les quelques mots qu'il reste.

Il y à juste pour l'impression pas trop d'idée
Il faut que je trouve une solution pour imprimer la colonne B et C - B et D ... avec les colonnes suivantes imprimé.

Merci pour la résolution des différents problème que j'ai rencontré.

 

[Bebere]

Voilà Zic
à tester

Sub ImprimeFeuil()

    With Sheets("Tableau").Range("B:B,C:C")    'remplace les lettres pour les colonnes à cacher
        .EntireColumn.Hidden = True
        .PrintOut
        'ou à la plae de printout
        'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        .EntireColumn.Hidden = False
    End With

End Sub

 

[zic04]

Je viens de tester quand je lance la macro page blanche.


En fait ce que je veux c'est imprimer des étiquettes donc il me faut toujours la colonne B produit suivi d'un client.

Au lieu de colonne a cacher je pense qu'il faudrait choisir colonne a afficher si colonne non vide.

 

[zic04]

Voila le dernier fichier traduit après de nombreux test il subsiste un problème et à trouver une solution pour l'impression.

Dans la feuille Canasta_ le bouton "Salvar " éalise une sauvegarde A2:AF3 et colle les fichiers sur la feuille Salvar.
Il me colle aussi les colonnes vides si vous avez une solution.


Trouver une solution pour imprimer les colonnes rempli (dans le fichier en pj B:C / B😀 / B:E) le nombre de colonne change régulièrement.
Merci