Bonjour à tous
Je solicite à nouveau vos connaissances car je veux copier plusieurs cellules qui sont adjacentes situé dans un fichier "A" pour les mettre dans un fichier "B" en les mettant a la ligne que je choisi en fontion de l'année avec la boite de dialogue mais ça bloque les valeurs vont 2 à 3 lignes en amont. Je pense que le problème vient de "xlup" qui a une valeur négative j'ai trouver le code sur le forum en l'adaptant mais en ne sachant pas exactement ce que je fais.
Merci Biroulig
Option Explicit
Public AN As Variant
Public Ligne As Variant
Sub Transférer()
Dim NomDeMonFichier As String
Dim NumLigne As Integer
NomDeMonFichier = ActiveWorkbook.Name
' AN = InputBox("Année à Prendre en Compte")
AN = Application.InputBox("Année à Prendre en Compte" & Chr(10) _
& "saisissez une année valide (0000)", "année", , , , , , 1)
On Error GoTo 1 'Gestion des Erreurs
Workbooks.Open Filename:=ActiveWorkbook.Path & "/" & "BILANcopy.xls"
Dim c As Object
Set c = Worksheets("TABLEAU").Range("A3:A29").FIND(AN)
Dim Ligne As Integer
Ligne = c.Row
With Workbooks(NomDeMonFichier).Sheets("Feuil2")
' COPY DE LA CELULLE ENTIERE
Range(.Cells(32, 2), .Cells(32, 20)).Copy
' COLLAGE DES VALEURS DES CELLULES COPIEES
Workbooks("BILANcopy.xls").Sheets("TABLEAU").Range("B" & Workbooks("BILANcopy.xls") _
.Sheets("TABLEAU").Range("B" & Ligne).End(xlUp).Row).PasteSpecial xlPasteValues
1 End With
End Sub
Je solicite à nouveau vos connaissances car je veux copier plusieurs cellules qui sont adjacentes situé dans un fichier "A" pour les mettre dans un fichier "B" en les mettant a la ligne que je choisi en fontion de l'année avec la boite de dialogue mais ça bloque les valeurs vont 2 à 3 lignes en amont. Je pense que le problème vient de "xlup" qui a une valeur négative j'ai trouver le code sur le forum en l'adaptant mais en ne sachant pas exactement ce que je fais.
Merci Biroulig
Option Explicit
Public AN As Variant
Public Ligne As Variant
Sub Transférer()
Dim NomDeMonFichier As String
Dim NumLigne As Integer
NomDeMonFichier = ActiveWorkbook.Name
' AN = InputBox("Année à Prendre en Compte")
AN = Application.InputBox("Année à Prendre en Compte" & Chr(10) _
& "saisissez une année valide (0000)", "année", , , , , , 1)
On Error GoTo 1 'Gestion des Erreurs
Workbooks.Open Filename:=ActiveWorkbook.Path & "/" & "BILANcopy.xls"
Dim c As Object
Set c = Worksheets("TABLEAU").Range("A3:A29").FIND(AN)
Dim Ligne As Integer
Ligne = c.Row
With Workbooks(NomDeMonFichier).Sheets("Feuil2")
' COPY DE LA CELULLE ENTIERE
Range(.Cells(32, 2), .Cells(32, 20)).Copy
' COLLAGE DES VALEURS DES CELLULES COPIEES
Workbooks("BILANcopy.xls").Sheets("TABLEAU").Range("B" & Workbooks("BILANcopy.xls") _
.Sheets("TABLEAU").Range("B" & Ligne).End(xlUp).Row).PasteSpecial xlPasteValues
1 End With
End Sub