bonjour les champions :)
=20
Voici ma question
Les lignes suivants de macro, v=E9rifient de la premi=E8re=20
ligne jusqu'=E0 la derni=E8re ligne de mon rapport
Dim derniereligne As Long, i As Long
=20
derniereligne =3D [b65536].End(xlUp).Row
For i =3D 1 To derniereligne
If Cells(i, 4).Value =3D "" Then
If Cells(i, 2).Value =3D Cells(i - 1, 2).Value Then
Cells(i, 4).Value =3D Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence=20
la v=E9rification de la derni=E8re ligne de mon rapport=20
jusqu'=E0 la premi=E8re ligne.
Le nombre de lignes de mon rapport est variable.
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
Philippe.R
Bonjour Guylaine, Il devrait suffire de modifier ainsi : For i = derniereligne to 1 step-1 -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Guylaine" a écrit dans le message de news:028401c3a6c9$b3e62e70$ bonjour les champions :)
Voici ma question Les lignes suivants de macro, vérifient de la première ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row For i = 1 To derniereligne If Cells(i, 4).Value = "" Then If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence la vérification de la dernière ligne de mon rapport jusqu'à la première ligne. Le nombre de lignes de mon rapport est variable.
Merci à l'avance.
Bonjour Guylaine,
Il devrait suffire de modifier ainsi :
For i = derniereligne to 1 step-1
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Guylaine" <boimic@cooptel.qc.ca> a écrit dans le message de
news:028401c3a6c9$b3e62e70$a001280a@phx.gbl...
bonjour les champions :)
Voici ma question
Les lignes suivants de macro, vérifient de la première
ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row
For i = 1 To derniereligne
If Cells(i, 4).Value = "" Then
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence
la vérification de la dernière ligne de mon rapport
jusqu'à la première ligne.
Le nombre de lignes de mon rapport est variable.
Bonjour Guylaine, Il devrait suffire de modifier ainsi : For i = derniereligne to 1 step-1 -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Guylaine" a écrit dans le message de news:028401c3a6c9$b3e62e70$ bonjour les champions :)
Voici ma question Les lignes suivants de macro, vérifient de la première ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row For i = 1 To derniereligne If Cells(i, 4).Value = "" Then If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence la vérification de la dernière ligne de mon rapport jusqu'à la première ligne. Le nombre de lignes de mon rapport est variable.
Merci à l'avance.
Guylaine
Merci je l'essaie à l'instant
Bonne journée!
-----Message d'origine----- Bonjour Guylaine, Il devrait suffire de modifier ainsi : For i = derniereligne to 1 step-1 -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Guylaine" a écrit dans le message de
news:028401c3a6c9$b3e62e70$ bonjour les champions :)
Voici ma question Les lignes suivants de macro, vérifient de la première ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row For i = 1 To derniereligne If Cells(i, 4).Value = "" Then If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence la vérification de la dernière ligne de mon rapport jusqu'à la première ligne. Le nombre de lignes de mon rapport est variable.
Merci à l'avance.
.
Merci je l'essaie à l'instant
Bonne journée!
-----Message d'origine-----
Bonjour Guylaine,
Il devrait suffire de modifier ainsi :
For i = derniereligne to 1 step-1
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Guylaine" <boimic@cooptel.qc.ca> a écrit dans le message
de
news:028401c3a6c9$b3e62e70$a001280a@phx.gbl...
bonjour les champions :)
Voici ma question
Les lignes suivants de macro, vérifient de la première
ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row
For i = 1 To derniereligne
If Cells(i, 4).Value = "" Then
If Cells(i, 2).Value = Cells(i - 1, 2).Value
Then
Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence
la vérification de la dernière ligne de mon rapport
jusqu'à la première ligne.
Le nombre de lignes de mon rapport est variable.
-----Message d'origine----- Bonjour Guylaine, Il devrait suffire de modifier ainsi : For i = derniereligne to 1 step-1 -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Guylaine" a écrit dans le message de
news:028401c3a6c9$b3e62e70$ bonjour les champions :)
Voici ma question Les lignes suivants de macro, vérifient de la première ligne jusqu'à la dernière ligne de mon rapport
Dim derniereligne As Long, i As Long
derniereligne = [b65536].End(xlUp).Row For i = 1 To derniereligne If Cells(i, 4).Value = "" Then If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, 4).Value = Cells(i - 1, 4).Value
Je voudrais que la macro fasse l'inverse qu'elle commence la vérification de la dernière ligne de mon rapport jusqu'à la première ligne. Le nombre de lignes de mon rapport est variable.
