Bonjour le forum,
j'ai un petit soucis avec une macro. Celle ci est censé récupérer en Inputbox 3 colonnes de mon tableau et les coller à la suite de ce dernier. Le problème c'est qu'elle n'arrive pas à coller ce qu'elle a copié (un problème de dimension de range apparement)...
Voici le code en question:
Sub copie_colonnes()
Dim multi As Range
Dim i As Byte
For i = 1 To 3
If multi Is Nothing Then
Set multi = Columns(Application.InputBox("Colonne " & i, Type:=1))
Else
Set multi = Union(multi, Columns(Application.InputBox("Colonne " & i, Type:=1)))
End If
Next i
multi.Select
Selection.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Quelqu'un saurait il ce qui ne va pas dans le collage et si c'est réparable?
j'ai un petit soucis avec une macro. Celle ci est censé récupérer en Inputbox 3 colonnes de mon tableau et les coller à la suite de ce dernier. Le problème c'est qu'elle n'arrive pas à coller ce qu'elle a copié (un problème de dimension de range apparement)...
Voici le code en question:
Sub copie_colonnes()
Dim multi As Range
Dim i As Byte
For i = 1 To 3
If multi Is Nothing Then
Set multi = Columns(Application.InputBox("Colonne " & i, Type:=1))
Else
Set multi = Union(multi, Columns(Application.InputBox("Colonne " & i, Type:=1)))
End If
Next i
multi.Select
Selection.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Quelqu'un saurait il ce qui ne va pas dans le collage et si c'est réparable?