Discussion :

[Daveleking]

Bonjour à tous,

Je : ça fait des plombes que je travaille sur un document qui est censé faciliter la vie de membres du personnel, mais ça ne facilite pas la mienne.

En annexe, vous trouverez un fichier sur lequel je travaille. Seules les lignes 4 à 16 sont utilisées, doivent être remplies, encodées, copiées,...

Je souhaite, en cliquant sur le bouton à droite, archiver dans l'onglet "archives" les lignes (de 4 à 16) pour lesquelles il y a une date de fin de prescription. CA, ça va.

Mais une fois fait, je souhaite que la macro puisse également supprimer de l'onglet "prescriptions", les prescriptions terminées. Ca, j'ai enfin réussi à le faire en filtrant sur la colonne "M". Donc, si un "1" se trouve dans cette colonne, non seulement la ligne est copiée dans les archives, mais en plus, elle se supprime (clearcontents) de la prescription en cours.

Tout ça fonctionne, sauf si je n'ai aucune ligne qui contient de "1" en M. Dans ce cas en effet, la macro me supprime le contenu des titres. Et là, j'ai beau chercher, je vois qu'on en parle sur le forum, mais je n'arrive pas à transposer à ma macro les solutions proposées, d'autant que vous verrez que je suis très novice en VBA.

L'un d'entre vous aurait-il une aide à me proposer?

Je vous remercie déjà.

[Daveleking]

J'ai réussi à avancer en utilisant un GoTo, mais il semble d'après les forums, que ce soit vraiment la dernière chose à faire.

Je relance donc : toute aide sera la bienvenue et fortement remerciée !!!

Merci d'avance,

[patricktoulon]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Bouton8_Clic()
    For Each cel In Sheets("Prescriptions").Range("m4:m16")
        derlig = Sheets("Historique de prescription").Range("a" & Rows.Count).End(xlUp).Row
        If cel = "1" Then
            Worksheets("Prescriptions").Range("a" & cel.Row & ":0" & cel.Row).Copy
            Worksheets("Historique de prescription").Range("a" & derlig & ":o" & derlig).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Worksheets("Prescriptions").Range("a" & cel.Row & ":0" & cel.Row).ClearContents
        End If
    Next
End Sub

Au plaisir