recopie de lignes sous Condition

Le
Michel TAF
Bonjour à tout le monde,

Voilà j'aimerai écrire en VBA, une condition du genre :

Dans une feuille excel, j'ai x lignes, certaines d'entre elles contiennent
en colonne A une date.
Comment faire une boucle sur la totalité de mes x lignes et faire un test :
si en colonne A ma cellule contient une date alors copier la ligne entière
dans un autre classeur en ligne N°1 par exemple. Ensuite on revient sur le
classeur de départ on test la ligne suivante et si c'est une date on copie
la ligne dans le second classeur en ligne N°2, Etc

Merci pour votre aide

--
Cordialement
Michel TAF
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #16354611
Bonsoir,
Copie cette sub pour copier ta ligne ayant une date
Sub ESTDATE()
For Each n In [a1:a10] ' a1: e10, ta plage de test
If IsDate(n) Then
n.EntireRow.Copy
' Procédure de collage dans ton autre classeur
End If
Next

--
Cordialement

End Sub
"Michel TAF" news:g5nl3e$gh2$
Bonjour à tout le monde,

Voilà j'aimerai écrire en VBA, une condition du genre :

Dans une feuille excel, j'ai x lignes, certaines d'entre elles contiennent
en colonne A une date.
Comment faire une boucle sur la totalité de mes x lignes et faire un test
:
si en colonne A ma cellule contient une date alors copier la ligne entière
dans un autre classeur en ligne N°1 par exemple. Ensuite on revient sur le
classeur de départ on test la ligne suivante et si c'est une date on copie
la ligne dans le second classeur en ligne N°2, Etc ...

Merci pour votre aide

--
Cordialement
Michel TAF




JPMonnier
Le #16355161
Un peu plus évolué
Sub pour copier d'un classeur à l'autre

Dim LIEU As Integer
Dim L, N As Range
Dim CLASS1, CLASS2 As Object

Sub ESTDATE()
Set CLASS1 = Workbooks("Classeur1").Worksheets("feuil1")
Set CLASS2 = Workbooks("classeur2").Worksheets("feuil1")
CLASS2.Activate
' cherche ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
Else: LIEU = 1
End If
Next L
' cherche les lignes ayant la date dans classeur1
For Each N In CLASS1.[a1:a10] '.Rows
If IsDate(N) Then
'copy la ligne dans presse papier
N.EntireRow.Copy
'colle la ligne dans classeur2
ActiveSheet.Paste Destination:=CLASS2.Rows(LIEU)
' mise à jour ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
End If
Next L
End If
Next N
End Sub
--
Cordialement


"Michel TAF" news:g5nl3e$gh2$
Bonjour à tout le monde,

Voilà j'aimerai écrire en VBA, une condition du genre :

Dans une feuille excel, j'ai x lignes, certaines d'entre elles contiennent
en colonne A une date.
Comment faire une boucle sur la totalité de mes x lignes et faire un test
:
si en colonne A ma cellule contient une date alors copier la ligne entière
dans un autre classeur en ligne N°1 par exemple. Ensuite on revient sur le
classeur de départ on test la ligne suivante et si c'est une date on copie
la ligne dans le second classeur en ligne N°2, Etc ...

Merci pour votre aide

--
Cordialement
Michel TAF




Michel TAF
Le #16362851
Merci JP,

je testerai dans 2 semaines, je fais un petit break

Michel

"JPMonnier" news:
Un peu plus évolué
Sub pour copier d'un classeur à l'autre

Dim LIEU As Integer
Dim L, N As Range
Dim CLASS1, CLASS2 As Object

Sub ESTDATE()
Set CLASS1 = Workbooks("Classeur1").Worksheets("feuil1")
Set CLASS2 = Workbooks("classeur2").Worksheets("feuil1")
CLASS2.Activate
' cherche ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
Else: LIEU = 1
End If
Next L
' cherche les lignes ayant la date dans classeur1
For Each N In CLASS1.[a1:a10] '.Rows
If IsDate(N) Then
'copy la ligne dans presse papier
N.EntireRow.Copy
'colle la ligne dans classeur2
ActiveSheet.Paste Destination:=CLASS2.Rows(LIEU)
' mise à jour ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
End If
Next L
End If
Next N
End Sub
--
Cordialement


"Michel TAF" news:g5nl3e$gh2$
> Bonjour à tout le monde,
>
> Voilà j'aimerai écrire en VBA, une condition du genre :
>
> Dans une feuille excel, j'ai x lignes, certaines d'entre elles


contiennent
> en colonne A une date.
> Comment faire une boucle sur la totalité de mes x lignes et faire un


test
> :
> si en colonne A ma cellule contient une date alors copier la ligne


entière
> dans un autre classeur en ligne N°1 par exemple. Ensuite on revient sur


le
> classeur de départ on test la ligne suivante et si c'est une date on


copie
> la ligne dans le second classeur en ligne N°2, Etc ...
>
> Merci pour votre aide
>
> --
> Cordialement
> Michel TAF
>
>



JPMonnier
Le #16363161
Alors bonnes vacances !
Tu auras tout oublié en 15 jours (hi hi !!)
--
Cordialement
Jean Pierre

"Michel TAF" news:g5q78b$bje$
Merci JP,

je testerai dans 2 semaines, je fais un petit break

Michel

"JPMonnier" news:
Un peu plus évolué
Sub pour copier d'un classeur à l'autre

Dim LIEU As Integer
Dim L, N As Range
Dim CLASS1, CLASS2 As Object

Sub ESTDATE()
Set CLASS1 = Workbooks("Classeur1").Worksheets("feuil1")
Set CLASS2 = Workbooks("classeur2").Worksheets("feuil1")
CLASS2.Activate
' cherche ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
Else: LIEU = 1
End If
Next L
' cherche les lignes ayant la date dans classeur1
For Each N In CLASS1.[a1:a10] '.Rows
If IsDate(N) Then
'copy la ligne dans presse papier
N.EntireRow.Copy
'colle la ligne dans classeur2
ActiveSheet.Paste Destination:=CLASS2.Rows(LIEU)
' mise à jour ou coller la ligne
For Each L In CLASS2.[a1:a1000]
If L <> "" Then
LIEU = L.Row + 1
End If
Next L
End If
Next N
End Sub
--
Cordialement


"Michel TAF" news:g5nl3e$gh2$
> Bonjour à tout le monde,
>
> Voilà j'aimerai écrire en VBA, une condition du genre :
>
> Dans une feuille excel, j'ai x lignes, certaines d'entre elles


contiennent
> en colonne A une date.
> Comment faire une boucle sur la totalité de mes x lignes et faire un


test
> :
> si en colonne A ma cellule contient une date alors copier la ligne


entière
> dans un autre classeur en ligne N°1 par exemple. Ensuite on revient sur


le
> classeur de départ on test la ligne suivante et si c'est une date on


copie
> la ligne dans le second classeur en ligne N°2, Etc ...
>
> Merci pour votre aide
>
> --
> Cordialement
> Michel TAF
>
>







Publicité
Poster une réponse
Anonyme