Réinitialiser une macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/04/2011, 10h52
bbcancer

Réinitialiser une macro

Bonjour à tous

J'utilise une macro qui me trouve les doublons sur plusieurs feuilles excel. Cette macro marche très bien.
Par contre, j'ai un petit soucis. quand je corrige mon doublon (même si je relance la macro) la mise en forme que j'ai appliqué reste.
J'aimerai donc trouvé une macro qui me permettent une fois le doublon corrigé de disparaitre (enfin la mise en forme) et si le doublon n'a pas été corrigé que la mise en forme reste.

Merci

Cordialement
21/04/2011, 11h35
casefayere

Bonjour,

envoies ta macro, ça sera plus facile (enfin, peut-être !)

Ma macro que j'utilise est la suivante : (en fait c'est 2 macros)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub CDouble(RngA As Range, RngB As Range)
 'Recherche les doublons entre 2 plages
 
Dim c As Range, v As Range
 
For Each c In RngA
    If c.Value <> "" Then 
        Set v = RngB.Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not v Is Nothing Then 
            If c.Parent.Name & c.Address <> v.Parent.Name & v.Address Then 
            c.Interior.ColorIndex = 46 
            c.Font.Bold = True 
            c.Font.ColorIndex = 36 
            v.Interior.ColorIndex = 46 
            v.Font.Bold = True 
            v.Font.ColorIndex = 36 
            Set v = Nothing 
            End If
        End If
    End If
Next c
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Appliquer_doublons()
 
Dim i As Byte, j As Byte
Dim LastLigA As Long, LastLigB As Long
Dim TF As Variant
 
Application.ScreenUpdating = False
 
TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") 
 
For i = LBound(TF) To UBound(TF)
    LastLigA = Sheets(TF(i)).Cells(Rows.Count, 1).End(xlUp).Row
        For j = i To UBound(TF)
            LastLigB = Sheets(TF(j)).Cells(Rows.Count, 1).End(xlUp).Row 
            CDouble Sheets(TF(i)).Range("B9:B" & LastLigA), Sheets(TF(j)).Range("B9:B" & LastLigB) 
            CDouble Sheets(TF(i)).Range("C9:C" & LastLigA), Sheets(TF(j)).Range("C9:C" & LastLigB) 
        Next j
Next i
 
End Sub

Voilà
J'espère que ca vous aidera

21/04/2011, 12h08
bellande

formats
Bonjour,
A première vu, il faut ajouter des instructions d'effacement de format sinon les anciens formats persistent. Il faudrait tester un truc de ce style. C'est pas génial et je ne sais pas si il y a une partie des styles à garder malgré tout.
Ca fera peut-être avancer un peu la question.
a+
Code:

1 2 3 4 If Not v Is Nothing Then v.ClearFormats c.ClearFormats If c.Parent.Name & c.Address <> v.Parent.Name & v.Address Then
21/04/2011, 14h06
bbcancer

J'ai essayé et cela ne marche pas...
Et en plus cela m'efface les bordures du tableau et toute la mise en forme

Je pense qu'il faudrait, en début de macro, sélectionner les colonnes B et C de chacune des quatre feuilles et remettre pour les colonnes entières les propriétés
Interior.ColorIndex, Font.Bold, Font.ColorIndex à la valeur par défaut (celle du non doublon). Puis le traitement se chargerait de remettre la mise en forme aux doublons.

Au passage, deux remarques sur ton code :
Dans CDouble le code de mise en forme est répété deux fois, une fois suffirait :
Code:

1 2 3 4 5 6 c.Interior.ColorIndex = 46 c.Font.Bold = True c.Font.ColorIndex = 36 v.Interior.ColorIndex = 46 v.Font.Bold = True v.Font.ColorIndex = 36
Puis toujours dans la même procédure, tu as :
Code:

