Affecter a une variable une valeur via inputbox
Bonjour a tous,
Vous m'excuserais pour les quelques fautes ca et la; j'utilise un clavier :langue: , 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:arf:
Merci d'avance pour toutes vos contributions.
le code:
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 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 |
