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 bordure inferieure & macro

bordure inferieure & macro

9 réponses
Avatar
Yansec
Bonjour,

je recherche une instruction à l'interieur d'une macro qui me permette:
condition: quand la case G de la ligne contient une valeur (donc cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J soit
mise avec une bordure inferieure .

merci
Signaler un problème avec ce contenu

9 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
Elliac
Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me permette:
condition: quand la case G de la ligne contient une valeur (donc cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J soit
mise avec une bordure inferieure .

merci





Avatar
Yansec
Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me permette:
condition: quand la case G de la ligne contient une valeur (donc cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J soit
mise avec une bordure inferieure .

merci







Avatar
Elliac
Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me permette:
condition: quand la case G de la ligne contient une valeur (donc cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J soit
mise avec une bordure inferieure .

merci












Avatar
Yansec
En fait, rien ne se passe, le curseur vient se placer dans la colonne G sur
la derniere ligne

"Elliac" a écrit dans le message de news:

Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de
news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me
permette:
condition: quand la case G de la ligne contient une valeur (donc
cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J
soit
mise avec une bordure inferieure .

merci














Avatar
Elliac
Peux-tu publier un bout de ton fichier via cjoint.com ?

Camille

"Yansec" wrote:

En fait, rien ne se passe, le curseur vient se placer dans la colonne G sur
la derniere ligne

"Elliac" a écrit dans le message de news:

Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de
news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me
permette:
condition: quand la case G de la ligne contient une valeur (donc
cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J
soit
mise avec une bordure inferieure .

merci



















Avatar
cousinhub
Bonjour Camille,
l'erreur semble provenir de :
If Range("G1") <> "" Then
ne vaut-il mieux pas le remplacer par

If Range("G" & ActiveCell.Row) <> "" Then
ainsi que la ligne :
While ActiveCell.Row <> der
par :

While ActiveCell.Row <= der
Bonne semaine

Peux-tu publier un bout de ton fichier via cjoint.com ?

Camille

"Yansec" wrote:

En fait, rien ne se passe, le curseur vient se placer dans la colonne G sur
la derniere ligne

"Elliac" a écrit dans le message de news:

Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de
news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me
permette:
condition: quand la case G de la ligne contient une valeur (donc
cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J
soit
mise avec une bordure inferieure .

merci



















Avatar
Elliac
Bonjour,

Enfin j'ai fait un peu vite il faut remplacer
If Range("G1")<> "" Then
par
If ActiveCell <> "" Then

Camille

"cousinhub" wrote:

Bonjour Camille,
l'erreur semble provenir de :
If Range("G1") <> "" Then
ne vaut-il mieux pas le remplacer par

If Range("G" & ActiveCell.Row) <> "" Then
ainsi que la ligne :
While ActiveCell.Row <> der
par :

While ActiveCell.Row <= der
Bonne semaine

Peux-tu publier un bout de ton fichier via cjoint.com ?

Camille

"Yansec" wrote:

En fait, rien ne se passe, le curseur vient se placer dans la colonne G sur
la derniere ligne

"Elliac" a écrit dans le message de news:

Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message de
news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me
permette:
condition: quand la case G de la ligne contient une valeur (donc
cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne J
soit
mise avec une bordure inferieure .

merci






















Avatar
Yansec
Bonsoir
et tout d'abord merci pour vos 2 soluces
que j'ai essayé à tour de rôle.
les 2 marchent
la solution de "cousinhub" est plus aboutie car , ta solution , Camille
bienque fonctionnant bien ne met pas de bordure sur la derniere ligne du
tableau.
en tout cas, merci à vous pour le temps passé dessus
@++
"Elliac" a écrit dans le message de news:

Bonjour,

Enfin j'ai fait un peu vite il faut remplacer
If Range("G1")<> "" Then
par
If ActiveCell <> "" Then

Camille

"cousinhub" wrote:

Bonjour Camille,
l'erreur semble provenir de :
If Range("G1") <> "" Then
ne vaut-il mieux pas le remplacer par

If Range("G" & ActiveCell.Row) <> "" Then
ainsi que la ligne :
While ActiveCell.Row <> der
par :

While ActiveCell.Row <= der
Bonne semaine

Peux-tu publier un bout de ton fichier via cjoint.com ?

Camille

"Yansec" wrote:

En fait, rien ne se passe, le curseur vient se placer dans la colonne
G sur
la derniere ligne

"Elliac" a écrit dans le message de
news:

Quel est le problème ?

"Yansec" wrote:

Re-bonjour,

merci pour ta réponse.
je viens d'essayer mais ça ne marche pas.
pourtant , ta formule m'a l'air correcte.
je ne comprend pas.
Est-ce du à Excel 97 ??

benoit
"Elliac" a écrit dans le message
de
news:

Bonjour,

Sub Bordure()
der = Range("a50000").End(xlUp).Row
Range("g2").Select
While ActiveCell.Row <> der
If Range("G1") <> "" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)) _
.Borders(xlEdgeBottom).Weight = xlThin
End If
ActiveCell.Offset(1).Select
Wend
End Sub

Camille

"Yansec" wrote:

Bonjour,

je recherche une instruction à l'interieur d'une macro qui me
permette:
condition: quand la case G de la ligne contient une valeur (donc
cellule
non vide)
résultat: la ligne correspondante, de la colonne A à la colonne
J
soit
mise avec une bordure inferieure .

merci
























Avatar
cousinhub
PS: merci pour le retour, mais tout le mérite revient à Camille, je n'ai
fait qu'apporter quelques modifications mineures
Amicalement

Bonsoir
et tout d'abord merci pour vos 2 soluces
que j'ai essayé à tour de rôle.
les 2 marchent
la solution de "cousinhub" est plus aboutie car , ta solution , Camille
bienque fonctionnant bien ne met pas de bordure sur la derniere ligne du
tableau.
en tout cas, merci à vous pour le temps passé dessus
@++