Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a écrit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y à une valeur en colonne D2, D3.... écrire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Daniel
"clyver" <clyver@msn.com> a écrit dans le message de news:
c20e3742-5d5e-4a68-8b04-d9e200bde1f7@d1g2000hsg.googlegroups.com...
bonjour le forum,
j'aimerai faire un code vba si il y à une valeur en colonne D2, D3....
écrire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la
feuille 2
merci
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a écrit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y à une valeur en colonne D2, D3.... écrire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
clyver
j'ai dans la feuille 1 cette macro
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub
est il possible d'inserer (Call test) mais ou ça??? merci
j'ai dans la feuille 1 cette macro
Private Sub Worksheet_Change(ByVal Target As Range)
' Saisie Date par Franck Marian 27 Février 2008
If Target.Address = Range("C3").Address Then
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents
End If
End Sub
est il possible d'inserer (Call test) mais ou ça??? merci
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub
est il possible d'inserer (Call test) mais ou ça??? merci
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Daniel
"clyver" <clyver@msn.com> a �crit dans le message de news:
c20e3742-5d5e-4a68-8b04-d9e200bde1f7@d1g2000hsg.googlegroups.com...
bonjour le forum,
j'aimerai faire un code vba si il y � une valeur en colonne D2, D3 ....
�crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la
feuille 2
merci
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a �crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y � une valeur en colonne D2, D3 .... �crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
Daniel.C
Quel est le mot de passe du projet VBA ? Daniel "clyver" a écrit dans le message de news:
Le lien a été créé: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Données" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
Quel est le mot de passe du projet VBA ?
Daniel
"clyver" <clyver@msn.com> a écrit dans le message de news:
572953bc-72ed-451e-aede-a7acc82c40bd@s13g2000prd.googlegroups.com...
Le lien a été créé: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro
qui m'archive les semaines sur la feuil1 "Equipements" lorsque je
change la valeur "C3" puis copie en feuil2 "Données" jaimerai que
votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Daniel
"clyver" <clyver@msn.com> a ?crit dans le message de news:
c20e3742-5d5e-4a68-8b04-d9e200bde1f7@d1g2000hsg.googlegroups.com...
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3....
?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la
feuille 2
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a écrit dans le message de news:
Le lien a été créé: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Données" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a �crit dans le message de news:
Le lien a �t� cr��: http://cjoint.com/?edq POmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn�es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Quel est le mot de passe du projet VBA ?
Daniel
"clyver" <clyver@msn.com> a �crit dans le message de news:
572953bc-72ed-451e-aede-a7acc82c40bd@s13g2000prd.googlegroups.com...
Le lien a �t� cr��: http://cjoint.com/?edq POmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro
qui m'archive les semaines sur la feuil1 "Equipements" lorsque je
change la valeur "C3" puis copie en feuil2 "Donn�es" jaimerai que
votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Daniel
"clyver" <clyver@msn.com> a ?crit dans le message de news:
c20e3742-5d5e-4a68-8b04-d9e200bde1f7@d1g2000hsg.googlegroups.com...
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3....
?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la
feuille 2
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a �crit dans le message de news:
Le lien a �t� cr��: http://cjoint.com/?edq POmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn�es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
Daniel.C
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé: http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver" <clyver@msn.com> a écrit dans le message de news:
c7f1b8c2-80c5-43fa-8a8b-fa38342a58bc@s19g2000prg.googlegroups.com...
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé: http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ?
Daniel
"clyver" <clyver@msn.com> a ?crit dans le message de news:
572953bc-72ed-451e-aede-a7acc82c40bd@s13g2000prd.googlegroups.com...
Le lien a ?t? cr??: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro
qui m'archive les semaines sur la feuil1 "Equipements" lorsque je
change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que
votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Daniel
"clyver" <clyver@msn.com> a ?crit dans le message de news:
c20e3742-5d5e-4a68-8b04-d9e200bde1f7@d1g2000hsg.googlegroups.com...
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3....
?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la
feuille 2
merci
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé: http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??: http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
Daniel "clyver" a ?crit dans le message de news:
bonjour le forum,
j'aimerai faire un code vba si il y ? une valeur en colonne D2, D3.... ?crire en E2 "2" en E3 "3"...
PS j'ai deja une macro qui copie la une zone de la feuille 1 sur la feuille 2 merci
Franck
clyver
On 3 avr, 20:42, "Daniel.C" wrote:
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub
voila merci de ton aide!
Amicalements Franck
On 3 avr, 20:42, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver" <cly...@msn.com> a écrit dans le message de news:
c7f1b8c2-80c5-43fa-8a8b-fa38342a5...@s19g2000prg.googlegroups.com...
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ?
Daniel
"clyver" <cly...@msn.com> a ?crit dans le message de news:
572953bc-72ed-451e-aede-a7acc82c4...@s13g2000prd.googlegroups.com...
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro
qui m'archive les semaines sur la feuil1 "Equipements" lorsque je
change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que
votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu
m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range)
' Saisie Date par Franck Marian 27 Février 2008
If Target.Address = Range("C3").Address Then
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents
End If
End Sub
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub
voila merci de ton aide!
Amicalements Franck
Daniel.C
Sub incremente() ' Saisie Date par Franck Marian 27 Février 2008 Dim c As Range, Ctr As Long Ctr = 1 With Sheets("Données") For Each c In .Range("D2", .Range("D65536").End(xlUp)) If c.Value > 0 Then Ctr = Ctr + 1 c.Offset(, 1) = Ctr End If Next End With End Sub
Daniel "clyver" a écrit dans le message de news:
On 3 avr, 20:42, "Daniel.C" wrote:
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub
voila merci de ton aide!
Amicalements Franck
Sub incremente()
' Saisie Date par Franck Marian 27 Février 2008
Dim c As Range, Ctr As Long
Ctr = 1
With Sheets("Données")
For Each c In .Range("D2", .Range("D65536").End(xlUp))
If c.Value > 0 Then
Ctr = Ctr + 1
c.Offset(, 1) = Ctr
End If
Next
End With
End Sub
Daniel
"clyver" <clyver@msn.com> a écrit dans le message de news:
9f334767-2f44-458b-bf8b-4c5903864b9f@s19g2000prg.googlegroups.com...
On 3 avr, 20:42, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver" <cly...@msn.com> a écrit dans le message de news:
c7f1b8c2-80c5-43fa-8a8b-fa38342a5...@s19g2000prg.googlegroups.com...
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ?
Daniel
"clyver" <cly...@msn.com> a ?crit dans le message de news:
572953bc-72ed-451e-aede-a7acc82c4...@s13g2000prd.googlegroups.com...
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro
qui m'archive les semaines sur la feuil1 "Equipements" lorsque je
change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que
votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test()
ctr = 1
For Each c In Range("D2", Range("D65536").End(xlUp))
If c <> "" Then
ctr = ctr + 1
c.Offset(, 1) = ctr
End If
Next c
End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu
m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range)
' Saisie Date par Franck Marian 27 Février 2008
If Target.Address = Range("C3").Address Then
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents
End If
End Sub
Sub incremente() ' Saisie Date par Franck Marian 27 Février 2008 Dim c As Range, Ctr As Long Ctr = 1 With Sheets("Données") For Each c In .Range("D2", .Range("D65536").End(xlUp)) If c.Value > 0 Then Ctr = Ctr + 1 c.Offset(, 1) = Ctr End If Next End With End Sub
Daniel "clyver" a écrit dans le message de news:
On 3 avr, 20:42, "Daniel.C" wrote:
Ca parait bien, comme tu as fait, qu'est-ce qui manque ? Daniel "clyver" a écrit dans le message de news:
re bonjour ,
je renvoie un nouveau lien sans pass
Le lien a été créé:http://cjoint.com/?edrUr0GfEF
merci
Quel est le mot de passe du projet VBA ? Daniel "clyver" a ?crit dans le message de news:
Le lien a ?t? cr??:http://cjoint.com/?edqPOmStKT
Bonjour, Daniel je te joint mon fichier car j'aimerai que la macro qui m'archive les semaines sur la feuil1 "Equipements" lorsque je change la valeur "C3" puis copie en feuil2 "Donn?es" jaimerai que votre macro test s'execute apres la mienne.
merci Franck
Bonjour.
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub Bonsoir Daniel!
lors de l'enregistrement ça rame
alors que si j'utilise t'as macro ci dessous
Sub test() ctr = 1 For Each c In Range("D2", Range("D65536").End(xlUp)) If c <> "" Then ctr = ctr + 1 c.Offset(, 1) = ctr End If Next c End Sub
elle est plus rapide par contre j'aimerai l'intégrer a ma page peux tu m'aider?
pour info ma macro d'origine de la feuil1(Equipements) était :
Private Sub Worksheet_Change(ByVal Target As Range) ' Saisie Date par Franck Marian 27 Février 2008 If Target.Address = Range("C3").Address Then Zone = Range("B65535").End(xlUp).Row - 6 Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents End If End Sub