XL 2010 Macro pour mettre en surbrillance (jaune) des doublons (RESOLU)

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion ymanot
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
ymanot

ymanot

XLDnaute Occasionnel
Bonjour à tous.
J'ai un document dans lequel je répartis des élèves à partir d'une feuille " TRI" dans différentes classes selon la saisie que j'effectue en colonne A.
A partir du code ci-dessous qui agit sur toute les feuilles nommée '3E"
j'aimerai insérer une macro mettant en surbrillance jaune, les doublons trouvés dans la comparaison entre les colonnes C et la plage (P:T) sans polluer la macro existante.

VB: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("tri 3E").[A1].CurrentRegion
    If Application.CountIf(.Columns(1), Sh.Name) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    Sh.Cells.Delete 'RAZ
    .AutoFilter 1, Sh.Name 'filtre automatique
    .Copy Sh.[A1] 'copier-coller
    .AutoFilter
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub

Ensuite dans ma feuille "récapitulatif" j'ai crée des macros automatiques via les boutons "recalcule" et " actualiser" qui permettent de recalculer l'ensemble des modifications. Car jusque là je n'ai pas réussi à automatiser les réajustements selon les variations opérées dans chacune des classes. Quelqu'un est il en mesure d'intégrer les calculs dans une macro en direct ?

vous en remerciant
Ymanot
 

Pièces jointes

Solution
Bernard_XLD
re,

pour le deuxième point, impossible de tester, références à des fichiers externes non fournis
voici vos deux macros modifiées, les select ne servent quasiment jamais à rien et empêchent l'adressage direct, ils sont à proscrire plus de 99% du temps.
VB: 
Sub calculheterog()
'
' calculheterog Macro
'

'
    With Worksheets("récapitulatif")
        .Range("D3:D4").FormulaR1C1 = "=SUM('3e3'!R[-1]C[2]:R[26]C[2])"
        .Range("E3:E4").FormulaR1C1 = "=SUM('3e4'!R[-1]C[1]:R[26]C[1])"
        .Range("F3:F4").FormulaR1C1 = "=SUM('3e5'!R[-1]C:R[26]C)"
        .Range("G3:G4").FormulaR1C1 = "=SUM('3e6'!R[-1]C[-1]:R[26]C[-1])"
        .Range("H3:H4").FormulaR1C1 = "=SUM('3e7'!R[-1]C[-2]:R[26]C[-2])"
        .Range("I3:I4").FormulaR1C1 =...
Trier par date Trier par votes
Bonjour ymanot, le forum

ymanot à dit:
j'aimerai insérer une macro mettant en surbrillance jaune, les doublons trouvés dans la comparaison entre les colonnes C et la plage (P:T) sans polluer la macro existante.
Cliquez pour agrandir...
encore faudrait t'il comprendre ce que vous désirez, dans votre fichier exemple, il n'y a que des A en colonne C et que des zéros en résultats de formule dans les colonnes P à T, merci de fournir un exemple fonctionnel pour le traitement ou de fournir des explications plus détaillées.
ymanot à dit:
Ensuite dans ma feuille "récapitulatif" j'ai crée des macros automatiques via les boutons "recalcule" et " actualiser" qui permettent de recalculer l'ensemble des modifications. Car jusque là je n'ai pas réussi à automatiser les réajustements selon les variations opérées dans chacune des classes.
Cliquez pour agrandir...
pour ce point, deux solutions :
1-reprendre en formules les calculs
2-puisque les macros fonctionnent, les déclencher lors d'un événement change dans une des feuilles concernées

Bien cordialement, @+
 
Vote positif 0 Vote négatif
Bonjour Yeahou,

Les "A " c'etait pour anonymiser les noms de familles et oui comme j'ai aussi supprimé les noms dans les colonnes P à T, ma demande est devenue incohérente....damn).
Considerant "baba" en colonne C et "baba" dans une des colonnes de P à T il faudrait que cela soit en surbrillance jaune.

cdlt
ymanot
 
Vote positif 0 Vote négatif
re,

pour le deuxième point, impossible de tester, références à des fichiers externes non fournis
voici vos deux macros modifiées, les select ne servent quasiment jamais à rien et empêchent l'adressage direct, ils sont à proscrire plus de 99% du temps.
VB: 
Sub calculheterog()
'
' calculheterog Macro
'

