Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Superposition de tableau selon case à cocher

Créer une discussion

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
M

mouss5174

XLDnaute Nouveau
Bonjour,

j'aimerai superposer des tableau dans un seul selon si je coche une case à cocher.

j'arrive bien à faire apparaître le premier tableau mais lorsque je coche pour faire apparaître le deuxième tableau le premier disparaît

Pourriez vous m'aider?

Private Sub CheckBox1_Click()
Addition
End Sub

Private Sub CheckBox2_Click()
Addition
End Sub


Private Sub CheckBox3_Click()
Addition
End Sub


Sub Addition()
Dim c, ad$, i As Byte
c = Array(CheckBox1, CheckBox2, CheckBox3)
ad = "B2:R7"
Application.ScreenUpdating = False
Range(ad).Offset(1).ClearContents 'RAZ
For i = 0 To 2
If c(i) Then
Sheets(c(i).Caption).Range(ad).Copy
Range(ad).Offset(1).PasteSpecial xlPasteAll 'addition
End If
Next
Application.CutCopyMode = False
[A1].Select
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Superposition de tableau selon case à cocher

Bonjour,

un format de nombre personnalisé permet de saisir des nombres et d'afficher l'unité
(ex: on tape 1, ça affiche "1 L")
C'est plus simple pour faire des additions.

Puis ton code "Addition" adapté comme dans l’exemple joint :
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Superposition de tableau selon case à cocher

bonsoir,

merci pour votre rapidité, le fichier s'appelle addition car je partait d'une base mais je cherchais pas à additionner mais à bien superposer les tableau
la proposition de pierrejean correspond tout a fait à ce que je chercher
.
un grand merci à vous

cordialement
 
Vote positif 0 Vote négatif
Re : Superposition de tableau selon case à cocher

Bonsoir,

j'essaye d'adapter pour avoir une feuille spécifique où se trouve les case à cocher mais je bloque

Private Sub worksheet_activate()
Dim c, ad$, n As Byte
Dim cel As Range
For n =1 To 4
Set c = Sheet("case à cocher").OLEObjects("CheckBox" & n).Object erreur ici
ad = "B2:R7"
Application.ScreenUpdating = False
Range(ad).Offset(1).ClearContents 'RAZ

If c(n) Then
For Each cel In Sheets("case à cocher ")(c(n).Caption).Range(ad)
If cel.Value <> "" Then Sheets("recap").Range(cel.Address).Offset(1) = Sheets("Recap").Range(cel.Address).Offset(1) & cel.Value
Next
End If
Next
Application.CutCopyMode = False
[A1].Select
End Sub
 
Vote positif 0 Vote négatif
Re : Superposition de tableau selon case à cocher

merci pierrejean,

j'ai été loin du compte et je te remercie de m'avoir porte autant d'intérêt.
je n'aime pas passé par les modules(je débute) mais la solution me convient.

encore merci bonne soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
208
job75
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
284
mimednejma
M
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
559
Yvan1
Y
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
780
jurassic pork
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
273
piga25
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
591
Chaton77
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
855
bérylion
B
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
476
oguruma
  • Résolu(e)
XL 2021 (Résolu) Aide vrai/faux dans plusieurs colonnes de cases à cocher
2
Réponses
27
Affichages
1 K
Dranreb
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
718
Zonmé
Z
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
874
fanch55
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
488
clausen
C
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
T
  • Résolu(e)
XL 2019 case a cocher
Réponses
2
Affichages
933
toffduq
T
  • Question Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
737
Phil69970
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
588
jpb388
  • Question Question
XL 2016 [VBA] Boucle sur cases à cocher et N° de ligne est décalée de 2
Réponses
6
Affichages
709
vgendron
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
507
pompaero
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…