Discussion :

[micaieaie]

Bonjour, je suis vraiment néophyte dans le domaine du VBA et malgré des recherches, je n'y arrive pas.
j'ai un tableau "cotisation" de 350 lignes et je dois couper-coller, dans une feuille "rappel", les lignes dont la colonne "K" est inscrite "payé". J'arrive à le faire mais les "couper-coller" ne se mettent pas les uns derrière les autres sur la feuille "rappel". De même, la ligne tableau "cotisation" s'efface mais laisse des espaces entre les noms. Merci beaucoup de votre aide

[QuestVba]

Bonjour

Comment fais-tu ton copier-coller? Peux-tu mettre un exemple de ton départ de ton arrivée etde ce que tu souhaites?
Chez moi, je fais un copier-coller après un filtre automatique etje n'ai pasde saut.

Que veux-tu dire ?

ne se mettent pas les uns derrière les autres sur la feuille "rappel".

De même, la ligne tableau "cotisation" s'efface mais laisse des espaces entre les noms.

[micaieaie]

Hello,

Pour faciliter l'explication j'ai joints mon exemple.

Comme j'ai dit, suis néophyte et en tentant de comprendre je me suis mélangé les pinceaux et je n'arrive pas à m'en sortir.

[QuestVba]

Hello

Pour faciliter l'explication j'ai joints mon exemple.

Où? merci de refaire la procédure

[fring]

Bonjour,

Ceci devrait convenir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer
 
With Sheets("cotisation") '<-- nom de feuille "cotisation" à adapter
    For i = 2 To .Cells(Rows.Count, "K").End(xlUp).Row
        If .Cells(i, "K") = "payé" Then
            Rows(i).Copy Sheets("rappel").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'nom de feuille "rappel" à adapter
            Rows(i).Delete
            i = i - 1
        End If
    Next
End With
End Sub

[micaieaie]

Hello fring,

Effectivement cela marche, mais le problème c'est que la ligne va toujours se copier sur la ligne A2 et cela écrase les données précédentes. J'aimerai que cela vient se copier les uns après les autres.

Hello QuestVba,

Je n'arrive pas à joindre le fichier. Il m'inscrit toujours fichier pas valide. Mais tu peux voir que je vais peut-être trouver une solution. Merci quand même d'avoir répondu à un plus que débutant.

[mercatog]

Parce que probablement que ta colonne A est vide

Code de Fring modifié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim i As Long
 
With Worksheets("cotisation")                      '<-- nom de feuille "cotisation" à adapter
    For i = .Cells(.Rows.Count, "K").End(xlUp).Row To 2 Step -1
        If .Cells(i, "K") = "payé" Then
            .Rows(i).Copy
            Worksheets("rappel").Rows(2).Insert    'nom de feuille "rappel" à adapter
            Application.CutCopyMode = False
            .Rows(i).Delete
        End If
    Next
End With
End Sub

[micaieaie]

Superbe, une ou deux petites modifications de ma compétence et ça fonctionne. Une toute dernière chose et mon programme sera terminé. J'ai créé un bouton qui, lorsque je clique dessus écrit "payé" dans la case que j'ai selectionnée et la ligne entière devient en couleur. Afin que je n'aie pas trop de bouton, est-ce qu'il y a possibilité de tout inclure et surtout faire attention à quoi. J'ai essayé, cherché dans le forum, mais ça ne fonctionne pas du tout. Je débute vraiment.