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 Une sélection spéciale de cellule

Une sélection spéciale de cellule

10 réponses
Avatar
nadia.b
Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des cellules par
la souris, et ...plus difficile, avec un second clic de souris, supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de vue que le
tableau comporte aussi des bordures et formules que je voudrais laisser
telles quelles.
Merci de vos aides
Nadia
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
SL
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à développer
avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des cellules
par
la souris, et ...plus difficile, avec un second clic de souris, supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de vue que
le
tableau comporte aussi des bordures et formules que je voudrais laisser
telles quelles.
Merci de vos aides
Nadia




Avatar
nadia.b
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à développer
avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des cellules
par
la souris, et ...plus difficile, avec un second clic de souris, supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais laisser
telles quelles.
Merci de vos aides
Nadia








Avatar
jps
à toi de choisir, nadia dans ces différents Weight :
xlHairline, xlThin, xlMedium ou xlThick.
jps (interim de SL déjà parti à l'apéro)

"nadia.b" a écrit dans le message de
news:%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer


avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules



par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé



cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser



telles quelles.
Merci de vos aides
Nadia












Avatar
nadia.b
J'ai trouvé
.Weight = xlThin
et à la palce
.Weight = xlMedium

Salut ;-)
Nadia


"nadia.b" a écrit dans le message de
news:%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer


avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules



par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé



cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser



telles quelles.
Merci de vos aides
Nadia












Avatar
SL
Re-bonjour

Il faut changer le .LineStyle = xlContinuous et le .Weight = xlThin
le mieux est peut-être d'enregistrer une macro avec ton style et de faire un
copier-coller dans le code.

Stéphane

"nadia.b" a écrit dans le message de news:
%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer
avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules
par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais laisser
telles quelles.
Merci de vos aides
Nadia












Avatar
SL
Pour l'apéro, c'est un peu tôt, juste 1 mn de retard 11:10 au lieu de 11:09
!
Merci jps pour l'intérim

Stéphane

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

à toi de choisir, nadia dans ces différents Weight :
xlHairline, xlThin, xlMedium ou xlThick.
jps (interim de SL déjà parti à l'apéro)

"nadia.b" a écrit dans le message de
news:%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer


avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules



par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé



cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser



telles quelles.
Merci de vos aides
Nadia















Avatar
CAP2
Un peu tôt ?!

c'est mal connaître jps !!

CAP2
Avatar
nadia.b
Merci vous deux,

Alors, je mets la pression (Pas celle de la Gueuze) ;-o)) et vous demande à
titre de rafraichissement, s'il est possible de limiter ces actions à des
séries de tableau distinct, dans la feuille de calcul ?
Nadia


"SL" a écrit dans le message de
news:
Re-bonjour

Il faut changer le .LineStyle = xlContinuous et le .Weight = xlThin
le mieux est peut-être d'enregistrer une macro avec ton style et de faire
un

copier-coller dans le code.

Stéphane

"nadia.b" a écrit dans le message de news:
%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer
avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As



Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix (avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules
par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser




telles quelles.
Merci de vos aides
Nadia
















Avatar
SL
nomme ton tableau (ici "plage") et ajoute ceci en début de code, si tu
double-cliques dans une cellule qui n'est pas dans la plage "plage" pas de
croix.

If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub

Stéphane

"nadia.b" a écrit dans le message de news:

Merci vous deux,

Alors, je mets la pression (Pas celle de la Gueuze) ;-o)) et vous demande
à
titre de rafraichissement, s'il est possible de limiter ces actions à des
séries de tableau distinct, dans la feuille de calcul ?
Nadia


"SL" a écrit dans le message de
news:
Re-bonjour

Il faut changer le .LineStyle = xlContinuous et le .Weight = xlThin
le mieux est peut-être d'enregistrer une macro avec ton style et de faire
un

copier-coller dans le code.

Stéphane

"nadia.b" a écrit dans le message de news:
%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer
avec un double-clic pour mettre la croix et un autre pour l'effacer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As



Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix
(avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules
par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de
vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser




telles quelles.
Merci de vos aides
Nadia




















Avatar
nadia.b
SL,
Merci beaucoup, Ca marche du tonnere (pas celui de l'orage)
Bonne Gueuze à tous.
Merci
Nadia


"SL" a écrit dans le message de
news:%
nomme ton tableau (ici "plage") et ajoute ceci en début de code, si tu
double-cliques dans une cellule qui n'est pas dans la plage "plage" pas de
croix.

If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub

Stéphane

"nadia.b" a écrit dans le message de news:

Merci vous deux,

Alors, je mets la pression (Pas celle de la Gueuze) ;-o)) et vous
demande


à
titre de rafraichissement, s'il est possible de limiter ces actions à
des


séries de tableau distinct, dans la feuille de calcul ?
Nadia


"SL" a écrit dans le message de
news:
Re-bonjour

Il faut changer le .LineStyle = xlContinuous et le .Weight = xlThin
le mieux est peut-être d'enregistrer une macro avec ton style et de
faire



un
copier-coller dans le code.

Stéphane

"nadia.b" a écrit dans le message de news:
%23T$
Cher SL,
merci pour ton coup de main. Excellent.
Juste une chose, comment fait-on pour changer la grosseur des traits?

Nadia


"SL" a écrit dans le message de
news:
Bonjour

Cela ne répond pas complétement au besoin mais voici une idée à
développer
avec un double-clic pour mettre la croix et un autre pour l'effacer
:






Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel





As
Boolean)
With Target.Borders(xlDiagonalDown)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With
With Target.Borders(xlDiagonalUp)
If .LineStyle = xlNone Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else: .LineStyle = xlNone
End If
End With
Cancel = True
End Sub

"nadia.b" a écrit dans le message de news:

Bonjour à tous,
Me voici avec une question. Comment faire pour mettre une croix
(avec
Format/cellule/Bordure) dans une cellule avec une sélection des
cellules
par
la souris, et ...plus difficile, avec un second clic de souris,
supprimé
cette même croix des cellules sélectionnées. En ne perdant pas de
vue
que


le
tableau comporte aussi des bordures et formules que je voudrais
laisser




telles quelles.
Merci de vos aides
Nadia