VBA pour faire une suite logique +1 si valeur en colonne D

Le
clyver
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
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
Daniel.C
Le #5425601
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"
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
Le #5425581
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
clyver
Le #5425431
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"
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
Le #5425421
Quel est le mot de passe du projet VBA ?
Daniel
"clyver"
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"
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
Le #5425331
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"
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"
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
Le #5425091
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver"
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"
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"
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
Le #5425011
On 3 avr, 20:42, "Daniel.C"
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver"
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"
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
Le #5424991
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"
On 3 avr, 20:42, "Daniel.C"
Ca parait bien, comme tu as fait, qu'est-ce qui manque ?
Daniel
"clyver"
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"
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



clyver
Le #5424981
Bonsoir ,


Merci a toi bonne soirée.

amicalment Franck
papace
Le #5430931
"clyver" news:
Bonsoir ,


Merci a toi bonne soirée.

amicalment Franck
Publicité
Poster une réponse
Anonyme