Discussion :

[RastaBomboclat]

Bonjour a tous,

Vous m'excuserais pour les quelques fautes ca et la; j'utilise un clavier , qui n'a pas d'accent.

Je souhaite affeter une valeur a une variable via un inputbox. Mais ca ne marche pas.
Dans mon code ci-dessous, qui sans les variables remplacees tout functionne bien. Mais dans le but d'automatise la macro et permettre a tout utilisateur (quand je passerai ce code en Add-In) puisse l'utiliser, je voudrais que via l'inputbox, l'utilisateur puisse choisir la ou les plages de son choix. C'est la que commence mes soucis
Merci d'avance pour toutes vos contributions.

le code:

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
17
18
19
20
21
22
23
24
25
26
27
28
Sub Macro2()
'
' Macro2 Macro
' Colorie les cellule dont les valeurs sont repetees (doublon).
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
 
Dim MaPlage As Range
Dim MaZone As Range
'Set MaPlage = ActiveSheet.Range("A3:A16")
Set MaPlage = InputBox("Please donner ici la zone a traiter dans le format ci-dessous" & vbCr & " Exemple: A1:B5", "RastaBomboclat")
'set Mazone = "
 
'    Range("A3").Select
'    Range(Selection, Selection.End(xlDown)).Select
    MaPlage.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=COUNTIF($A$3:$A$16;A3)>1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 8314031
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A1").Select
End Sub

[unparia]

Bonjour
Intéresse-toi alors à l'utilisation de la méthode Application.InputBox en lieu et place de la fonction InoutBox
Si tu tiens cependant absolument à utiliser la fonction InputBox --->> Fais-lui retourner non pas un objet Range, mais une chaîne de caractères, à utiliser ENSUITE avec Set.

[Menhir]

https://msdn.microsoft.com/fr-fr/lib.../ff839468.aspx
Avec Type := 8

[RastaBomboclat]

Merci unparia pour la direction.

Menir, merci pour le lien msdn.microsoft, super interessant et tres instructif.
Je m'y mets tout de suite et je reviendrai vous donner une suite.

Merci encore a vous tous.