Colage

[PepT]

Bonjour a tous
jai les yeux qui piquent!!
Qlq1 voit où est le pb?
le colage final ne se fait pas
Sub aze()
Dim toto As String

NSAIGE = Range("B2").Value
Workbooks.Open ("C:\Documents and Settings\bcap.xls")
For n = 3 To Range("A1").End(xlDown).Row
If Cells(n, 1).Value = NSAIGE Then
Cells(n, 1).Offset(0, 2).Select
Selection.Copy
Windows("Classeur21.xls").Activate
For i = 1 To Range("d1").End(xlDown).Row
If Cells(i, 1) = "TRA08F" Then
Range(i, 1).Offset(0, 4).Select
ActiveSheet.Paste

End If
Next
End If
Next
End Sub

 

[cbea]

Re : Colage

Bonjour PepT,

Pourrais-tu me donner le nom du classeur dans lequel se trouve cette procédure ainsi que le nom de la feuille utilisée dans ce classeur ?

Merci

 

[GIBI]

Re : Colage

Salut,

la syntaxe du range n'est pas correcte

il faut écrire cells(i, 1).Offset(0, 4).Select à la place de Range(i, 1).Offset(0, 4).Select


GIBI

 

[PepT]

Re : Colage

Merci de votre aide,
alors le classeur ds lequel se trouve la procedure est classeur21.xls et le nom de la feuiile c'est le NSAIGE soit la valeur de la cellule B2.
et pour la synthaxe que tu ma donné GIBI je lavais deja essaye et elle ne fonctionne pas non plus, le collage ne s'effectue pas, mais le copiage est enregistré...

 

[cbea]

Re : Colage

Bonjour PepT, GIBI,

Pourrais-tu nous joindre un extrait de tes fichiers car ce serait plus facile pour résoudre ton problème ?

Merci

 

[tototiti2008]

Re : Colage

Bonjour à tous,
visiblement, tu gères 2 classeurs. Je pense que dans ton code, tu devrais réactiver le classeur bcap.xls, par exemple avant le 2ème next...

 

[PepT]

Re : Colage

voila les 2fichiers (leur nom a changé pb de confidentialite)
donc voila jessaye de copier la valeur en C3 de BCAP2.xls (puisque A3="31") et de la coller ds class(1).xls) en I,i si D,i="TRA08F"