Répétition formule décalée en fonction de la case cochée

Hello,

Peux tu fournir un exemple de fichier vide afin de voir la structure et position de tes cases à cocher / tableaux

Bonjour à tous les deux

Dans la mesure où tes plages ont la même taille et calées sur la colonne C

'procedure paramétrée par la première ligne à copier >  li
Public Sub remplissage(li)
With Worksheets("BP")
  .Range("C" & li & ":H" & li + 2).Copy .Range("C" & li + 10)
  .Range("C" & li + 5 & ":H" & li + 7).Copy .Range("C" & li + 15)
  .Range("C" & li & ":H" & li + 2).Copy .Range("C" & li + 20)
  .Range("C" & li + 5 & ":H" & li + 7).Copy .Range("C" & li + 25)
End With
End Sub

puis pour tes cases à cocher

Private Sub CheckBox1_Click()
Call remplissage(4)
' pour décocher
CheckBox1.Value = False
End Sub

Private Sub CheckBox2_Click()
Call remplissage(57)
' pour décocher
CheckBox2.Value = False
End Sub

https://www.cjoint.com/c/LGpoVQN1FxB

Cdlmnt

bonjour,

Ne serait-il pas préférable de n'avoir qu'une seule macro, et que la macro détecte sur quel tableau elle doit travailler?
Cela peut se faire par exemple, si la macro est démarrée via une combinaison de touches, et qu'elle détermine le tableau à partir de la cellule sélectionnée.
Ou bien si la macro est démarrée en cliquant sur une case et que la position de celle case permette de décider ce qu'il faut faire.

Salut yg_be

Ne serait-il pas préférable de n'avoir qu'une seule macro, et que la macro détecte sur quel tableau elle doit travailler?

C'est une bonne idée, comme Ananas a des cases à cocher, j'ai .....

Cdlmnt

c'est ce qu j'ai cru comprendre

Plus bas, j'ai un tableau avec une structure identique à associer avec une autre case à cocher, pareil

Vu la structure, on peut aussi lancer toutes les copies en une seule commande

Voilà ce qui est possible avec une seul macro pour gèrer l'ensemble des CheckBox sur la feuille

https://www.cjoint.com/c/LGrkystHAlU

J'ai repris le code de ccm81 pour le copier/coller des lignes

En reprenant la suggestion de yg_be, on sélectionne la première cellule du tableau, puis Ctrl+k pour lancer la copie

https://www.cjoint.com/c/LGrmSDNOdOB

Cdlmnt