'
    With Worksheets("récapitulatif")
        .Range("D3:D4").FormulaR1C1 = "=SUM('3e3'!R[-1]C[2]:R[26]C[2])"
        .Range("E3:E4").FormulaR1C1 = "=SUM('3e4'!R[-1]C[1]:R[26]C[1])"
        .Range("F3:F4").FormulaR1C1 = "=SUM('3e5'!R[-1]C:R[26]C)"
        .Range("G3:G4").FormulaR1C1 = "=SUM('3e6'!R[-1]C[-1]:R[26]C[-1])"
        .Range("H3:H4").FormulaR1C1 = "=SUM('3e7'!R[-1]C[-2]:R[26]C[-2])"
        .Range("I3:I4").FormulaR1C1 = "=SUM('3e8'!R[-1]C[-2]:R[26]C[-3])"
        .Range("J3:J4").FormulaR1C1 = "=SUM('repartition 2018 2019'!R[-1]C[-5]:R[160]C[-5])/6"
    End With
End Sub

Sub CALCULSEX()
'
' CALCULSEX Macro
'

'
    With Worksheets("récapitulatif")
        .Range("D6").FormulaR1C1 = "=COUNTIF('3e3'!R[-4]C[1]:R[23]C[1],""M"")"
        .Range("D7").FormulaR1C1 = "=COUNTIF('3e3'!R[-5]C[1]:R[23]C[1],""F"")"
        .Range("E6").FormulaR1C1 = "=COUNTIF('3e4'!R[-4]C:R[23]C,""M"")"
        .Range("E7").FormulaR1C1 = "=COUNTIF('3e4'!R[-5]C:R[23]C,""F"")"
        .Range("F6").FormulaR1C1 = "=COUNTIF('3e5'!R[-4]C[-1]:R[23]C[-1],""M"")"
        .Range("F7").FormulaR1C1 = "=COUNTIF('3e5'!R[-5]C[-1]:R[23]C[-1],""F"")"
        .Range("G6").FormulaR1C1 = "=COUNTIF('3e6'!R[-4]C[-2]:R[23]C[-2],""M"")"
        .Range("G7").FormulaR1C1 = "=COUNTIF('3e6'!R[-5]C[-2]:R[23]C[-2],""F"")"
        .Range("H6").FormulaR1C1 = "=COUNTIF('3e7'!R[-4]C[-3]:R[23]C[-3],""M"")"
        .Range("H7").FormulaR1C1 = "=COUNTIF('3e7'!R[-5]C[-3]:R[23]C[-3],""F"")"
        .Range("I6").FormulaR1C1 = "=COUNTIF('3e8'!R[-4]C[-3]:R[23]C[-4],""M"")"
        .Range("I7").FormulaR1C1 = "=COUNTIF('3e8'!R[-5]C[-3]:R[23]C[-4],""F"")"
    End With
End Sub

ensuite placez cette macro dans thisworkbook, avec la macro Private Sub Workbook_SheetActivate(ByVal Sh As Object) , cela déclenchera les macros à chaque changement dans une des feuilles de 3e. vos macros modifiées agiront sans qu'il y ait besoin de sélectionner la feuille auparavant
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Sh.Name, 1) = "3" Then
    Call calculheterog
    Call CALCULSEX
End If
End Sub

pour le premier point, faites simplement une MFC, pas besoin de macro

Bien cordialement, @+
 
Vote positif 0 Vote négatif
Solution
Bonjour,
j 'ai bien placé la macro comme suit

VB: 
Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("tri 3E").[A1].CurrentRegion
    If Application.CountIf(.Columns(1), Sh.Name) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    Sh.Cells.Delete 'RAZ
    .AutoFilter 1, Sh.Name 'filtre automatique
    .Copy Sh.[A1] 'copier-coller
    .AutoFilter
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub
Sub calculheterog()
'
' calculheterog Macro
'

