XL 2016 Copier les colonnes lors de la sélection dans la Chechbox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Dadi147
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Dadi147

Dadi147

XLDnaute Occasionnel
bienvenu à tous
Il est nécessaire de ne pas spécifier le lieu de copie, par exemple, pourquoi la colonne 5 a été choisie en premier, elle est copiée dans A : A, et si la colonne 3 a été sélectionnée dans le deuxième choix, elle est copiée dans B : B et vice versa , l'ordre des colonnes est fonction de la sélection dans la case à cocher

VB: 
Private Sub CheckBox1_Click()
sh1.Select
 If form1("CheckBox1").Value = True Then
Columns("A:A").Select
    Selection.Copy
    Sheets("sheet2").Select
    Columns("A:A").Select
    sh2.Paste
 Else
    CheckBox1.Value = False
    sh2.Columns("A:A") = ""
    sh2.Select
    End If
End Sub

Private Sub CheckBox2_Click()
 sh1.Select
 If form1("CheckBox2").Value = True Then
Columns("B:B").Select
    Selection.Copy
    Sheets("sheet2").Select
    Columns("B:B").Select
    sh2.Paste
 Else
    CheckBox2.Value = False
    sh2.Columns("B:B") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox3_Click()
 sh1.Select
 If form1("CheckBox3").Value = True Then
Columns("C:C").Select
    Selection.Copy
    Sheets("sheet2").Select
    Columns("C:C").Select
    sh2.Paste
 Else
    CheckBox3.Value = False
    sh2.Columns("C:C") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox4_Click()
 sh1.Select
 If form1("CheckBox4").Value = True Then
Columns("D:D").Select
    Selection.Copy
    Sheets("sheet2").Select
    Columns("D:D").Select
    sh2.Paste
 Else
    CheckBox4.Value = False
    sh2.Columns("D:D") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox5_Click()
 sh1.Select
 If form1("CheckBox5").Value = True Then
Columns("E:E").Select
    Selection.Copy
    Sheets("sheet2").Select
    Columns("E:E").Select
    sh2.Paste
 Else
    CheckBox5.Value = False
    sh2.Columns("E:E") = ""
    sh2.Select
    End If
End Sub
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

Evitez les select et les activate, sauf pour des besoins très spécifiques.
Pour copier/coller à droite du tableau déjà présent :
VB: 
If form1("CheckBox1").Value = True Then
    Columns("A:A").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial

Pour supprimer ça devient plus complexe. Si il n'y a qu'une apparition de la colonne, il suffit de boucler sur les En-Têtes pour supprimer la colonne dont l'En-Tête est égal à la valeur trouvée dans la checkbox sélectionnée.
Si il peut y avoir plusieurs présences, ça devient plus compliqué.

Bonne journée,
 
Vote positif 0 Vote négatif
xUpsilon à dit:
Bonjour,

Evitez les select et les activate, sauf pour des besoins très spécifiques.
Pour copier/coller à droite du tableau déjà présent :
VB: 
If form1("CheckBox1").Value = True Then
    Columns("A:A").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial

Pour supprimer ça devient plus complexe. Si il n'y a qu'une apparition de la colonne, il suffit de boucler sur les En-Têtes pour supprimer la colonne dont l'En-Tête est égal à la valeur trouvée dans la checkbox sélectionnée.
Si il peut y avoir plusieurs présences, ça devient plus compliqué.

Bonne journée,
Cliquez pour agrandir...
Franchement, je suis débutant et je ne sais pas comment m'y prendre. Si vous avez une idée qui puisse m'aider, j'en serai ravi
 
Vote positif 0 Vote négatif
Commencez par remplacer votre code par :
VB: 
Private Sub CheckBox1_Click()
sh1.Select
 If form1("CheckBox1").Value = True Then
    Columns("A:A").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial
 Else
    CheckBox1.Value = False
    sh2.Columns("A:A") = ""
    sh2.Select
    End If
End Sub

Private Sub CheckBox2_Click()
 sh1.Select
 If form1("CheckBox2").Value = True Then
    Columns("B:B").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial
 Else
    CheckBox2.Value = False
    sh2.Columns("B:B") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox3_Click()
 sh1.Select
 If form1("CheckBox3").Value = True Then
    Columns("C:C").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial
 Else
    CheckBox3.Value = False
    sh2.Columns("C:C") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox4_Click()
 sh1.Select
 If form1("CheckBox4").Value = True Then
    Columns("D:D").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial
 Else
    CheckBox4.Value = False
    sh2.Columns("D:D") = ""
    sh2.Select
    End If
End Sub
Private Sub CheckBox5_Click()
 sh1.Select
 If form1("CheckBox5").Value = True Then
    Columns("E:E").Copy
    Sheets("sheet2").Cells(1, Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial
 Else
    CheckBox5.Value = False
    sh2.Columns("E:E") = ""
    sh2.Select
    End If
End Sub

Testez ça pour la copie des données. On regarde ensuite pour ce qui est de la suppression.
Cliquez sur les colonnes dans l'ordre que vous le souhaitez et dites moi si ça convient à votre demande.
 
Vote positif 0 Vote négatif
Comment ça "vider" ? Vous parlez de quand vous décochez la première checkbox c'est ça ?
C'est là que j'ai besoin de savoir comment ça doit se comporter. Si j'importe les colonnes dans l'ordre suivant :
C D B A et que je déclique TTC1, quelle colonne doit se supprimer ? Toute colonne de la feuille 2 dont l'en-tête est TTC1 ?
 
Vote positif 0 Vote négatif
xUpsilon à dit:
Comment ça "vider" ? Vous parlez de quand vous décochez la première checkbox c'est ça ?
C'est là que j'ai besoin de savoir comment ça doit se comporter. Si j'importe les colonnes dans l'ordre suivant :
C D B A et que je déclique TTC1, quelle colonne doit se supprimer ? Toute colonne de la feuille 2 dont l'en-tête est TTC1 ?
Cliquez pour agrandir...
Ce n'est pas le cas. La première colonne de b:b est copiée
Si ce n'est pas gênant, vous pouvez essayer le fichier car je n'ai peut-être pas pu l'expliquer
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
507
un internaute
U
richardlion
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
sylvanu
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
687
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
780
Phil69970
Phil69970
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
261
Phil69970
Phil69970
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
KTM
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
424
KTM
KTM
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
436
sylvanu
sylvanu
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
648
thunder23
thunder23
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
515
job75
job75
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
587
patricktoulon
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
876
marie3107
M
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
861
Compte Supprimé 979
C
Retour