Problème de d'initialisation avec xlup

[BIROULIG]

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

 

[jpb388]

Re : Problème de d'initialisation avec xlup

Bonjour à tous

moi j'aurai plutôt mis :

Workbooks("BILANcopy.xls").Sheets("TABLEAU").Range ("B" & Ligne).PasteSpecial xlPasteValues

mais sans fichier pour vérifier ?
a+

 

[flyonets44]

Re : Problème de d'initialisation avec xlup

Bonjour
Dim K as long
K = Range("A65536").End(xlUp).Row + 1
Set Rng = Range("A1").Resize(K, 1)
ces lignes de code permettent de dimensionner une zone à copier, à adapter
à ton besoin
K donne le numero de ligne de la dernière cellule non vides dans la colonne A
Cordialement
flyonets

 

[BIROULIG]

Re : RESOLU

Merci pour les réponses toujours très rapides.

Le code à jpb388 fonctionne Nickel.
et la solution à flyonets44 je me la garde en bibliothèque.

Kénavo BIROULIG