Discussion :

[chatmallow18]

Bonjour,

J'ai programmé des macros pour me permettre de sélectionner des lignes d'une feuille Excel dans une autre lorsque je clique sur une case à cocher. J'aurais aimé savoir s'il était possible que ces lignes soient supprimées lorsque je décoche la case (en cas de mauvaise manip de l'utilisateur par exemple, qui ne voulait finalement pas cliquer sur la case) ?

Merci !

[DaddyTousucre]

Salut,
Peux-tu nous donner plus de détail ? Ta coche est dans un Userform ? Quel est ton code ?
A priori tu dois y arriver en mettant une condition sur la valeur de ta case à cocher... Difficile de t'aider sans plus de détail...

[chatmallow18]

J'ai mis un "contrôle de formulaire" pour la case à cocher, et j'ai affecté une macro à chaque case. Voici le code que j'ai utilisé, il est directement relié à la case.

Sub Case1()

Dim sourceSheet As Worksheet
Dim destSheet As Worksheet
Set sourceSheet = ThisWorkbook.Sheets("Feuille2")
Set destSheet = ThisWorkbook.Sheets("Feuille1")

Dim startRow As Integer
Dim endRow As Integer
Dim destRow As Integer
startRow = 7
endRow = 10
sourceSheet.Rows(startRow & ":" & endRow).Copy
destRow = destSheet.UsedRange.Rows.Count + 1
destSheet.Rows(destRow).PasteSpecial xlPasteAll


End Sub

[DaddyTousucre]

Essaie peut-être de mettre une condition :
if Case1.value = True Then
Ton code qui copie tes lignes dans la destination
else
if Trouve la condition qui montre si les lignes ont déjà été copiées then
code qui supprime les lignes copiées
end if
end if

Désolé difficile d'être plus explicite sans voir ton fichier et son usage...