Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Tous les jours

Tous les jours

17 réponses
Avatar
Gege
Bonjour, je souhaite cr=E9er une proc qui me tire un trait=20
dans mon fichier =E0 chaque changement de jour.
J'ai un tableau A =E0 E
les dates se trouvent en A.
Merci
Gege
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
1 2
Avatar
Pascal Engelmajer
Salut Gégé,
Sub souligne()
'après selection du premier jour dans la colonne des jours
'
Dim debut As Range
Dim fin As Range
Dim plage As Range
Dim memNo
Dim fl As Boolean
Set debut = ActiveCell
Set fin = Cells(65535, debut.Column).End(xlUp) '.Offset(1, 0)
Set plage = Range(debut, fin)
Set cell = plage(plage.Count)
MsgBox cell.Address
memNo = cell.Value
fl = False
Do Until cell.Row = debut.Row
Do While cell.Value = memNo _
Or cell.Interior.ColorIndex = 15 _
Or IsEmpty(cell)
'pour sauter les lignes déjà soulignées ou vides
If cell.Borders(xlEdgeBottom).LineStyle <> xlNone _
Or IsEmpty(cell) Then fl = True
Set cell = cell.Offset(-1, 0)
Loop
memNo = cell.Value
MsgBox memNo
If Not fl Then
With cell.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 4 'par exemple
End With
If cell.Row > debut.Row + 1 Then Set cell = cell.Offset(-2, 0)
fl = False
End If
Loop
End Sub




--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Gege" a écrit dans le message de news:
047701c3c963$55d98590$
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.
Merci
Gege
Avatar
Gege
Merci beaucoup Pascal
Gege

-----Message d'origine-----
Salut Gégé,
Sub souligne()
'après selection du premier jour dans la colonne des
jours

'
Dim debut As Range
Dim fin As Range
Dim plage As Range
Dim memNo
Dim fl As Boolean
Set debut = ActiveCell
Set fin = Cells(65535, debut.Column).End
(xlUp) '.Offset(1, 0)

Set plage = Range(debut, fin)
Set cell = plage(plage.Count)
MsgBox cell.Address
memNo = cell.Value
fl = False
Do Until cell.Row = debut.Row
Do While cell.Value = memNo _
Or cell.Interior.ColorIndex = 15 _
Or IsEmpty(cell)
'pour sauter les lignes déjà soulignées ou
vides

If cell.Borders(xlEdgeBottom).LineStyle <>
xlNone _

Or IsEmpty(cell) Then fl = True
Set cell = cell.Offset(-1, 0)
Loop
memNo = cell.Value
MsgBox memNo
If Not fl Then
With cell.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 4 'par exemple
End With
If cell.Row > debut.Row + 1 Then Set cell =
cell.Offset(-2, 0)

fl = False
End If
Loop
End Sub




--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"Gege" a écrit dans le
message de news:

047701c3c963$55d98590$
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.
Merci
Gege


.



Avatar
JièL Goubert
Bonjoir(c) Gege

Le 23/12/2003 15:44 vous nous disiez ceci :
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.


Juste parceque je n'aime pas les macros inutilement superfétatoires ;-)

