Bonjour à tous, je voudrai réaliser un outil de gestion via excel, jusque la pour le tableau pas de problème mais pour la macro aïe.... Je vous le donne en français si quelqu'un pouvais me le traduire en VBA parceque la je rame et c'est assez urgent. j'ai deux feuilles l'une qui sera rempli par les personnes concernées et l'autre pour archiver qui sera en lecture seule sauf pour la macro bien sur. Ce que je souhaiterai c'est une macro qui quand elle apercois dans la feuille 1 le mot "achevée" dans la colonne M mais sur n'importe quelle ligne copie la ligne dans l'autre feuille sur la première ligne vide disponible, supprime la ligne dans la feuille numéro 1, puis inscrit la date de modification dans la colonne N de la 2ème feuille il y'a une autre condition aussi les colonnes de la feuille 2 ne coresponde pas exactement à la feuille 1 c'est a dire il faut qu'elle copie: colonne I vers G; J vers H; K vers I; L vers J; N vers K; O vers L; P vers M puis ajoute la date de modification dans la colonne N. De A à F les deux feuilles ont les même colonnes. Voilà j'espère que ce sera assez compréhensible pour vous je débute dans excel et j'ai beau regarder sur les forum je n'arrive pas à trouver la solution peux être aussi ce n'est pas possible mais je ne suis pas convaincu. Si c'est le cas merci de m'avertir. Merci d'avance pour votre aide elle m'a souvent été précieuse.

bonjour Tu as demandé une macro, alors la voici, il faut la placer dans ta feuille 1. Si tu as changé le nom de ta "feuil2" il faut la changer dans la macro aussi Option Explicit Private Sub Worksheet_Change(ByVal sel As Range) If Cells(sel.Row, 13).Value = "achevée" Then Dim lig As Long With Sheets("feuil2") ' nom à changer éventuellement lig = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1 .Cells(lig, 1).Resize(1, 6).Value = Cells(sel.Row, 1).Resize(1, 6).Value .Cells(lig, 7).Resize(1, 4).Value = Cells(sel.Row, 9).Resize(1, 4).Value .Cells(lig, 11).Resize(1, 3).Value = Cells(sel.Row, 14).Resize(1, 3).Value .Cells(lig, 14).Resize(1, 3).Value = Date Cells(sel.Row, 1).EntireRow.Delete End With End If End Sub Il y a copie des valeurs, sans les formules, sur les bonnes colonnes de la feuille 2, comme indiqué sur la demande,en rassemblant par "resize" les blocs de colonnes contiguës. Cette macro se déclenche chaque fois qu'il y a une saisie clavier et effectue l'archivage dès que la colonne M de la ligne mise à jour est correctement valorisée même si c'est le résultat d'une formule. Si tu as des lignes déjà valorisées il suffit de faire semblant d'une modification (F2 puis entrée) sur n'importe qu'elle colonne de la ligne à archiver. Si tu veux interdire les modifications sur la feuille 2, il faut mettre un mot de passe et dans ce cas il sera nécessaire de rajouter sa gestion dans la macro et comme n'importe qui de compétent pourra le trouver et l'utiliser la protection est assez illusoire. Une gestion des suivis de modifications par chaque intervenant me paraît plus judicieux mais c'est toi qui décide.

Macro excel

Réponse 21 / 23

seb76250 Messages postés 42 Statut Membre

sinon je n'arrive pas à le faire fonctionner avec activate

Réponse 22 / 23

seb76250 Messages postés 42 Statut Membre

c'est bon les gars je suis parvenu à mes fin et ca fonctionne nikel ca donne ca:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 17).Value = "ok" Then
Dim lig As Long
Sheets("archive").Select
ActiveSheet.Unprotect
With Sheets("archive")
lig = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(lig, 1).Resize(1, 6).Value = Cells(Target.Row, 1).Resize(1, 6).Value
.Cells(lig, 7).Resize(1, 4).Value = Cells(Target.Row, 9).Resize(1, 4).Value
.Cells(lig, 11).Resize(1, 3).Value = Cells(Target.Row, 14).Resize(1, 3).Value
.Cells(lig, 14).Resize(1, 1).Value = Date
Cells(Target.Row, 1).EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
ActiveWorkbook.Save
End With
End If
End Sub

et une macro pour le trie de la feuille archive par numéro avec un raccourci dans la barre d'outil:

Option Explicit

Sub trier_par_numéro_de_commande__Ctrl_t()
'
' trier_par_numéro_de_commande__Ctrl_t Macro
' Macro enregistrée le 18/10/2007 par a672700
'
' Touche de raccourci du clavier: Ctrl+t
'
ActiveSheet.Unprotect
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
End Sub

Merci beaucoup pour votre aide à charge de revanche.
A+

Réponse 23 / 23

eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281

Bonjour,

Désolé de n'avoir pu te répondre mais je vois que tu y es arrivé tout seul. C'est bien.
En fait le .unprotect et .protect ne doivent pas etre necessaires pour toi.
J'avais été dérangé en te repondant et j'ai du faire une compil de 2 discussions...
N'oublie pas de mettre résolu stp
eric

Macro excel - Page 2

Discussions similaires

Newsletters