si cellule AT=1 copier valeur cellule AR

[walyddu59]

Bonjour , le forum

Je réalise une macro pour mon stage , j'ai fini le début de la macro qui me permet normalement de copier par la biais d'une boucle les valeurs de la colonne AR si AT=1 sur la même ligne et d'ajouter un nouveaux classeur et collez les valeur de la colonne AR , la macro ne produit aucune erreur mais cela ne fonctionne pas je comprends pas pourquoi , j'ai tout revérifier mais rien n'y fait je bloque , si vous avez une solutions merci a vous de me la communiquer .

Sub Transfert()
 
Dim i As Integer
For i = 2 To i = 5000
If Feuil1.Cells(i, 36).Value = "1" Then
Cells(i, 36).Value.Copy


End If
Next

 Range("H2").Select
Selection.Value = Lenom
Workbooks.Add
Feuil1.Cells(i, 37).Paste
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="N:\Service RAMS - LCC\DN_Aff\Base de travail REX\Restitution qualité\" & Lenom & "F.xls"

End Sub

 

[walyddu59]

Re : si cellule AT=1 copier valeur cellule AR

re,

Oui j'ai bien verifier les colonnes mais se sont les bonnes , je joint un exemple pour plus de compréhension car la c'est vraiment bizarre.

 

[Pierrot93]

Re : si cellule AT=1 copier valeur cellule AR

Re,

pas de code dans ton classeur.... la colonne AR = 44 et non 36 comme utilisé dans la propriété "cells"....

 

[walyddu59]

Re : si cellule AT=1 copier valeur cellule AR

Re,

J'ai honte de moi lol , s'etait ca le problème depuis le debut lol , javais en faite masquer des colonnes et n'avais pas prit en compte c'est colonnes donc je me suis tromper sur ca , merci a toi pierrot93 .

bonne journée a+

 

[Pierrot93]

Re : si cellule AT=1 copier valeur cellule AR

Re,

si tu reprends ton 1er code, il y avait tout de même plusieurs problèmes.... rien qu'au début de la boucle...
bon courage à toi pour la suite....
@+