Réinitialiser une macro

Version imprimable

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?

Non pas besoin de fichier, le petit bout de code ci-dessous modifie bien la mise en forme des colonnes C et J, de la ligne 9 à la dernière ligne, des feuilles "feuil1", "feuil2", "feuil3" et "feuil4" sans toucher à la mise en forme des autres feuilles.
Code:

1 2 3 4 5 6 7 8 9 TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") For i = LBound(TF) To UBound(TF) With Sheets(TF(i)).Range("C9:C" & Rows.Count & ",J9:J" & Rows.Count) .Font.Bold = False .Font.ColorIndex = 6 .Interior.ColorIndex = 3 End With Next

25/05/2011, 10h35
bbcancer

Ça c'est bien le code que j'ai appliqué mais par exemple il va me changer la mise en forme de la feuil3 et feuil4 alors que l'erreur n'a été corrigé que sur le feuil1. Je ne sais pas si c'est clair?
25/05/2011, 10h47
fring

Oui c'est clair mais tu constateras que dans ces quelques lignes de code il n'y a aucune autre condition d'imposée que de modifier la mise en forme et si je ne m'abuse, c'était le sujet de ta question...
Si ta condition ne fonctionne plus c'est qu'il y a un twist ailleurs dans ton code. Mets le code complet stp.

J'utilise en 1er le code de la recherche des doublons
Je te les mets aussi pour que tu vois mieux ce que je veux dire..

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 'Couleur de remplissage
            c.Font.Bold = True 'Ecriture en gras
            c.Font.ColorIndex = 36 'Couleur de police
            v.Interior.ColorIndex = 46 'Couleur de remplissage
            v.Font.Bold = True 'Ecriture en gras
            v.Font.ColorIndex = 36 'Couleur de police
            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") 'Nom des feuilles pour appliquer le module
 
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

une fois les erreurs trouvé je peux ou non corrigés les erreurs en fonction de mes données donc je lance le code de correction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Correction_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)
    With Sheets(TF(i)).Range("B9:C" & Rows.Count)
        .Font.Bold = False
        .Font.ColorIndex = 1
        .Interior.ColorIndex = None
    End With
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)
            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

Tout ce qui précède c'est pour des cellules côte à côte.
Maintenant je lance le même type de macro pour la recherche de mes doublons mais je change mes colonnes donc :

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") 'Nom des feuilles pour appliquer le module
 
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("G9:G" & LastLigA), Sheets(TF(j)).Range("C9:C" & LastLigB)
        Next j
Next i
 
End Sub

Et la c'est le ode entier avec ce que tu m'as dit de rajouter.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Correction_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)
    With Sheets(TF(i)).Range("B9:B" & Rows.Count & ",G9:G" & Rows.Count)
        .Font.Bold = False
        .Font.ColorIndex = 1
        .Interior.ColorIndex = None
    End With
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)
            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("G9:G" & LastLigA), Sheets(TF(j)).Range("C9:C" & LastLigB)
        Next j
Next i
 
End Sub

J'espère que cela sera plus clair...:oops:

Oup's il y a erreur dans mon dernier code.. dans les colonnes c'est peut être ca qui me créer l'erreur

25/05/2011, 11h19
fring

Sans analyser plus en détail ton code, cette ligne me semble foireuse

Code:

CDouble Sheets(TF(i)).Range("G9:G" & LastLigA), Sheets(TF(j)).Range("C9:C" & LastLigB)

Range("C9:C" & LastLigB) ne devrait pas plutôt être Range("G9:G" & LastLigB) ?

Si ce n'est pas ça il faudra que je regarde plus en profondeur mais je n'ai malheureusement pas le temps là maintenant
25/05/2011, 11h28
bbcancer

Oui apparemment c'est ca. c'est que je me suis trompée dans les lettres j'ai corrigé et là ca marche.
Désolé:oops: de t'avoir fait chercher pour rien
Merci c'est gentil

Bonne journée