Macro qui demande la zone de traitement

[jpmasclet]

Bonjour,

J'ai un petit souci qui m'est totalement bloquant et je n'arrive pas a trouver la solution.

voila mon probleme :

Je aimerai créer une macro qui me demande la zone ou la cellule sur lequel le traitement va etre fait.

J'espere avoir été clair et vous remercie pour votre aide.

 

[jpmasclet]

Re : Macro qui demande la zone de traitement

Merci robert, voila la donc l'élément essentiel qu'il me manquait !!!!
Avec ta méthode cela marche nickel

Merci bcp !!

 

[jpmasclet]

Re : Macro qui demande la zone de traitement

bonjour robert, bonjour pierrot , bonjour le forum

Je reviens vers vous concernant cette macro pour avoir un supplément d'info si possible :

a la place de cette macro :

Sub test()
Sub test()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("selectionnez une plage", , , , , , , 8)
On Error GoTo 0
If Not x Is Nothing Then MsgBox "ok plage en " & x.Address(0, 0)
Sheets("Legende").Range("A2").Copy x
End Sub

A la place d'aller chercher dans legende la celle A2 et de la copié,
je souhaiterai mettre la zone selectionné une couleur et une lettre, mais je n'ai pas reussi a la faire.


Pour l'explication, ce qui me gene dans le copié collé c'est que ça me supprime ma mise en forme de bordure, forcement...

Merci pour votre aide.

 

[jpmasclet]

Re : Macro qui demande la zone de traitement

Bon j'ai trouvé le code, enfin .. 🙂

pour info voici le code, dans cet exemple, la case est barré en diagonale (pour les demi journées)

Sub RTTD()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("selectionnez la période de congée", , , , , , , 8)
On Error GoTo 0
If Not x Is Nothing Then MsgBox "Zone de congée sélectionnée " & x.Address(0, 0)

      x = "Y"
       x.Borders(xlDiagonalDown).LineStyle = xlNone
    With x.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    
End Sub

 

[jpmasclet]

Re : Macro qui demande la zone de traitement

Je reviens encore et encore vers vous pour une autre question,
toujours dans la meme macro

donc j'ai une zone déroulante qui me choisi le type de congé et j'aimerai qu'apres que le traitement de macro que la liste soit a blanc.

En faite des que je lance la macro, par exemple , il reste écrit dans la zone : RTT.

vous voyez ce que je veux dire ?
merci