Si valeur d'une cellule=... alors copier la ligne entiere
Bonjour,
je debute en VBA et je n'arrive pas a resoudre mon probleme...
J'ai deux documents excel contenant des informations sur la date du 01/01/2013
Je souhaite que ma macro fasse les actions suivantes :
dans le premier document, pour chaque ligne, si la cellule H contient la date du 01/01/2013 alors copier la ligne entiere et la coller dans le document 2, feuille 2
dans le document 2, meme action et copier feuille 2
Ainsi je peux rassembler toutes les lignes correspondant a la date du 01/01/2013 dans un meme document.
J'ai commencer le code pour la premiere partie mais cela ne fonctionne pas. Je n'arrive pas a copier la ligne. J'ai bien verifie les noms des documents et feuilles inclus dans le code
Sub plot()
Dim nbl As Long
Dim a As Integer
a = 1
Windows("Shadow Price and SMP - 31122012.xls").Activate
nbl = Workbooks("Shadow Price and SMP - 31122012.xls").Worksheets("Shadow Price and SMP").UsedRange.Rows.Count
For i = 1 To nbl
If Workbooks("Shadow Price and SMP - 31122012.xls").Worksheets("Shadow Price and SMP").Cells(i, "H").Value = "01/01/2013" Then
Rows("i:i").Select
Selection.Copy
a = a + 1
Windows("Shadow Price and SMP - 01012013.xls").Activate
Sheets("Sheet1").Select
Rows("a:a").Select
ActiveSheet.Paste
End If
Next
End Sub
Merci d'avance pour votre aide
Bonjour
Si tu avais joint tes 2 classeurs,il serait plus simple de t’aider. Je vois néanmoins quelques erreurs dans ton code :
Au lieu de …...Value = "01/01/2013" Then
Essaie plutôt :
.Value = CDate("1 / 1 / 2013") ThenDe même pour Rows("i:i").Select et Rows("a:a").Select qu’il te faut remplacer par
Rows(i & ":" & i).Select
Rows(i & ":" & i).SelectBye !
Bonjour !
Merci
Mais la boucle For ne semble pas fonctionner, Il ne me copie qu'une seule ligne alors que mon document en contient plusieurs repondant a la condition....
Auriez vous une idee ?
Bonjour
Non, je ne vois pas. Sans les fichiers, je ne peux pas t'aider davantage.
Désolé !
Bye !