1 2 3 For i = LBound(TF) To UBound(TF) LastLigA = Sheets(TF(i)).Cells(Rows.Count, 1).End(xlUp).Row For j = i To UBound(TF)
La boucle de j commence à i, laquelle variable est incrémentée lorsqu'on change de feuille. Ceci veut dire que chaque feuille n'est pas comparée aux précédentes (la feuille 2 n'est comparée qu'aux feuilles 2, 3, 4, la feuille 3 qu'aux 3 et 4 et la feuille 4 qu'à la 4.
Du coup, à moins que fonctionnellement ça ait un sens, des doublons avec les feuilles précédentes ne sont pas identifiés. Il faudrait amha modifier la boucle j ainsi :

Code:

For j = LBound(TF) To UBound(TF)

29/04/2011, 10h31
bbcancer

Merci je vais essayer ceci tout de suite. Par contre une autre question, je dois recréer une autre macro (1 ou 2 en fonction de si je dois recréer mon module publique) pour sélectionner les colonnes B et C des 4 feuilles pour remettre les valeurs par défaut ou je les intégrer dans mes macros déja existante?

Merci

Cordialement

Petite précision, je ne maitrise pas trop bien les macros. Au fur et à mesure j'apprends et surtout grâce à ce forum. Merci
29/04/2011, 12h28
neupont

Tu peux l'intégrer au début de ta procédure Appliquer_Doublons, par exemple après TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4").

Au passage je réalise que j'ai dis une grosse bêtise tout à l'heure avec mes deux remarques, voilà ce que c'est de regarder trop vite. Donc ne touche pas au code existant à ce sujet, il marche bien comme ça (la "double" mise en forme ne concernait pas le même objet mais les deux cellules concernées par le doublon, et du coup la logique de ne pas retraiter les feuilles précédentes est tout à fait pertinente).
Mea culpa.
29/04/2011, 15h51
bbcancer

J'ai encore une petite question (je suis embêtante). Pour lui dire de sélectionner les colonnes B et C et de lui appliquer les valeurs par défaut, il faut faire comment?
Encore merci

Il faut lancer l'enregistreur de macros et voir ce que ça donne comme code pour remettre la mise en forme voulue (pour remplacer les ??? ci-dessous).
Je n'ai pas la même version d'Excel et je ne peux pas connaître ces valeurs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Application.ScreenUpdating = False TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") For i = LBound(TF) To UBound(TF) Sheets(TF(i)).Columns("B:C").Font.Bold = False Sheets(TF(i)).Columns("B:C").Font.ColorIndex= ??? Sheets(TF(i)).Columns("B:C").Interior.ColorIndex = ??? LastLigA = Sheets(TF(i)).Cells(Rows.Count, 1).End(xlUp).Row For j = i To UBound(TF) ...
Le petit inconvénient c'est que ça modifie aussi les premières lignes de B et C qui ne contiennent pas de données, mais peut-être des en-têtes de colonnes ou autres. Si ça gêne il faut ensuite revenir sur ces cellules spécifiquement pour les remettre en forme comme désiré.

06/05/2011, 13h34
bbcancer

C'est super ca marche
Par contre effectivement, j'ai l'inconvénient des premières lignes de B et C.
donc il faut que je trouve comment faire pour lui dire de partir à partir de la ligne n°9.
Encore merci..
Si j'ai trouvé une idée je transmettrais au sinon je suis preneuse aussi
Merci

Cordialement

Non pardon je rectifie. Ca m'efface même les doublons qui n'ont pas été corrigés...
Bon à voir.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Application.ScreenUpdating = False
 
TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") 
 
For i = LBound(TF) To UBound(TF)
    Sheets(TF(i)).Columns("B:C").Font.Bold = False
    Sheets(TF(i)).Columns("B:C").Font.ColorIndex= ???    
    Sheets(TF(i)).Columns("B:C").Interior.ColorIndex = ???
Next i
 
For i = LBound(TF) To UBound(TF)
 
    LastLigA = Sheets(TF(i)).Cells(Rows.Count, 1).End(xlUp).Row
        For j = i To UBound(TF)
    ...

09/05/2011, 09h18
bbcancer

Je te remercie cela marche.
Il me reste à trouver comment faire pour que la macro parte de la ligne 9 pour éviter que la mise en forme des 1ères colonnes ne changent...
Merci encore..
19/05/2011, 11h18
bbcancer

Bonjour à tous,
Je n'ai toujours pas trouvé de solution à mon problème pour que la macro démarre à partir de la ligne 9. J'ai essayé avec "cells" mais ca ne marche pas...
Donc s'il y a des solutions je prends.
Merci
Cordialement

Bonjour,

Essaie comme ceci :

Code:

1
2
3
4
5
6
7
For i = LBound(TF) To UBound(TF)
    With Sheets(TF(i)).Range("B9:C" & Rows.Count)
        .Font.Bold = False
        .Font.ColorIndex= ???
        .Interior.ColorIndex = ???
    End With
Next

19/05/2011, 13h34
bbcancer

Super ca marche
Merci encore..

Bonjour,

J'ai un souci qui n'était aps prévu.
La macro s'applique bien lorsque l'on a 2 colonnes côte à côte. par contre si ce sont des colonnes bien distinctes (par exemple C et J) cela ne marche pas.
Qui a une solution à mon problème?

Merci

Cordialement

Code:

1
2
3
4
5
With Sheets(TF(i)).Range("C9:C" & Rows.Count & ",J9:J" & Rows.Count)
    .Font.Bold = False
    .Font.ColorIndex = 6
    .Interior.ColorIndex = 3
End With

25/05/2011, 09h47
bbcancer

J'ai essayé mais il m'efface la mise en page même sur les autres feuilles où l'erreur n'est pas corrigée...
Alors que quand les colonnes sont à côtés je n'ai pas de souci...
25/05/2011, 09h57
fring

Citation:

Envoyé par bbcancer

J'ai essayé mais il m'efface la mise en page même sur les autres feuilles où l'erreur n'est pas corrigée...

:koi:
Je t'ai donné une solution pour faire la mise en forme de colonnes non contiguës. La question de savoir sur quelle feuille cette mise en forme doit être faite ou non c'est un autre problème qui ne fait pas partie de ces quelques lignes de code.
25/05/2011, 10h03
bbcancer

Les feuilles sont précisées par le TF sauf que quand j'applique le code sur des colonnes contiguës cela marche, au sinon cela ne marche pas.
Tu veux un exemple de fichier?

Voir 40 message(s) de cette discussion en une page