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