Sélection de cellules fusionnées

lBonjour respectivement bonsoir aux quatre correspondants qui s'occupent de
mon cas.

Parmi ces quatre il y en a un qui a partiellement démasqué ma localisation
géographique. En effet 68 est bien le Haut-Rhin, France. Peut-être que
MichDenis, dont j'ai appris qu'il est Québecquois, aurait pû trouver le reste
car Magnolia est le nom du bled aux US où j'ai travaillé pdt quelque temps.
71 est le code postal de l'Arkansas où se situe ce Magnolia.

Pour le restant il s'agit d'un retraité de sexe masculin qui a bien dépassé
ses 60 ans.
La syntaxe de Excel est bien plus précise (et ne supporte aucune erreur) que
celle que je pratique en français. De plus quand il y faute il n'y pas de
rouge ou de surbrillance jaune. Mais pour moi écrire en bon fraçais me semble
évident car pour moi ce n'est pas une matère tombée en désuétude.

Comme tous les retraités je n'ai pas beaucoup de temps mais je vais
m'atteler à la macro dès que possible.

Parfois on trouve des explications interessantes dans les forums. Ainsi
celle qui vioent de m'être adressée. La réponse servira sans doute à beaucoup
de personnes.
Même chose pour les fonctions: quand quelqu'un explique pourquoi il vaut
mieux employer une fonction plutôt qu'une autre on a le sentiment d'avancer
un peu.

Ceci étant écrit je soumets la question suivante au quatuor: peut-on faire
changer la couleur du texte de plusieurs cellules sur une ligne en fonction
de la survenue d'une valeur ou d'un texte dans une cellule de cette ligne?
Certaines cellules possèdent déjà une mise en forme condtionnelle. Pas de
macro STP.

Tous mes remerciements pour une 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