Discussion :

[ouska36]

Bonjour à tous,

J'ai parcouru le forum à la recherche de solution pour copier/coller une ligne de l'onglet "Dashboard" vers l'onglet "Archives" lorsque la valeur de la colonne "AD" est égale à "COMPLETE" (Excel 2016). La macro fini par supprimer la ligne archivée de l'onglet "Dashboard".

La solution que j'ai trouvé (merci aux contributeurs) fait le boulot jusqu'au collage...la macro me colle la ligne tout en haut et écrase celle archivée auparavant...

Ce que je souhaite avoir, c'est un collage qui rentre dans le tableau "Archives" à partir de la ligne n°7 et qui n'écrase pas les lignes déjà archivées (possibilité d'archiver plusieurs lignes en même temps): Soit en ajoutant les lignes l'une en dessous de l'autre ou si ce n'est pas compliqué, insérer les nouvelles lignes archivées tout en haut du tableau et décaler les anciennes vers le bas.

Pouvez-vous m'aider SVP à corriger "ma" macro (je ne suis absolument pas un initié, j'apprends sur le tas):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Groupe13_Cliquer()
 
A = Worksheets("Dashboard").Cells(Rows.Count, 2).End(xlUp).Row
For i = A To 2 Step -1
    If Worksheets("Dashboard").Cells(i, 30).Value = "COMPLETE" Then
        Worksheets("Dashboard").Rows(i).copy Worksheets("Archives").Cells(Rows.Count, 1).End(xlUp)
        Worksheets("Dashboard").Rows(i).EntireRow.Delete
    End If
Next
 
End Sub

Je vous remercie de votre aide.

[Pierre Fauconnier]

Salut.

End(xlUp) remonte sur la dernière ligne occupée Tu écrases donc forcément la dernière ligne qui existe déjà dans Archives.

Utilise plutôt ceci

Code :

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

Worksheets("Dashboard").Rows(i).copy Worksheets("Archives").Cells(Rows.Count, 1).End(xlUp)(2)

le (2) en fin de ligne fait que tu pointeras sur la ligne qui suit la dernière utilisée.



PS: Pour résoudre ce genre de problème, tu aurais pu passer par une variable comme tu l'as fait avec la variable A. Ainsi, tu aurais vu que cette variable pointait vers la dernière ligne utilisée. Ca fait deux lignes de code en plus (la ligne de déclaration et la ligne d'affectation), mais ça permet un code plus clair et une détection des problèmes plus aisée et rapide.

[ouska36]

Salut Pierre,

Merci beaucoup pour ta réponse qui marche parfaitement.
Ma compréhension du code est très limité pour que je puisse utiliser des variables. J'adapte seulement du code que je trouve

Que dois-je faire pour coller la ligne à partir de la ligne n°7 de l'onglet (l’entête du tableau est au niveau de la ligne "6") ?

[Pierre Fauconnier]

[...]

Que dois-je faire pour coller la ligne à partir de la ligne n°7 de l'onglet (l’entête du tableau est au niveau de la ligne "6") ?

Normalement rien. Si ton entête est en ligne 6 et que tu n'as aucune ligne en dessous, la ligne de code que je t'ai adaptée pointera forcément vers la ligne 7. Lorsque celle-ci sera remplie, la même ligne de code pointera vers la ligne 8, etc.

[ouska36]

Normalement rien. Si ton entête est en ligne 6 et que tu n'as aucune ligne en dessous, la ligne de code que je t'ai adaptée pointera forcément vers la ligne 7. Lorsque celle-ci sera remplie, la même ligne de code pointera vers la ligne 8, etc.

Bizarrement cela ne marche plus et la ligne est copiée tout en haut de l'onglet archive.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Groupe13_Cliquer()
 
A = Worksheets("Dashboard").Cells(Rows.Count, 2).End(xlUp).Row
For i = A To 2 Step -1
    If Worksheets("Dashboard").Cells(i, 30).Value = "COMPLETE" Then
        Worksheets("Dashboard").Rows(i).Copy Worksheets("Archives").Cells(Rows.Count, 1).End(xlUp)(2)
        Worksheets("Dashboard").Rows(i).EntireRow.Delete
    End If
Next
 
End Sub

[Pierre Fauconnier]

Il faut que tu aies un libellé en A6. Je suppose que le problème est là.

Eventuellement, une copie écran significative de ta feuille d'archive aiderait.

C'est pourquoi je te propose de passer par une variable qui contiendra le numéro de ligne à utiliser. Tu peux alors démarrer ta macro avec F8 et suivre son déroulement pas-à-pas. Lorsque la ligne de copie sera en jaune, tu pourras passer avec la souris sur la variable ArchiveRow et l'infobulle te donnera sa valeur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Dim DashRow As Long
  Dim ArchiveRow As Long
  Dim i As Long
 
  DashRow = Worksheets("Dashboard").Cells(Rows.Count, 2).End(xlUp).Row
  For i = DashRow To 2 Step -1
      If Worksheets("Dashboard").Cells(i, 30).Value = "COMPLETE" Then
          ArchiveRow = Worksheets("Archives").Cells(Rows.Count, 1).End(xlUp)(2) ' Permet de vérifier le numéro de ligne cible
          Worksheets("Dashboard").Rows(i).Copy Worksheets("Archives").Cells("a" & ArchiveRow)
          Worksheets("Dashboard").Rows(i).EntireRow.Delete
      End If
  Next

[ouska36]

Eventuellement, une copie écran significative de ta feuille d'archive aiderait.

J'ai ajouté une capture de l'onglet principal et de l'archive:

[Pierre Fauconnier]

Je disais donc

Il faut que tu aies un libellé en A6. Je suppose que le problème est là.[...]

Puisque tes libellés commencent en B et pas en A, tu dois utiliser ArchiveRow = Worksheets("Archives").Cells(Rows.Count, 2).End(xlUp)(2) car cet indice représente la colonne qui sert à déterminer la première ligne non utilisée en commençant par le bas.

Essaie de bien comprendre le code que tu utilises, de manière à gagner du temps en t'aidant toi-même lorsqu'un problème survient.

[ouska36]

Bonjour Pierre,

Merci pour ta correction du code.
Là il m'affiche une erreur à la ligne

Code :

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

1
2
 
Worksheets("Dashboard").Rows(i).Copy Worksheets("Archives").Cells("a" & ArchiveRow)

avec comme message: Erreur d'execution '5' Argument ou appel de procédure incorrect.

[Pierre Fauconnier]

Donne tout le code que tu utilises, car le problème est probablement posé avant la ligne de code que tu illustres.

[ouska36]

Voici le code

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
Sub Groupe13_Cliquer()
 
Dim DashRow As Long
  Dim ArchiveRow As Long
  Dim i As Long
 
  DashRow = Worksheets("Dashboard").Cells(Rows.Count, 2).End(xlUp).Row
  For i = DashRow To 2 Step -1
      If Worksheets("Dashboard").Cells(i, 30).Value = "COMPLETE" Then
          ArchiveRow = Worksheets("Archives").Cells(Rows.Count, 2).End(xlUp)(2) ' Permet de vérifier le numéro de ligne cible
          Worksheets("Dashboard").Rows(i).Copy Worksheets("Archives").Cells("a" & ArchiveRow)
          Worksheets("Dashboard").Rows(i).EntireRow.Delete
      End If
  Next
 
End Sub