Sélectionne ta plage, menu Format, Mise en forme conditionnelle, choisir
"La formule est", taper "=$A2<>$A1" (sans les "), bouton Format, onglet
Bordure, choisir le trait... Ok, Ok

Merci


--
JièL Du club des AMIS*
AMIS : Anti Macros Inutilement Superfétatoires

Avatar
Alpha
Bonjour JièL
Le pb est que ta proc ne trace pas le trait à chaque changement de date,
ceci pour marquer juste les parties journalières.
Alpha

"JièL Goubert" a écrit dans le message de
news:
Bonjoir(c) Gege

Le 23/12/2003 15:44 vous nous disiez ceci :
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.


Juste parceque je n'aime pas les macros inutilement superfétatoires ;-)

Sélectionne ta plage, menu Format, Mise en forme conditionnelle, choisir
"La formule est", taper "=$A2<>$A1" (sans les "), bouton Format, onglet
Bordure, choisir le trait... Ok, Ok

Merci


--
JièL Du club des AMIS*
AMIS : Anti Macros Inutilement Superfétatoires



Avatar
Ricky [MVP]
Bonjour *Alpha* (et tous les lecteurs)
| Bonjour JièL
| Le pb est que ta proc ne trace pas le trait à chaque changement de
| date, ceci pour marquer juste les parties journalières.
| Alpha

Mais si, il faut appliquer la mise en forme à toutes les cellules
concernées.


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Nicolas B.
Salut,

La formule devient alors :
=ENT($A1)<>ENT($A2)


Bonnes fêtes
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour JièL
Le pb est que ta proc ne trace pas le trait à chaque changement de
date, ceci pour marquer juste les parties journalières.
Alpha

"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) Gege

Le 23/12/2003 15:44 vous nous disiez ceci :
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.


Juste parceque je n'aime pas les macros inutilement superfétatoires
;-)

Sélectionne ta plage, menu Format, Mise en forme conditionnelle,
choisir "La formule est", taper "=$A2<>$A1" (sans les "), bouton
Format, onglet Bordure, choisir le trait... Ok, Ok

Merci


--
JièL Du club des AMIS*
AMIS : Anti Macros Inutilement Superfétatoires





Avatar
Nicolas B.
Le pb est que ta proc ne trace pas le trait à chaque changement de
date, ceci pour marquer juste les parties journalières.
Mais si, il faut appliquer la mise en forme à toutes les cellules

concernées.


Sauf si les dates contiennent aussi des heures :-)
23/12/2003 0:00
23/12/2003 12:00
...


Bonnes fêtes
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour *Alpha* (et tous les lecteurs)
Bonjour JièL
Le pb est que ta proc ne trace pas le trait à chaque changement de
date, ceci pour marquer juste les parties journalières.
Alpha


Mais si, il faut appliquer la mise en forme à toutes les cellules
concernées.



Avatar
Alpha
Bonjour Ricky,
j'ai testé sur un tableau A1:E20,
je pensais que le fait de saisir une date en A1, puis une date +1jour en A2,
tirerai automatiquement un trait (trait au dessus dans le format), mais à
chaque changement de date le trait se déplace, alors qu'apparemment Gege
souhaitait que le trait reste après avoir été tiré.
Alpha

"Ricky [MVP]" a écrit dans le message de news:

Bonjour *Alpha* (et tous les lecteurs)
| Bonjour JièL
| Le pb est que ta proc ne trace pas le trait à chaque changement de
| date, ceci pour marquer juste les parties journalières.
| Alpha

Mais si, il faut appliquer la mise en forme à toutes les cellules
concernées.


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm



Avatar
Alpha
Bonsoir Nicolas
En fait après avoir sélectionné A1:E20
Format etc...
Si tu saisis en A1 10/10/3 en A2 10/10/3 , le trait se tire quand même entre
les deux , alors que s'il s'agit de la même date, le trait ne devrait pas
être tiré. Le trait doit être tiré que s 'il y a changement de jour.
Alpha


"Nicolas B." a écrit dans le message de
news:
Salut,

La formule devient alors :
=ENT($A1)<>ENT($A2)


Bonnes fêtes
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour JièL
Le pb est que ta proc ne trace pas le trait à chaque changement de
date, ceci pour marquer juste les parties journalières.
Alpha

"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) Gege

Le 23/12/2003 15:44 vous nous disiez ceci :
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.


Juste parceque je n'aime pas les macros inutilement superfétatoires
;-)

Sélectionne ta plage, menu Format, Mise en forme conditionnelle,
choisir "La formule est", taper "=$A2<>$A1" (sans les "), bouton
Format, onglet Bordure, choisir le trait... Ok, Ok

Merci


--
JièL Du club des AMIS*
AMIS : Anti Macros Inutilement Superfétatoires









Avatar
Nicolas B.
Je n'arrive pas à reproduire ton cas : le trait est bien tiré après A2.
As-tu bien mis comme format de cellule le trait en bas (et pas en haut) ?


--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir Nicolas
En fait après avoir sélectionné A1:E20
Format etc...
Si tu saisis en A1 10/10/3 en A2 10/10/3 , le trait se tire quand
même entre les deux , alors que s'il s'agit de la même date, le trait
ne devrait pas être tiré. Le trait doit être tiré que s 'il y a
changement de jour.
Alpha


"Nicolas B." a écrit dans le
message de news:
Salut,

La formule devient alors :
=ENT($A1)<>ENT($A2)


Bonnes fêtes
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour JièL
Le pb est que ta proc ne trace pas le trait à chaque changement de
date, ceci pour marquer juste les parties journalières.
Alpha

"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) Gege

Le 23/12/2003 15:44 vous nous disiez ceci :
Bonjour, je souhaite créer une proc qui me tire un trait
dans mon fichier à chaque changement de jour.
J'ai un tableau A à E
les dates se trouvent en A.


Juste parceque je n'aime pas les macros inutilement superfétatoires
;-)

Sélectionne ta plage, menu Format, Mise en forme conditionnelle,
choisir "La formule est", taper "=$A2<>$A1" (sans les "), bouton
Format, onglet Bordure, choisir le trait... Ok, Ok

Merci


--
JièL Du club des AMIS*
AMIS : Anti Macros Inutilement Superfétatoires









1 2