Discussion :

[TitiPointCom67]

Bonsoir, j'ai un problème de déplacement de ligne et je n'arrive pas à trouver l'erreur. si vous pouvez m'aider, merci

Dans la macro suivante, je vais chercher une ligne de donnés dans une feuille pour la coller dans une autre.
Tout se passe bien, jusqu'au moment ou il s'agit de coller les donnés coupées. rien ne se colle alors que la variable Objet2 contient bien les données à coller et que la ligne où elle doivent être collées est bien sélectionnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub DEPLACER_Click()
Dim R
Dim Objet1
Dim Objet2
Dim Ligne As Long
On Error Resume Next
Ligne = Me.ComboBox4.ListIndex + 2
R = MsgBox(" Confirmez-vous le déplacement dans [ANNULATIONS_" & ChoixAnnee & "] ? ", vbYesNo + vbInformation, "Gestion INSCRIPTIONS")
If R <> 6 Then Exit Sub 'si OK, efface la ligne de données dans la base de données
Sheets("INSCRIPTIONS_" & ChoixAnnee).Select
Rows(Ligne).Select
Objet1 = Selection
Objet2 = Objet1
Selection.Cut
Worksheets("ANNULATIONS_" & ChoixAnnee).Select
Rows(Worksheets("ANNULATIONS_" & ChoixAnnee).Range("A1000").End(xlUp).Row + 1).Select
Objet2.Paste
Range("A2:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Worksheets("ANNULATIONS_" & ChoixAnnee).Visible = False
Sheets("INSCRIPTIONS_" & ChoixAnnee).Select
Range("A2:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("TABLEAU_DE_BORD").Select
End Sub

[EricDgn]

Bonjour,

A tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub DEPLACER_Click()
    Dim R
    Dim Ligne As Long
    Ligne = Me.ComboBox4.ListIndex + 2
    R = MsgBox(" Confirmez-vous le déplacement dans [ANNULATIONS_" & ChoixAnnee & "] ? ", _
                vbYesNo + vbInformation, "Gestion INSCRIPTIONS")
    If R <> 6 Then Exit Sub                         'si OK, efface la ligne de données dans la base de données
    Sheets("INSCRIPTIONS_" & ChoixAnnee).Rows(CStr(Ligne)).Select
    Selection.Copy Worksheets("ANNULATIONS_" & ChoixAnnee).Range("A1000").End(xlUp).Offset(1, 0)
    Selection.Delete Shift:=xlUp
    '...

A noter que l'instruction "On Error Resume Next" empêche de voir où le code plante! Cette instruction n'est à utiliser que quand on sait exactement pourquoi il y aura une erreur à un certain endroit du code et que l'on sait très exactement comment la gérer.

Cordialement.

[TitiPointCom67]

Bonjour, et merci de l'intérêt porté à mon problème.

Ca ne fonctionne pas. En fait cela a eu pour effet de copier une des cellules de mon TABLEAU_DE_BORD dans la feuille ANNULATIONS_2022 et de supprimer tout le reste de mon TABLEAU_DE_BORD.
Je précise que j'utilise la fenêtre des variables locales et le pas à pas pour déterminer d'où vient le problème, c'est comme ça que j'ai vu que les données figuraient bien dans la variable et que la ligne de destination était bien sélectionnée.

[EricDgn]

Bonjour,

Bizarre, la version simple ci-attachée fonctionne parfaitement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Deplacer()
    Dim ligne As Long
    ligne = ActiveCell.Row
    ActiveSheet.Rows(ligne).Select
    Selection.Copy Worksheets(2).Range("A1000").End(xlUp).Offset(1, 0)
    Selection.Delete Shift:=xlUp
End Sub

Cordialement.

[TitiPointCom67]

Bonjour
Oui, maintenant ça marche. Je pense que j'avais mal adapté la première solution.
En tous cas, là c'est impeccable.
Merci beaucoup.
Bonne journée