Choisir valeur et copier

[teodormircea]

Bonjour le forum

Je voudrais creer une userform pour choisir une range des donnes d'une feuille d'un classeur puis les coller dans un autre classeur dans une feuille que je vuex choisir

 

[teodormircea]

Re : Choisir valeur et copier

Voial pour ceux qui veulent jouer

Sub selection()
Dim src As Range
Dim tgt As Range
Set src = Application.InputBox(prompt:="Select range to copy FROM with mouse", Type:=8)
Set tgt = Application.InputBox(prompt:="Select first cell of range to copy TO with mouse", Type:=8)

If Not src Is Nothing And Not tgt Is Nothing Then
src.Copy tgt
End If

End Sub

 

[RENAUDER]

Re : Choisir valeur et copier

Bonjour teodormircea,

Petite question ?
A quoi sert la ligne

If Not src Is Nothing And Not tgt Is Nothing Then

J'essaie de comprendre mais je ne trouve pas le cas ou la copie ne se fera pas si les conditions ne sont pas remplies.
Merci d'avance

 

[teodormircea]

Re : Choisir valeur et copier

DAns le cas ou il ya pas de selection sortir