Discussion :

[lecrick]

Bonjour à tous!

Je suis en train de créer une petite macro toute simple qui permet de copier une ligne de mon tableau excel sur une autre feuille en fonction de la valeur d'une cellule et supprime la dite ligne sur la feuille initiale.

Voici mon 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
17
18
19
20
21
22
23
24
25
 
Sub test()
 
Dim Nligne As Long
Dim Nligne2 As Long
 
Sheets("Liste VMs").Select
 
For Nligne = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(Nligne, 1).Value = "A désengager" Then
        Rows(Nligne).Select
        Selection.Cut
        Sheets("VMs désengagées").Select
 
        For Nligne2 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If IsEmpty(Cells(Nligne2, 1)) Then
                Rows(Nligne2).Select
                ActiveSheet.Paste
                Sheets("Liste VMs").Select
                Selection.Delete Shift:=xlUp
            End If
        Next Nligne2
    End If
Next Nligne
End Sub

Donc la macro fonctionne pour la première boucle, mon problème arrive à la deuxième :
elle effectue bien la copie de ma ligne sur la premiere ligne de la deuxième feuille mais ensuite il détecte que la première ligne n'est pas vide mais ne passe pas à la seconde et sort directement de la boucle.
Je ne comprends pas pourquoi.

Si quelqu'un peut m'éclairer?
Merci

[Menhir]

Ceci devrait faire ce que tu souhaites :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim Nligne As Long
    Sheets("Liste VMs").Select
    For Nligne = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(Nligne, 1).Value = "A désengager" Then Rows(Nligne).Cut Sheets("VMs désengagées").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    Next Nligne
End Sub

[patricktoulon]

re
bonjour
il y avait aussi les filtres c'est plus rapide et en un coup

Code :

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

1
2
3
4
5
6
7
8
Sub testA()
With Sheets("Liste VMs"): Set plage = .Range("A1").Resize(.Cells(Rows.Count, 1).End(xlUp).Row, .UsedRange.Columns.Count): End With
With plage
.AutoFilter Field:=1, Criteria1:="A désengager"
.Copy Destination:=Sheets("VMs désengagées").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.AutoFilter
End With
End Sub

[lecrick]

C'est exactement ce que je voulais! Merci!

Par contre j'ai rajouté une ligne pour supprimer la ligne qui vient d'être copiée car j'ai d'autres macros derrière et il ne faut pas que j'ai de lignes vides.
La macro fonctionne parfaitement quand je la lance manuellement mais quand je fais appel à cette macro à la fermeture du doc Excel elle ne marche qu'à moitié (certaines lignes ne sont pas copiée). Très bizarre

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim A As Variant
A = MsgBox("Attention !!!" & Chr(10) & Chr(10) & "Ne sauvegardez le document uniquement si il a été modifié (exécution d'une macro de plusieurs minutes)." & Chr(10) & Chr(10) & "Voulez-vous enregistrer le document?", vbYesNoCancel)

If A = vbNo Then
ThisWorkbook.Saved = True

ElseIf A = vbYes Then
test
ThisWorkbook.Save
'Application.Visible = False
'VisioBeforeClose
'Application.Quit

ElseIf A = vbCancel Then
Cancel = True
End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
Dim Nligne As Long
    Sheets("Liste VMs").Select
    For Nligne = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(Nligne, 1).Value = "A désengager" Then
            Rows(Nligne).Cut Sheets("VMs désengagées").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            Rows(Nligne).Delete
        End If
    Next Nligne
End Sub

[patricktoulon]

re
et bien soit

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    With Sheets("Liste VMs"): Set plage = .Range("A1").Resize(.Cells(Rows.Count, 1).End(xlUp).Row, .UsedRange.Columns.Count): End With
    With plage
        .AutoFilter Field:=1, Criteria1:="A désengager"
        .Copy Destination:=Sheets("VMs désengagées").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Set pok = .SpecialCells(xlVisible)
        .AutoFilter
        pok.EntireRow.Delete
    End With
End Sub

[lecrick]

patricktoulon,

Je ne comprends pas vraiment votre macro, elle me supprime mes en têtes et réduit à 0 la taille des lignes sans les copier dans ma deuxième feuille.
Je ne suis pas trop familier avec VBA du coup je ne connais pas "Autofilter" et "SpecialCells", mais je vais me renseigner ces fonctions ont l'air intéressantes.

Par contre j'ai compris pourquoi certaines lignes n'était pas copiées avec l'autre macro. Simplement qu'en supprimant les lignes juste après la copie, la ligne suivante prend sa place mais le compteur lui ne change pas donc il saute une ligne.

Du coup cette macro fonctionne parfaitement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
Dim Nligne As Long
    Sheets("Liste VMs").Select
    For Nligne = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(Nligne, 1).Value = "A désengager" Then
            Rows(Nligne).Cut Sheets("VMs désengagées").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            Rows(Nligne).Delete
            Nligne = Nligne - 1
        End If
    Next Nligne
End Sub

En tout cas merci pour vos réponses si rapide!

J'ai une deuxième question qui n'a rien à voir mais comme vous l'avez vu dans mon code j'utilise la fonction Workbook_BeforeClose car mes données Excel me servent aussi à dessiner un diagramme sous Visio et donc à chaque modif de l'Excel une macro mets à jour le Visio lorsque l'utilisateur ferme Excel.
Le problème c'est que malgré les commandes ".Visible = False" et ".ScreenUpdating = False" je ne peux utiliser mon PC pendant le déroulement de la macro : chaque fois que j'active une fenêtre elle se désactive à chaque instruction de la macro qui est censée tourner en arrière plan.
Le problème c'est que la macro est assez longue et le sera de plus en plus à mesure que le fichier Excel sera rempli.
Auriez-vous une solution?

Merci.

[eriiic]

Bonjour,

tu connais le pas à pas avec F8 ?
Tu devrais commencer par là car m'est avis que tu ne traites qu'une ligne sur 3...
Déjà .Cut suivi d'un .Delete ça fait 2 lignes de supprimées...
Ensuite quand on supprime des lignes il faut boucler du bas vers le haut avec Step -1
Sinon tu es sur le ligne 2, au next tu passes en ligne 3. Seulement si tu as supprimé la ligne 2, elle contient maintenant l'ancienne ligne 3 qui est remontée, et qui n'est pas testée.
eric