Programmation macro

Version imprimable

02/10/2014, 10h39
POPPY74

1 pièce(s) jointe(s)

Programmation macro

Bonjour à toutes et à tous

J'espère que des esprits lumineux vont pouvoir m'aider.
J'ai un souci sur un fichier Excel utilisé pour suivre des avancements de dossiers administratifs. Je vais donc tâcher d'être la plus claire possible dans mes explications et surtout je mets en PJ le fichier en question.
Je précise que je ne suis pas une experte en macro du tout. :(

Un 1er onglet sert de Base de données : chaque dossier/affaire y est saisi avec ses différents éléments d'informations.
Une 1ère macro permet, via un double-clic de souris, de cocher les cases des colonnes A et B.
L'idée est, par ce système de coche, d'identifier les affaires qui sont à archiver et celles qui sont à inscrire au prochain Ordre du Jour pour le Comité de Direction.

Un 2nd feuillet est destiné à recueillir les dossiers archivés et un 3ème sert d'Ordre du Jour pour le Comité de Direction.

L'objectif est d'avoir :
- 1 bouton sur le feuillet SUIVI AFFAIRES qui coupera les lignes de la Base de données qui sont cochées "à archiver" et de les insérer les unes après les autres dans l'onglet "Archives".
- 1 autre bouton tojours sur le feuillet SUIVI AFFAIRES qui effacera les lignes de l'onglet ODJ pour ensuite y recopier les colonnes C à G de chaque ligne cochée "ODJ" vers l'onglet ODJ. (actualisation des affaires à présenter)

La 1ère macro fonctionne (les X pour cocher les cases). Par contre j'ai testé la 2nde pour copier les lignes sélectionnées vers l'ODJ et là ça coince. Je crois bien que j'ai même tout "défoncé" le code que j'avais repiqué sur un autre fichier. :calim2:

Je suis donc perdue de chez perdue. Y aurait-il une âme bienveillante pour me guider/m'aider ?
si je n'ai pas été assez claire dans mes explications, n'hésitez pas à me questionner.
merci par avance pour votre aide.

POPPY74
02/10/2014, 10h49
Nico Chg

Bonjour,

Comme pas mal de personne ici, je n'ouvre pas les PJ, est ce que tu peux mettre le code que tu as utilisé ? ainsi qu'une image qui récapitule ce que tu veux faire ?

euh... j'arive pas à insérer un "imprime écran", est-ce qu'il y a une méthode particulière ??
sinon voici déjà le 1er code : (celui-ci fonctionne)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
    Public Flag As Boolean '(dans Module si autres macros)
 
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Flag Then Exit Sub
        If Not Application.Intersect(Target, Range("a4:b25" & [a65536].End(xlUp).Row)) Is Nothing Then
            Flag = True
            If Target = "X" Or Target = "x" Then
                Target = ""
            Else
                Target = "X"
            End If
            Flag = False
            Cancel = True
        End If
    End Sub

le second est sur un module et non la feuille elle-même :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub extract()
Dim DerLig As Long
With Sheets("ODJ")
    DerLig = [A65000].End(xlUp).Row
    Range("B5:G7500" & DerLig).Name = "base"
    [M5] = [B5]: [M6] = "Co Dir"
    Range("B5:G7500").Copy .[B5]
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("M5:M7501"), CopyToRange:=.Range("B5:I7500"), Unique:=False
    Range("M5:M7501").Clear
End With
End Sub

Bonjour,

Accroche cette macro à un bouton :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub extract()
Dim DerLig As Long, C As Range
With Sheets("ODJ")
    .Range("B5", .Cells(.Rows.Count, 2).End(xlUp)).EntireRow.ClearContents
    If Application.CountIf([B:B], "X") > 0 Then
        DerLig = [B65000].End(xlUp).Row
        For Each C In Range([B3], Cells(Rows.Count, 2).End(xlUp))
            If C.Value = "X" Then
                DerLig = DerLig + 1
                .Cells(DerLig, 2).Resize(, 5).Value = C.Offset(, 1).Resize(, 5).Value
            End If
        Next C
    End If
End With
End Sub

02/10/2014, 11h31
POPPY74

@ Daniel :
alors j'ai supprimé mes anciens boutons par mesure de précaution, remis 2 nouveaux, accroché cette macro à l'un des 2 .... et rien ne se passe :(
est-ce que j'ai loupé une étape ?
02/10/2014, 11h39
Daniel.C

1 pièce(s) jointe(s)

Il y avait une erreur, mais ça n'empêchait pas la recopie. Je mets le classeur après exécution de la macro en PJ :

Pièce jointe 157778
02/10/2014, 11h40
Nico Chg

tout dépend de la façon dont tu gère les "coche"

Dans le code de Daniel, il récupère les X dans la colonne B. Si la valeurs est différente, par exemple TRUE ou quelque chose du genre, le code ne vas pas détecter de X, et il ne va rien se passer.

Il faut que tu change cette ligne là par une condition respectant ta façon de procéder.

Code:

If C.Value = "X" Then

Sinon dans cette ligne là :

Code:

DerLig = [B65000].End(xlUp).Row

La limitation de ligne de 65000 (et quelques) correspond à Excel 2003, si tu as plus de donnée, tu peux augmenter.
02/10/2014, 11h51
Daniel.C

Bonjour Nico Chg,

En fait, il n'y a pas de case à cocher, il y a un "X" ou rien.

Citation:

Code:

DerLig = [B65000].End(xlUp).Row

Là, c'était une erreur, j'ai rectifié :

Code:

DerLig = 4
02/10/2014, 11h52
Nico Chg

ça marche, je n'ai pas ouvert le fichier, donc ce n'était que supposition ;)
02/10/2014, 12h01
Daniel.C

Oui, c'est plus dur quand on a pas le fichier sous les yeux.
02/10/2014, 12h06
Zirak

1 pièce(s) jointe(s)

Bonjour,

Erf que de monde qui intervient pendant qu'on test dans son coin :mrgreen:

Un essai (malgré tout) en pièce jointe.
02/10/2014, 12h13
Daniel.C

Citation:

Erf que de monde qui intervient pendant qu'on test dans son coin

C'est le propre d'un forum, non ?:D

10 qui bavardent pour un qui travaille, c'est le bon ratio...
03/10/2014, 10h28
POPPY74

merci à tous pour vos messages de réponse. C'est vraiment cool.

J'ai donc testé le fichier de Ziriak et de celui de Daniel. On est proche du résultat recherché. :D
C'est incroyable ce que Excel peut faire quand même !

@ Ziriak : Pour le fichier donc, l'inscription à l'ODJ fonctionne bien. Seulement il faudrait en fait que cela recopie les lignes et ne supprime pas.
C'est uniquement le bouton Archivage qui doit les copier dans l'onglet Archives et ensuite supprimer les lignes du tableau.
Par contre, chez moi, le bouton d'archivage ne fonctionne pas du tout.

@ Daniel : c'est pile ce que je cherche pour l'ODJ. En plus, il se réactualise bien à chaque fois c'est top ! merci bcp. :lol:
C'est trop cool.

Et sinon est-ce ce que j'abuse si je vous demande de l'aide pour l'archivage ? Est-ce qu'il n'y a pas un risque que les macros se "téléscopent" s'il y en a trop sur un seul document ?
03/10/2014, 10h50
Daniel.C

Citation:

Et sinon est-ce ce que j'abuse si je vous demande de l'aide pour l'archivage ? Est-ce qu'il n'y a pas un risque que les macros se "téléscopent" s'il y en a trop sur un seul document ?

Les macros se télescoperont si tu archives avant de recopier dans ODJ. Si tu fais les deux opérations conjointement, regroupe les deux macros en une seule. Sinon, tu peux effacer le "X" de la colonne B une fois que la recopie ODJ est faite et n'archiver que les lignes n'ayant pas ce "X".
03/10/2014, 11h08
POPPY74

De ce côté là, pas de problème car cela sera l'un ou l'autre. Les 2 opérations ne se feront jamais en simultanée car l'archivage aura lieu uniquement si le dossier est clos. Il n'aura donc plus lieu d'être inscrit à l'ODJ.

Là je ne maîtrise que peu le sujet donc je pose peut-être une question bête mais vu qu'il y a 2 boutons, est-ce qu'il ne serait pas plus "sûr" de prévoir 2 macros ?
03/10/2014, 11h11
Nico Chg

Tout dépend de ce que tu veux faire, mais si une grosse partie du code est similaire, il est plus "propre" de ne faire qu'une seule macro, ou plutôt une seule fonction.

Et puis en programmation tout est "sûr", vu que ton ordinateur feras exactement ce que tu lui demande, à la lettre près.
03/10/2014, 11h30
Zirak

1 pièce(s) jointe(s)

Je reprendrais mon fichier cet après-midi (pas le temps avant) pour vérifier mais l'archivage fonctionnait chez moi.

Après oui, on peut réunir les deux dans une seule macro avec un seul bouton, à la limite pour éviter le télescopage, on peut même aider un peu via ta procédure double-click pour mettre tes "X", par exemple, si on détecte que tu click sur la colonne archivage, cela enlève le "X" de la colonne ODJ et inversement, comme ça, tu ne peux pas avoir de "X" dans les deux en même temps, et quand la boucle passe, c'est forcément, l'un ou l'autre des traitements.

A re-tester, pour l'instant, j'ai laissé sur 2 boutons séparés, par contre l'archivage fonctionnait bien chez moi (par contre j'ai effectivement repris la procédure sur le double-click qui ne démarrait que ligne 4 et pas ligne 3).