'
    With Worksheets("récapitulatif")
        .Range("D3:D4").FormulaR1C1 = "=SUM('3e3'!R[-1]C[2]:R[26]C[2])"
        .Range("E3:E4").FormulaR1C1 = "=SUM('3e4'!R[-1]C[1]:R[26]C[1])"
        .Range("F3:F4").FormulaR1C1 = "=SUM('3e5'!R[-1]C:R[26]C)"
        .Range("G3:G4").FormulaR1C1 = "=SUM('3e6'!R[-1]C[-1]:R[26]C[-1])"
        .Range("H3:H4").FormulaR1C1 = "=SUM('3e7'!R[-1]C[-2]:R[26]C[-2])"
        .Range("I3:I4").FormulaR1C1 = "=SUM('3e8'!R[-1]C[-2]:R[26]C[-3])"
        .Range("J3:J4").FormulaR1C1 = "=SUM('repartition 2018 2019'!R[-1]C[-4]:R[160]C[-5])/7"
        .Range("J3:J4").FormulaR1C1 = "=SUM('repartition 2018 2019'!R[-1]C[-5]:R[160]C[-5])/6"
    End With
End Sub

Sub CALCULSEX()
'
' CALCULSEX Macro
'

'
    With Worksheets("récapitulatif")
        .Range("D6").FormulaR1C1 = "=COUNTIF('3e3'!R[-4]C[1]:R[23]C[1],""M"")"
        .Range("D7").FormulaR1C1 = "=COUNTIF('3e3'!R[-5]C[1]:R[23]C[1],""F"")"
        .Range("E6").FormulaR1C1 = "=COUNTIF('3e4'!R[-4]C:R[23]C,""M"")"
        .Range("E7").FormulaR1C1 = "=COUNTIF('3e4'!R[-5]C:R[23]C,""F"")"
        .Range("F6").FormulaR1C1 = "=COUNTIF('3e5'!R[-4]C[-1]:R[23]C[-1],""M"")"
        .Range("F7").FormulaR1C1 = "=COUNTIF('3e5'!R[-5]C[-1]:R[23]C[-1],""F"")"
        .Range("G6").FormulaR1C1 = "=COUNTIF('3e6'!R[-4]C[-2]:R[23]C[-2],""M"")"
        .Range("G7").FormulaR1C1 = "=COUNTIF('3e6'!R[-5]C[-2]:R[23]C[-2],""F"")"
        .Range("H6").FormulaR1C1 = "=COUNTIF('3e7'!R[-4]C[-3]:R[23]C[-3],""M"")"
        .Range("H7").FormulaR1C1 = "=COUNTIF('3e7'!R[-5]C[-3]:R[23]C[-3],""F"")"
        .Range("I6").FormulaR1C1 = "=COUNTIF('3e8'!R[-4]C[-3]:R[23]C[-4],""M"")"
        .Range("I7").FormulaR1C1 = "=COUNTIF('3e8'!R[-5]C[-3]:R[23]C[-4],""F"")"
    End With
End Sub

Mais les calculs ne se lancent pas automatiquement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
ymanot
  • Question Question
XL 2016 Macro mise en forme sur un filtre macro de tri
Réponses
0
Affichages
634
ymanot
ymanot
A
  • Question Question
Améliorer un macro pour fusionner des cellules doublons avec des conditions
Réponses
5
Affichages
2 K
Anr1
A
ymanot
  • Question Question
macro pour copier une ligne d'une feuille a lautre selon un critere défini
Réponses
4
Affichages
1 K
ymanot
ymanot
A
  • Question Question
[Résolu] Defilement des feuilles d'un classeur en taches de fond
Réponses
6
Affichages
1 K
Adam0308
A
D
  • Question Question
XL 2016 Trier une liste en fonction de plusieurs critères en VBA? (et pas en mode enregistrement macro)
Réponses
1
Affichages
2 K
doublenico
D
Guido
  • Question Question
-RESULU-Suspendre ou active une macro evenementielle....
Réponses
4
Affichages
1 K
Guido
Guido
A
  • Question Question
VBA Macro tri onglets
Réponses
1
Affichages
2 K
gilbert_RGI
gilbert_RGI
F
  • Question Question
aide macro; pour mettre les lignes sans correspondances à la suite
Réponses
0
Affichages
712
fabknight
F
J
  • Question Question
Pourquoi ma macro ne marche pas quand je l'éxécute en une macro !
Réponses
7
Affichages
3 K
gilbert_RGI
gilbert_RGI
H
  • Question Question
Demande aide pour finalisation projet
Réponses
2
Affichages
7 K
harkoko
H
M
  • Question Question
macro copier ligne colorée en jaune dans une nouvelle feuille
Réponses
5
Affichages
2 K
mdelbos
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
Le_Phénomène
Retour