Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [HS] Petit défi pour cruciverbistes

[HS] Petit défi pour cruciverbistes

3 réponses
Avatar
garnote
Bonsoir tout le monde,

Le jeu consiste à croiser les noms des nombres
de 0 ( ZERO ) à 16 ( SEIZE ) de telle sorte que
la somme des nombres horizontaux soit égale
à la somme des nombres verticaux !
Voici la grille :

Sub Grille()
ActiveWindow.DisplayGridlines = False
With Range("A1:K11")
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.RowHeight = 20
.ColumnWidth = 3.5
End With
Set gris = Union(Range("A1,G1,H1,J1,A2,C2:H2,J2"), _
Range("G3:H3,J3,A4,C4,E4:G4,B5,I5:K5,B6:C6,E6:G6,I6,K6"), _
Range("B7:E7,G7,I8,K8,A9,C9:E9,G9:H9,A10:D10"), _
Range("H10:I10,K10,A11:E11,G11:I11,K11"))
gris.Interior.ColorIndex = 15
End Sub

;-)

Serge
Signaler un problème avec ce contenu

3 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
gee-dee-
Pfffff.....

Somme Hh
Somme Vh

* D O U Z E * * O * H

* E * * * * * * N * U

Q U I N Z E * * Z * I

* X * E * * * S E P T

C * Q U A T R E * * *

I * * F * * * I * T *

N * * * * T * Z E R O

Q U A T O R Z E * E *

* N * * * O * * S I X

* * * * D I X * * Z *

* * * * * S * * * E *



Maintenant si tu veux une solution par macro ????

modestement ......va falloir un peu plus de réflexion

;-)))




"garnote" a écrit dans le message de
news:mbjKb.27770$
Bonsoir tout le monde,

Le jeu consiste à croiser les noms des nombres
de 0 ( ZERO ) à 16 ( SEIZE ) de telle sorte que
la somme des nombres horizontaux soit égale
à la somme des nombres verticaux !
Voici la grille :

Sub Grille()
ActiveWindow.DisplayGridlines = False
With Range("A1:K11")
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.RowHeight = 20
.ColumnWidth = 3.5
End With
Set gris = Union(Range("A1,G1,H1,J1,A2,C2:H2,J2"), _
Range("G3:H3,J3,A4,C4,E4:G4,B5,I5:K5,B6:C6,E6:G6,I6,K6"), _
Range("B7:E7,G7,I8,K8,A9,C9:E9,G9:H9,A10:D10"), _
Range("H10:I10,K10,A11:E11,G11:I11,K11"))
gris.Interior.ColorIndex = 15
End Sub

;-)

Serge




Avatar
garnote
;-)))

Par macro, pas urgent !
Est-ce que tes mots croisés Excel sont revampés ?

Serge
Les plus beaux modèles mathématiques du monde
n'épuiseront jamais toute la richesse de la réalité.


Pfffff.....

Somme Hh
Somme Vh

* D O U Z E * * O * H

* E * * * * * * N * U

Q U I N Z E * * Z * I

* X * E * * * S E P T

C * Q U A T R E * * *

I * * F * * * I * T *

N * * * * T * Z E R O

Q U A T O R Z E * E *

* N * * * O * * S I X

* * * * D I X * * Z *

* * * * * S * * * E *



Maintenant si tu veux une solution par macro ????

modestement ......va falloir un peu plus de réflexion

;-)))




"garnote" a écrit dans le message de
news:mbjKb.27770$
Bonsoir tout le monde,

Le jeu consiste à croiser les noms des nombres
de 0 ( ZERO ) à 16 ( SEIZE ) de telle sorte que
la somme des nombres horizontaux soit égale
à la somme des nombres verticaux !
Voici la grille :

Sub Grille()
ActiveWindow.DisplayGridlines = False
With Range("A1:K11")
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.RowHeight = 20
.ColumnWidth = 3.5
End With
Set gris = Union(Range("A1,G1,H1,J1,A2,C2:H2,J2"), _
Range("G3:H3,J3,A4,C4,E4:G4,B5,I5:K5,B6:C6,E6:G6,I6,K6"), _
Range("B7:E7,G7,I8,K8,A9,C9:E9,G9:H9,A10:D10"), _
Range("H10:I10,K10,A11:E11,G11:I11,K11"))
gris.Interior.ColorIndex = 15
End Sub

;-)

Serge








Avatar
DanC
Bonsoir Garnote

Quel bel apéro ce petit jeu!

Salutations,
Danielle
"garnote" a écrit dans le message de
news:mbjKb.27770$
Bonsoir tout le monde,

Le jeu consiste à croiser les noms des nombres
de 0 ( ZERO ) à 16 ( SEIZE ) de telle sorte que
la somme des nombres horizontaux soit égale
à la somme des nombres verticaux !
Voici la grille :

Sub Grille()
ActiveWindow.DisplayGridlines = False
With Range("A1:K11")
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.RowHeight = 20
.ColumnWidth = 3.5
End With
Set gris = Union(Range("A1,G1,H1,J1,A2,C2:H2,J2"), _
Range("G3:H3,J3,A4,C4,E4:G4,B5,I5:K5,B6:C6,E6:G6,I6,K6"), _
Range("B7:E7,G7,I8,K8,A9,C9:E9,G9:H9,A10:D10"), _
Range("H10:I10,K10,A11:E11,G11:I11,K11"))
gris.Interior.ColorIndex = 15
End Sub

;-)

Serge