C
CARO08
Guest
j'ai créé une inputbox qui dde à l'utilisateur de sélectionner des cellules: range (dim plage as range)
Mais je souhaiterais gérer le cas ou l'utilisateur clic sur le bouton annuler (que la macro réafiche la fenêtre par exemple)
voici mon code:
Dim Plage As Range
Set Plage = Application.InputBox('Sélectionnez toutes les données relatives au demandeur !', 'Sélection de cellules', Type:=8)
MsgBox ('Cette plage a été copié : ' & Plage.Address)
Plage.copy
Sheets('ss_entretien').Select
fin = Sheets('ss_entretien').Range('A65535').End(xlUp).Row + 1
Range('A' & fin).Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
Plage.copy
Sheets('neg_ss_entretien2').Select
Range('C2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
End Sub
Merci beaucoup par avance
caro
Mais je souhaiterais gérer le cas ou l'utilisateur clic sur le bouton annuler (que la macro réafiche la fenêtre par exemple)
voici mon code:
Dim Plage As Range
Set Plage = Application.InputBox('Sélectionnez toutes les données relatives au demandeur !', 'Sélection de cellules', Type:=8)
MsgBox ('Cette plage a été copié : ' & Plage.Address)
Plage.copy
Sheets('ss_entretien').Select
fin = Sheets('ss_entretien').Range('A65535').End(xlUp).Row + 1
Range('A' & fin).Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
Plage.copy
Sheets('neg_ss_entretien2').Select
Range('C2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
End Sub
Merci beaucoup par avance
caro