couper coller VBA

Version imprimable

03/12/2012, 21h06
micaieaie

couper coller VBA

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
04/12/2012, 10h39
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 ?

Citation:

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

Citation:

De même, la ligne tableau "cotisation" s'efface mais laisse des espaces entre les noms.
04/12/2012, 11h19
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.
04/12/2012, 11h26
QuestVba

Hello

Citation:

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

Où? merci de refaire la procédure

Bonjour,

Ceci devrait convenir

Code:

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

04/12/2012, 20h01
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.

Parce que probablement que ta colonne A est vide

Code de Fring modifié

Code:

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

04/12/2012, 21h12
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.