Programmation macro

**POPPY74** · 02/10/2014, 10h39

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.

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

**Nico Chg** · 02/10/2014, 10h49

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 ?

**POPPY74** · 02/10/2014, 11h14

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 :

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

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 :

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

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

**Daniel.C** · 02/10/2014, 11h16

Bonjour,

Accroche cette macro à un bouton :

Code :

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

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

**POPPY74** · 02/10/2014, 11h31

@ 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 ?

**Daniel.C** · 02/10/2014, 11h39

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 :

POPPY74 Suivi d'affaires- V3.xls

**Nico Chg** · 02/10/2014, 11h40

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 :

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