Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
bonsoir,
faire une boucle sur la plage en question et tester si .mergecells =true
p.e sur un modèle du genre
If Range("A1").MergeCells Then
Range("A1").MergeArea.select
End If
A adapter bien sur
A+Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
bonsoir,
faire une boucle sur la plage en question et tester si .mergecells =true
p.e sur un modèle du genre
If Range("A1").MergeCells Then
Range("A1").MergeArea.select
End If
A adapter bien sur
A+
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
bonsoir,
faire une boucle sur la plage en question et tester si .mergecells =true
p.e sur un modèle du genre
If Range("A1").MergeCells Then
Range("A1").MergeArea.select
End If
A adapter bien sur
A+Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon cas
de 30 points. Le rajout de cette détermination de la hauteur serait un plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le message de news:
ED823E11-1555-4570-A6D7-081945BCE36A@microsoft.com...
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon cas
de 30 points. Le rajout de cette détermination de la hauteur serait un plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon cas
de 30 points. Le rajout de cette détermination de la hauteur serait un plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le
message de news:
ED823E11-1555-4570-A6D7-081945BCE36A@microsoft.com...
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le
message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
il a été convenu, entre lui et moi, que lorsque denis est plongé dans un
sommeil réparateur, j'assure son intérim....aussi, écoute-moi bien,
68magnolia71 (dont je ne saurais dire lequel de ces nombres est le
département et l'âge....à moinsse que, et là j'anticipe sur la réplique de
twinley, il ne sagisse de mensurations), écoute-moi bien, disais-je, afin
que maintenant que notre québécois dévoué a fait le gros du travail, moi je
tente de t'expliquer comment utiliser cette procédure :
1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un autre
québécois, te parlerait d'environnement de programmation mais tu ne
l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence contenant
entre autres ton classeur sous la forme VBAProject(TonClasseur.xls) et en
dessous Feuil1, Feuil2....et ThisWorkbook.....tu suis ou dois-je récapépéter
depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques Insertion puis,
dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge ayant pour
titre le nom de ton classeur suivi de Module1 (Code) s'il s'agit du premier
Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je veux
dire, on va mettre dans ce module la proc de denis ; pour ce faire, il te
suffit de la copier de son post de 23.30 (ou ci-dessous mais à condition
d'en suppprimer tous les ">" et de la coller tout benoîtement dans ledit
Module
9) si la police du texte reste d'un beau noir, c'est que tes premiers pas de
cuisinière ès VBE ont été réussis ; si tu devais voir des lignes en rouge,
c'est que ta copie n'aura pas été bonne, donc méfiance
10) il faut maintenant enregistrer ton travail en cliquant l'icône Disquette
de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel de cette
même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter si la
sauce a bien pris ; tu es donc dans ton classeur ; dans la BO de celui-ci,
tu cliques Outils puis Macro puis Macros ; apparaît alors une fenêtre
"Macro" dans laquelle tu dois voir le nom de la macro de denis Sub
SelectCellulefusionnee() ; tu la mets en surbrillance dans l'emplacement où
s'installeront tous les noms des macros à venir si tu en crées d'autres puis
tu cliques le bouton Exécuter
13) ce point, malgré ses apparences, ne te portera pas malheur puisque, ö
miracle, toutes les cellules fusionnées de ton classeur sont passées à la
hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je te
dirai une autre fois comment on peut mettre un bouton dans son classeur et
exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais finalement
jamais dire lequel...etc..etc...) mais fais attention quand même aux
panneaux : ceux d'excel et de VBA n'ont rien à envier en difficulté à ceux
de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de mettre
leslignes contenant des cellules fusionnées à une certaine hauteur dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
il a été convenu, entre lui et moi, que lorsque denis est plongé dans un
sommeil réparateur, j'assure son intérim....aussi, écoute-moi bien,
68magnolia71 (dont je ne saurais dire lequel de ces nombres est le
département et l'âge....à moinsse que, et là j'anticipe sur la réplique de
twinley, il ne sagisse de mensurations), écoute-moi bien, disais-je, afin
que maintenant que notre québécois dévoué a fait le gros du travail, moi je
tente de t'expliquer comment utiliser cette procédure :
1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un autre
québécois, te parlerait d'environnement de programmation mais tu ne
l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence contenant
entre autres ton classeur sous la forme VBAProject(TonClasseur.xls) et en
dessous Feuil1, Feuil2....et ThisWorkbook.....tu suis ou dois-je récapépéter
depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques Insertion puis,
dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge ayant pour
titre le nom de ton classeur suivi de Module1 (Code) s'il s'agit du premier
Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je veux
dire, on va mettre dans ce module la proc de denis ; pour ce faire, il te
suffit de la copier de son post de 23.30 (ou ci-dessous mais à condition
d'en suppprimer tous les ">" et de la coller tout benoîtement dans ledit
Module
9) si la police du texte reste d'un beau noir, c'est que tes premiers pas de
cuisinière ès VBE ont été réussis ; si tu devais voir des lignes en rouge,
c'est que ta copie n'aura pas été bonne, donc méfiance
10) il faut maintenant enregistrer ton travail en cliquant l'icône Disquette
de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel de cette
même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter si la
sauce a bien pris ; tu es donc dans ton classeur ; dans la BO de celui-ci,
tu cliques Outils puis Macro puis Macros ; apparaît alors une fenêtre
"Macro" dans laquelle tu dois voir le nom de la macro de denis Sub
SelectCellulefusionnee() ; tu la mets en surbrillance dans l'emplacement où
s'installeront tous les noms des macros à venir si tu en crées d'autres puis
tu cliques le bouton Exécuter
13) ce point, malgré ses apparences, ne te portera pas malheur puisque, ö
miracle, toutes les cellules fusionnées de ton classeur sont passées à la
hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je te
dirai une autre fois comment on peut mettre un bouton dans son classeur et
exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais finalement
jamais dire lequel...etc..etc...) mais fais attention quand même aux
panneaux : ceux d'excel et de VBA n'ont rien à envier en difficulté à ceux
de la route
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23U%23Uf2tPFHA.3296@TK2MSFTNGP15.phx.gbl...
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le
message de news:
ED823E11-1555-4570-A6D7-081945BCE36A@microsoft.com...
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit dans le
message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
il a été convenu, entre lui et moi, que lorsque denis est plongé dans un
sommeil réparateur, j'assure son intérim....aussi, écoute-moi bien,
68magnolia71 (dont je ne saurais dire lequel de ces nombres est le
département et l'âge....à moinsse que, et là j'anticipe sur la réplique de
twinley, il ne sagisse de mensurations), écoute-moi bien, disais-je, afin
que maintenant que notre québécois dévoué a fait le gros du travail, moi je
tente de t'expliquer comment utiliser cette procédure :
1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un autre
québécois, te parlerait d'environnement de programmation mais tu ne
l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence contenant
entre autres ton classeur sous la forme VBAProject(TonClasseur.xls) et en
dessous Feuil1, Feuil2....et ThisWorkbook.....tu suis ou dois-je récapépéter
depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques Insertion puis,
dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge ayant pour
titre le nom de ton classeur suivi de Module1 (Code) s'il s'agit du premier
Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je veux
dire, on va mettre dans ce module la proc de denis ; pour ce faire, il te
suffit de la copier de son post de 23.30 (ou ci-dessous mais à condition
d'en suppprimer tous les ">" et de la coller tout benoîtement dans ledit
Module
9) si la police du texte reste d'un beau noir, c'est que tes premiers pas de
cuisinière ès VBE ont été réussis ; si tu devais voir des lignes en rouge,
c'est que ta copie n'aura pas été bonne, donc méfiance
10) il faut maintenant enregistrer ton travail en cliquant l'icône Disquette
de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel de cette
même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter si la
sauce a bien pris ; tu es donc dans ton classeur ; dans la BO de celui-ci,
tu cliques Outils puis Macro puis Macros ; apparaît alors une fenêtre
"Macro" dans laquelle tu dois voir le nom de la macro de denis Sub
SelectCellulefusionnee() ; tu la mets en surbrillance dans l'emplacement où
s'installeront tous les noms des macros à venir si tu en crées d'autres puis
tu cliques le bouton Exécuter
13) ce point, malgré ses apparences, ne te portera pas malheur puisque, ö
miracle, toutes les cellules fusionnées de ton classeur sont passées à la
hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je te
dirai une autre fois comment on peut mettre un bouton dans son classeur et
exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais finalement
jamais dire lequel...etc..etc...) mais fais attention quand même aux
panneaux : ceux d'excel et de VBA n'ont rien à envier en difficulté à ceux
de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement souffrir
pour la mettre en place car pour le moment les macros ce n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de mettre
leslignes contenant des cellules fusionnées à une certaine hauteur dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui explique
d'une manière COMPREHENSIBLE comment débuter dans les macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela m'arrangerais.
C'est vraiment c.. de ne pas comprendre ce que l'on fait.
Les explications que j'ai reçues c'est un peu comme le panneautage sur les
routes: il faut connaitre la route pour trouver les bons panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui permettrait de
sélectionner uniquement toutes les cellules fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinleyil a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit
dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de
mettre
leslignes contenant des cellules fusionnées à une certaine hauteur
dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait
un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit
dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinley
il a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23U%23Uf2tPFHA.3296@TK2MSFTNGP15.phx.gbl...
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit
dans le
message de news:
ED823E11-1555-4570-A6D7-081945BCE36A@microsoft.com...
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de
mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur
dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait
un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit
dans le
message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinleyil a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit
dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de
mettre
leslignes contenant des cellules fusionnées à une certaine hauteur
dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait
un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit
dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonsour® Max,
à la lecture de ces lignes à la grammaire et à l'orthographe trés orthodoxes
je pencherai pour un gentleman ;o)))
bien que pouvant etre itinérant entre le Haut-Rhin et la Saone et Loire
(je n'emets en cela aucun préjugé sur les moeurs des routiers ;o)))
L'utilisation de CDO ne permets pas de tracer davantage...
@+Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinleyil a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit
dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de
mettre
leslignes contenant des cellules fusionnées à une certaine hauteur
dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait
un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit
dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonsour® Max,
à la lecture de ces lignes à la grammaire et à l'orthographe trés orthodoxes
je pencherai pour un gentleman ;o)))
bien que pouvant etre itinérant entre le Haut-Rhin et la Saone et Loire
(je n'emets en cela aucun préjugé sur les moeurs des routiers ;o)))
L'utilisation de CDO ne permets pas de tracer davantage...
@+
Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinley
il a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23U%23Uf2tPFHA.3296@TK2MSFTNGP15.phx.gbl...
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit
dans le
message de news:
ED823E11-1555-4570-A6D7-081945BCE36A@microsoft.com...
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraiment
ma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
si
je veus sélectionner c'est pour une action qui dans mon cas est de
mettre
les
lignes contenant des cellules fusionnées à une certaine hauteur
dans mon
cas
de 30 points. Le rajout de cette détermination de la hauteur serait
un
plus
dans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
où
est quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71
Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" <68magnolia71@discussions.microsoft.com> a écrit
dans le
message de news:
1997EF4B-0E15-4F9C-B42C-4AB9DF9A1EEE@microsoft.com...
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plage
de cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
Bonsour® Max,
à la lecture de ces lignes à la grammaire et à l'orthographe trés orthodoxes
je pencherai pour un gentleman ;o)))
bien que pouvant etre itinérant entre le Haut-Rhin et la Saone et Loire
(je n'emets en cela aucun préjugé sur les moeurs des routiers ;o)))
L'utilisation de CDO ne permets pas de tracer davantage...
@+Salut à tous, salut jp,
Je suis à l'affût pour déterminer la civilité de 68magnolia71 avant de
m'inquiéter de son âge ou du nombre de pétales. Femme ou homme ?
De toute façon le langage adapté sera fleuri...comme ta brillante
tirade. Dumas, Balzac et Victor Hugo sont balayés, laminés.
à+twinleyil a été convenu, entre lui et moi, que lorsque denis est plongé
dans un sommeil réparateur, j'assure son intérim....aussi,
écoute-moi bien, 68magnolia71 (dont je ne saurais dire lequel de ces
nombres est le département et l'âge....à moinsse que, et là
j'anticipe sur la réplique de twinley, il ne sagisse de
mensurations), écoute-moi bien, disais-je, afin que maintenant que
notre québécois dévoué a fait le gros du travail, moi je tente de
t'expliquer comment utiliser cette procédure : 1) ouvrir ton classeur
2) enfoncer la touche Alt et la touche F11
3) apparaît alors le Visual Basic Editor (ce pompeux de marcotte, un
autre québécois, te parlerait d'environnement de programmation mais
tu ne l'écoutes pas et, comme tout le monde, tu contractes en VBE)
4) tu vois dans la partie gauche du VBE qu'il y a une arborescence
contenant entre autres ton classeur sous la forme
VBAProject(TonClasseur.xls) et en dessous Feuil1, Feuil2....et
ThisWorkbook.....tu suis ou dois-je récapépéter depuis le bédut?
5) tu mets VBAProject(TonClasseur.xls) en surbrillance
6) dans la barre d'outils de VBE, tout en haut, tu cliques
Insertion puis, dans le menu déroulant, Module
7) apparaît alors à gauche de l'arborescence une fenêtre vierge
ayant pour titre le nom de ton classeur suivi de Module1 (Code) s'il
s'agit du premier Module de ton classeur
8) maintenant, 68magniolia71 (dont je ne saurais toujours dire lequel
etc...etc...), on va mettre la dinde au whisky au four...enfin, je
veux dire, on va mettre dans ce module la proc de denis ; pour ce
faire, il te suffit de la copier de son post de 23.30 (ou ci-dessous
mais à condition d'en suppprimer tous les ">" et de la coller tout
benoîtement dans ledit Module
9) si la police du texte reste d'un beau noir, c'est que tes
premiers pas de cuisinière ès VBE ont été réussis ; si tu devais
voir des lignes en rouge, c'est que ta copie n'aura pas été bonne,
donc méfiance 10) il faut maintenant enregistrer ton travail en
cliquant l'icône Disquette de la barre d'outils de VBE
11) tu reviens ensuite dans ton classeur en cliquant l'icône Excel
de cette même BO, tout à gauche
12) la dinde étant quasiment cuite, il nous faut maintenant goûter
si la sauce a bien pris ; tu es donc dans ton classeur ; dans la BO
de celui-ci, tu cliques Outils puis Macro puis Macros ; apparaît
alors une fenêtre "Macro" dans laquelle tu dois voir le nom de la
macro de denis Sub SelectCellulefusionnee() ; tu la mets en
surbrillance dans l'emplacement où s'installeront tous les noms des
macros à venir si tu en crées d'autres puis tu cliques le bouton
Exécuter 13) ce point, malgré ses apparences, ne te portera pas
malheur puisque, ö miracle, toutes les cellules fusionnées de ton
classeur sont passées à la hauteur souhaitée
14) si tu es bien sage et que tu as bien fait tout comme il faut, je
te dirai une autre fois comment on peut mettre un bouton dans son
classeur et exécuter la macro en le cliquant...
et maintenant, bonne route, 68magniolia71 (dont je ne saurais
finalement jamais dire lequel...etc..etc...) mais fais attention
quand même aux panneaux : ceux d'excel et de VBA n'ont rien à envier
en difficulté à ceux de la route
jps
"MichDenis" a écrit dans le message de
news:%23U%Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.RowHeight = 30
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutations!
"68magnolia71" a écrit
dans le
message de news:
Bonsoir MichDenis,
Tous mes remerciements déjà pour cette macro. Je vais évidemement
souffrir pour la mettre en place car pour le moment les macros ce
n'est pas
vraimentma spécialité. Cependant j'ai envoyé le texte de ma question trop
vite et
sije veus sélectionner c'est pour une action qui dans mon cas est de
mettre
leslignes contenant des cellules fusionnées à une certaine hauteur
dans mon
casde 30 points. Le rajout de cette détermination de la hauteur serait
un
plusdans la macro.
Ceci étant écrit si tu pouvais me donner l'adresse d'un site qui
explique d'une manière COMPREHENSIBLE comment débuter dans les
macros, qui explique
oùest quoi avec quelques exemples et des copies d'écran, cela
m'arrangerais. C'est vraiment c.. de ne pas comprendre ce que l'on
fait.
Les explications que j'ai reçues c'est un peu comme le panneautage
sur les routes: il faut connaitre la route pour trouver les bons
panneaux.
En attendant encore mes remerciements.
68magnolia71Bonjour 68magnolia71,
'---------------------------------
Sub SelectCellulefusionnee()
Dim Rg As Range, Rg1 As Range
Set Rg = Range("A10:H200")
For Each c In Rg
If c.MergeCells Then
If Rg1 Is Nothing Then
Set Rg1 = c.MergeArea
Else
Set Rg1 = Union(Rg1, c)
End If
End If
Next
Rg1.Select
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'---------------------------------
Salutatins!
"68magnolia71" a écrit
dans le
message de news:
Je suis à la recherche d'une formule ou d'une macro qui
permettrait de sélectionner uniquement toutes les cellules
fusionnées sur une certaine
plagede cellules, par ex. A10:H200.
Tous mes remerciemets pour toute suggestion.
68magnolia71
