Discussion :

[Montellano]

Bonjour

N'ayant pas trouvé la solution dans le forum, je vous soumets mon problème.

Le but : Sélectionner une seule ligne dans une feuille excel à partir d'un module VBA quand cette ligne traverse une série de cellules fusionnées.

A la souris dans une feuille, ça ne pose pas de problème, mais quand on exécute une macro, ce sont toutes les lignes des cellules fusionnées qui sont sélectionnées.

Je pense que vous allez me trouver une solution !!

Merci par avance pour vos propositions.

Jean Marc en Andalousie
www.haciendalamorena.com

[kiki29]

Salut, cela pourrait t'aider

[Montellano]

Bonjour KIKI29

Je viens de regarder la discussion que tu me signale mais je ne trouve pas la réponse à mon problème.
Voila un exemple :
Fusionner les cellules de C11 à C20 et ensuite executer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Select_ligne()
 
    Rows("15:15").Select  'Selectionne une ligne dans la plage de cellules fusionnées
End Sub

La sélection d'une ligne qui coupe la fusion ne se fera pas !! ce sont les lignes 11 à 20 qui seront sélectionnées !

Il doit bien y avoir une solution.

à plus
Jean Marc en Andalousie
www.haciendalamorena.com

[patricktoulon]

non a proprement parler il n'y en a pas

si plusieurs lignes sont présentes dans une cellules fusionnée la sélection se fait sur le groupe de ligne

tu a quand même la possibilité de sectionner la plage de la ligne avant fusion et après fusion a toi après de reconstruire l'adresse
et la tu aura ta sélection
sachant que des cellules fusionnées porte le nom de la 1ere cellule en haut a gauche il est très facile de déterminer le reste a sélectionner
un peu comme ceci heu... non tout a fait comme ceci:
sélection étant une cellule fusionnée qui a été sélectionnée bien sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
ligne = Selection.Row
col = Selection.Column
col2 = Selection.Column + Selection.Columns.Count
debut = Range(Cells(ligne, 1), Cells(ligne, col - 1)).Address
fin = Range(Cells(ligne, col2), Cells(ligne, Columns.Count)).Address
Range(debut & "," & Selection.Address & "," & fin).Select
End Sub

[Montellano]

Bonsoir Patrick

Ca ne répond pas à mes besoin ! Car mon tableau est constitué d'une multitude de groupes de cellules fusionnées verticalement en divers endroits.
Je viens d'essayer de joindre un fichier partiel de mon tableau, mais ce que je souhaiterai, c'est d'avoir une ligne sélectionnée comme quand on clique sur le numéro d'une ligne avec la souris.
Par exemple sur mon tableau, (si la copie du fichier est bonne) je veux sélectionner la ligne du 20 Juillet, je clique sur le numéro 14 des lignes.

Classeur1.xlsm

Si ce n'est pas possible, je continuerais en ne sélectionnent qu'une cellule sur la ligne, mais c'est moins visible que la ligne.

Merci tout de même pour ta proposition.

Bien cordialement

Jean Marc en Andalousie
www.haciendalamorena.com

[patricktoulon]

re

tu es sérieux la!!?

tu sais qu'il y a un enregistreur de macro dans ton excel ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub SELECTIONNE_LA_LIGNE14()
        Rows("15:15").Select  'Selectionne une ligne dans la plage de cellules fusionnées
End Sub