Bonjour à tous,
Voilà j'ai un soucis avec une erreur de type 1004 qui me signale une impossibilité de coller le contenu car il n'est pas de la même taille.
b est la feuille d'arrivée.
Voici le code:
Merci à tous par avance
Voilà j'ai un soucis avec une erreur de type 1004 qui me signale une impossibilité de coller le contenu car il n'est pas de la même taille.
b est la feuille d'arrivée.
Voici le code:
Code:
Sub traitement()
Dim i As Integer
Dim Rep1 As String
Dim plage As String
L = 1
ActiveWorkbook.Sheets(Copie_donner.ComboBox1.Value).Select
RSADD = Application.WorksheetFunction.Proper(Copie_donner.ComboBox1)
plage = Copie_donner.RefEdit1.Value
If plage = "" Then
MsgBox "vous n'avez rien sélectionné, recommencez !"
Exit Sub
End If
Selection.Copy
Nbligne = 21
MaColonne = Mid(Cells(1, L).Address, 2, InStr(2, Cells(1, L).Address, "$") - 2)
n = ActiveSheet.Range(MaColonne & "1").End(xlDown).Row
Sheets("b").Range("A1").End(xlDown).Offset(1, 0).Value = plage
Sheets("b").Select
ActiveWorkbook.ActiveSheet.Range(MaColonne & "1").End(xlDown).EntireRow.Select
lignedeb = Selection.Row
[B]ActiveWorkbook.ActiveSheet.Paste[/B] sa bloque ici quand j'éxécute
Rep1 = InputBox("Veuillez saisir un numéro", " 1.")
Sheets("b").Range(Cells(lignedeb, 1), Cells(lignedeb + Nbligne - 2, 1)).Select
Selection.Insert Shift:=xlToRight
Selection.Delete Shift:=xlToLeft
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Value = Rep1
Sheets("b").Range(Cells(lignedeb, 1), Cells(lignedeb + Nbligne - 2, 1)).Select
End Sub
Merci à tous par avance