Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA pour faire une suite logique +1 si valeur en colonne D

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

10 réponses
Avatar
clyver
bonjour le forum,

j'aimerai faire un code vba si il y =E0 une valeur en colonne D2, D3....
=E9crire 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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
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
Avatar
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
Avatar
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" 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


Avatar
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


Avatar
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" 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




Avatar
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




Avatar
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



Avatar
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



Avatar
clyver
Bonsoir ,


Merci a toi bonne soirée.

amicalment Franck
Avatar
papace
"clyver" a écrit dans le message de
news:
Bonsoir ,


Merci a toi bonne soirée.

amicalment Franck