Discussion :

[piperboxer]

Bonjour,

Tout d'abord, je suis complètement débutante dans la création de marco et donc voilà pourquoi je suis inscirte sur le forum.

Voilà mon problème: Je voudrais créer une macro qui permet de déplacer toutes lignes dont une cellule contient recevra le chiffre "4" et ce, dans une autre sheet ou un autre fichier excel.

Quelqu'un peut m'aider?

Merci!!!!!

[Daniel.C]

Bonsoir,

La macro copie les lignes contenant "4" de la feuille 4 à la feuille 5 et supprime la ligne originale.

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 CopieDeFeuil4VersFeuil5()
    Dim I As Long, Plage As Range, Ligne As Long
    With Sheets("Feuil4")
        For I = 1 To .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
            If Application.CountIf(Rows(I), 4) > 0 Then
                Ligne = Ligne + 1
                Rows(I).Copy Sheets("Feuil5").Cells(Ligne, 1)
            End If
        Next I
        For I = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row To 1 Step -1
            If Application.CountIf(Rows(I), 4) > 0 Then
                Rows(I).Delete
            End If
        Next I
    End With
End Sub

[piperboxer]

Bonjour Daniel,

Je viens d'essayer et ca marche mais je voudrais que la Feuil5 ne soit pas écrasée à chaque fois que je fais un run de la marcro...En fait, je veux garder toutes les données portants la mention "4" dans la feuille sans deleter quoi que ce soit.
Vous savez m'aidez?

Encore un grand merci pour votre aide.

[vinc_bilb]

Bonjour,

Il suffit d'enlever cette partie du code fournie par Daniel

Code :

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

1
2
3
4
5
For I = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row To 1 Step -1
            If Application.CountIf(Rows(I), 4) > 0 Then
                Rows(I).Delete
            End If
        Next I

Je vous suggère dans ce type de pb de faire tourner la macro en mode débug pas à pas (avec point d'arrêt éventuel) et de regarder où se situe le code qui vous pose des soucis

[Daniel.C]

Bonjour,

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
Sub CopieDeFeuil4VersFeuil5()
    Dim I As Long, Plage As Range, Ligne As Long
    On Error Resume Next
    Ligne = Sheets("Feuil5").Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
    If Err.Number > 0 Then Ligne = 0
    On Error GoTo 0
    With Sheets("Feuil4")
        For I = 1 To .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
            If Application.CountIf(.Rows(I), 4) > 0 Then
                Ligne = Ligne + 1
                .Rows(I).Copy Sheets("Feuil5").Cells(Ligne, 1)
            End If
        Next I
    End With
End Sub

Bonjour Vincent,

En fait il y avait deux corrections à faire en plus dans le code : remplacer "Rows" par ".Rows".

[vinc_bilb]

Bonjour Daniel,

Merci
En fait, je n'avais pas regardé le code dans le détail ni testé, c'était plus pour inciter à

Je vous suggère dans ce type de pb de faire tourner la macro en mode débug pas à pas (avec point d'arrêt éventuel) et de regarder où se situe le code qui vous pose des soucis

Je pense que la base du code que vous aviez fourni était suffisante pour que l'on puisse apprendre avec ....

[Daniel.C]

Bonjour,

Oui, mais ça m'agace toujours que je fasse ce genre d'erreur.