Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news: %23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis
généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news:
%23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis
généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news:
%23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis
généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news:
%23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas
pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque
jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je
suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news:
%23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout
ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où
les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon
onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas
pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque
jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je
suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news:
%23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout
ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où
les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon
onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas
pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque
jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je
suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news:
%23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout
ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où
les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon
onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news: %23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a écrit dans le message de news:
45C62F5B-A184-46EC-A8BD-F7CCD0CCE704@microsoft.com...
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news: %23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:
Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a écrit dans le message de news:
45C62F5B-A184-46EC-A8BD-F7CCD0CCE704@microsoft.com...
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news: %23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:
Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a écrit dans le message de news:
45C62F5B-A184-46EC-A8BD-F7CCD0CCE704@microsoft.com...
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" <pensez@liege.be> a écrit dans le message de news: %23%2314cQvKFHA.4092@tk2msftngp13.phx.gbl...
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OCI7b$uKFHA.576@TK2MSFTNGP15.phx.gbl...
Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Si
c'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"claudem@freesurf.fr" <claudemfreesurffr@discussions.microsoft.com> a
écrit dans le message de news:
23DD6C0D-6A2B-4D15-9A5C-7A94C4EBCD98@microsoft.com...
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
données
sources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide
Bonjour,
presque... pour la source ca fonctionne super..mais pour la destination la
recopie continue en ligne 16..17...18... alors que je voudrais que ca
revienne "effacer" la ligne 10... c'est une boucle perpétuelle de données qui
efface la semaine précédente
Cordialement
"MichDenis" wrote:Bonsoir Claude,
Si j'ai compris ta demande ...
'-----------------------------------
Sub Copie()
Dim Source As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K1").CurrentRegion
End With
With Worksheets("Feuil2")
.Range("A10:K15").Clear
Source.Copy .Range("A10")
End With
Set Source = Nothing
End Sub
'-----------------------------------
Salutations!
"" a écrit dans le message de news:
Merci à vous deux....
mais mon projet a évolué et maintenant j'ai + dur... pour moi mais pas pour
vous ....
ma source évolue de +1 chaque jour et ma cible évolue bien de +1 chaque jour
mais avec un maximum de 5 (5 jours de la semaine)et reboucle en ligne 1 la
semaine suivante... j'espère être clair...
source A1:K1 ... A2:K2...
Destination A10:K10 ..A11:K11 ...A12:K12 .. A13:K13...A15:K15... et on
revient en A10:K10 et éternellement..
"MichDenis" wrote:
Bravo JPS... j'en laisse passer quelques-unes dans une journée... Je suis généreux envers moi-même !
;-))
Salutations!
"jps" a écrit dans le message de news: %23%
claude aura rectifié :
Set Source = .Range("A1:K1")
mais bon, certains ont des réveils plus difficiles que d'autres, tout ceci
étant fonction de ce qu'on a fait la veille...
jps
"MichDenis" a écrit dans le message de
news:OCI7b$Bonjour Claude,
Cette procédure est basé sur le fait que la colonne A de ta plage où les
cellules seront copiées n'est jamais vide! Sic'est le cas, avise on modifiera la procédure !
'----------------------------------
Sub Copie()
Dim Source As Range
Dim Dest As Range
With Worksheets("Feuil1")
Set Source = .Range("A1:K2")
End With
With Worksheets("Feuil2")
If .Range("A10") = "" Then
Set Dest = .Range("A10")
Else
Set Dest = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Source.Copy Dest
Set Source = Nothing: Set Dest = Nothing
End Sub
'-----------------------
Salutations!
"" a
écrit dans le message de news:
Bonjour à tous,
je cherche à recopier automatiquement une zone de cellules A1:K1
dans un autre onglet à un emplacement spécifique A10:K10 mais avec une
incrémentation auto. c'est a dire que tous les jours je remplace mes
donnéessources A1:K1 qui invariablement sont à la même place et dans mon onglet
cible chaque nouvelle ligne A10...A11...A12.. correspond à la nouvelle
journée qui ne doit pas écraser la précédente.
comment faire?
Merci de votre aide