Et j'ai modifié la procédure ODJ pour ne plus effacer la ligne comme demandé, et une fois la ligne mise dans l'ODJ, je supprime le "X" de la colonne B dans l'onglet SUIVI AFFAIRES.

Pour l'archivage, je vérifie qu'il n'y a bien qu'un "X" dans la colonne archivage et que la colonne ODJ n'est pas remplie.

Pièce jointe 157888
15/10/2014, 09h54
POPPY74

Bonjour

Tout d'abord désolée de ne pas avoir répondu plus tôt : les premiers frimas d'automne ont déjà eu raison de moi. :weird:
J'ai regardé la proposition faite par Ziriak. Cela me semble être parfait.
Je vais le tester sur une petite période pour voir si à l'utilisation je vois des peites choses qui pourraient coincer mais cela me semble d'ores-et-déjà être au top. :D
Merci beaucoup Ziriak et aussi les autres contributeurs.
Je vous tiens au courant d'ici peu pour vous confirmer si c'est tout bon.

bonne journée à vous tous. :P
15/10/2014, 17h03
Zirak

Bonjour,

pas de soucis pour le retour tardif, c'est mieux que pas de retour du tout, et si cela fonctionne tant mieux.

Ne pas oublier de passer le sujet en résolu à l'occasion.
22/10/2014, 16h28
POPPY74

Bonjour à tous les contributeurs.

je reviens pour vous donner des nouvelles après plusieurs jours d'utilisation. Le fichier fonctionne parfaitement.
Vous êtes des magiciens ! :P
un grand merci donc pour votre aide et vos contributions.
bonne journée à vous
Poppy74