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: 57
Dernière édition:

zic04

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

zic04

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

Pièces jointes

  • AR16_macro.xlsm
    116 KB · Affichages: 59

Bebere

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

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

Pièces jointes

  • AR16_macro.xlsm
    184.6 KB · Affichages: 48

zic04

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

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

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

Pièces jointes

  • AR19_macroV1.xlsm
    181 KB · Affichages: 47
Dernière édition:

zic04

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

XLDnaute Barbatruc
Voilà Zic
à tester
Code:
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

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

XLDnaute Nouveau
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:D / B:E) le nombre de colonne change régulièrement.
Merci
 

Pièces jointes

  • AR19_macroV2.xlsm
    186.7 KB · Affichages: 48
Haut Bas