Discussion :

[ClemSE87]

Bonjour tout le monde !

Je suis nouveau sur le forum et je tiens à préciser que je n'ai pas de bases en programmation. Ainsi je m'excuse si mon problème parait ridicule mais je dois avouer que j'y ai passé littéralement des heures ^^'

Je souhaiterai faire une macro d'une mise en forme qui mette en évidence les doublons etc au sein d'une colonne.
Mes données sont déjà regroupés "par paquet" d'un premier critère (identifiants). J'ai deux autres critères (une colonne combinaison et une autre score). Au sein de chaque paquet peut se se trouver des lignes avec des identifiants et des combinaisons identiques mais des scores différents. Je vais devoir supprimer les lignes avec les scores les plus faibles. Cependant une combinaison peut se trouver au sein de plusieurs identifiants.
Evidemment si c'était pas le cas j'aurai tout simplement mis en forme les doublons de combinaisons !
Ainsi je suis obligé de repasser à chaque fois dans mise en forme et changer la cellule sélectionnée pour faire en évidence les doublons au sein de chaque groupe d'identifiant.

Or je voudrais juste aller sur une cellule et faire une touche raccourci pour mettre en forme si le contenu de cette cellule est multiple sans repasser par l'onglet mise en forme.
Bien sûr je n'ai pas le niveau et je ne vais pas vous demander de faire un programme avec des boucles avec trois conditions.

J'ai enregistré une macro de mise en forme qui colore en vert les doublons de la combinaison contenus dans la cellule I4. Mais je ne réussis pas à remplacer correctement pas à faire référence à la cellule active. Pourtant j'ai tout essayé avec ActiveCell mais ça plante toujours... Et oui il y a certainement que deux lignes à changer.

Voici la MACRO en question ci-dessous. Merci d'avance de votre aide !

Sub Macro11()
'
' Macro11 Macro
' Mettre en vert les doublons
'

'

Application.CutCopyMode = False
Application.CutCopyMode = False
Cells.FormatConditions.Delete
Columns("I:I").Select
Range("I4").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$I$4"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

[Philippe Tulliez]

Bonjour,

Mais je ne réussis pas à remplacer correctement pas à faire référence à la cellule active

L'objet représentant la cellule active est tout simplement ActiveCell

[EDIT]

Procédure qui renvoie l'adresse complète de la plage sélectionnée (Selection) soit $B$4:$D$10 + Nom du classeur & Nom de la feuille et de la cellule active (ActiveCell) soit $B$4 + Nom du classeur & Nom de la feuille correspondant à l'illustration.

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim t As String
  t = "Adresse des cellules"
  t = t & vbCrLf & "Sélection = " & Selection.Address(External:=True)
  t = t & vbCrLf & "Cellule active = " & ActiveCell.Address(External:=True)
  MsgBox t
End Sub

Illustration

[ClemSE87]

Bonjour,

L'objet représentant la cellule active est tout simplement ActiveCell

[EDIT]

Procédure qui renvoie l'adresse complète de la plage sélectionnée (Selection) soit $B$4:$D$10 + Nom du classeur & Nom de la feuille et de la cellule active (ActiveCell) soit $B$4 + Nom du classeur & Nom de la feuille correspondant à l'illustration.

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim t As String
  t = "Adresse des cellules"
  t = t & vbCrLf & "Sélection = " & Selection.Address(External:=True)
  t = t & vbCrLf & "Cellule active = " & ActiveCell.Address(External:=True)
  MsgBox t
End Sub

Illustration

Bonjour Philippe

Merci de ta réponse.


Juste pour être sûr de comprendre... Normalement si je remplace juste par ActiveCell aux deux lignes où sont marqués I4 et $I$4 cela suffit il ? Ou je dois faire référence au classeur et à la feuille ?

Sub Macro12()
'
' Macro12 Macro
'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
Cells.FormatConditions.Delete
Columns("I:I").Select
Range("ActiveCell").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="= ActiveCell"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub



J'obtient ce message d'erreur en exécutant comme tel...

Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué

Et toute ma colonne est sélectionnée sans rien de plus.


Merci d'avance

[ClemSE87]

Bonjour,

L'objet représentant la cellule active est tout simplement ActiveCell

[EDIT]

Procédure qui renvoie l'adresse complète de la plage sélectionnée (Selection) soit $B$4:$D$10 + Nom du classeur & Nom de la feuille et de la cellule active (ActiveCell) soit $B$4 + Nom du classeur & Nom de la feuille correspondant à l'illustration.

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim t As String
  t = "Adresse des cellules"
  t = t & vbCrLf & "Sélection = " & Selection.Address(External:=True)
  t = t & vbCrLf & "Cellule active = " & ActiveCell.Address(External:=True)
  MsgBox t
End Sub

Illustration

NB : Je vais pas montrer toutes les combinaisons que j'ai fais avec ActiveCell et tous les dérivés (ActiveCell.Value etc)... Mais je suis sûr que mon erreur est très basique !

[Philippe Tulliez]

Bonjour,

NB : Je vais pas montrer toutes les combinaisons que j'ai fais avec ActiveCell et tous les dérivés (ActiveCell.Value etc)... Mais je suis sûr que mon erreur est très basique !

Je m'en doute.
Le complément de ma réponse, n'était là que pour illustrer la compréhension et l'utilisation de l'objet ActiveCell (cellule active) qui est l'objet de la question que vous avez posée.

Désolé pour cet ajout. je m'abstiendrai la prochaine fois

[ClemSE87]

Bonjour,

Je m'en doute.
Le complément de ma réponse, n'était là que pour illustrer la compréhension et l'utilisation de l'objet ActiveCell (cellule active) qui est l'objet de la question que vous avez posée.

Désolé pour cet ajout. je m'abstiendrai la prochaine fois

Pas de soucis ! Il me semblait bien que c'était un exemple pour justement dire où se trouve notre cellule active. Mais si j'avais un doute c'est bien que ce n'était pas suffisamment clair dans ma tête.

En fait je ne réussis pas à mettre ActiveCell comme il faut pour réussir ma macro. L'erreur est peut être de la syntaxe.
Mais en tout cas ça colore pas en vert tous les doublons ETC du contenus exact de la cellule sélectionnée.

[Philippe Tulliez]

Bonjour,
Dans la ligne de votre code initial, Formula1:="=$I$4"
Vous constaterez que la valeur est une chaîne de caractères donc vous ne pouvez pas remplacer cette valeur par ActiveCell qui est un objet et pas une chaine de caractères représentant l'adresse de la cellule.

Mon exemple avec la propriété Address illustre par contre la chaine de caractères contenant l'adresse.
La piste est là

Etes-vous certain d'avoir besoin de la cellule active pour dénombrer les cellules en double dans une plage de cellules ?