Microsoft 365 Sélection de plusieurs cellules sur même ligne

pierrejean

XLDnaute Barbatruc

• 8 Mai 2020

• #2

Bonjour arthour
Un essai
Il est possible également de sélectionner J13:L15

 

Pièces jointes

• selection_cellules.xlsm

  15.8 KB · Affichages: 10

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 8 Mai 2020

• #3

Bonjour Robert,
Merci d'être là
C'est nickel ... Un grand merci
lionel,

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Mai 2020

• #4

Je transmet à Robert

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2020

• #5

Bonjour arthour973, pardon Lionel, bonjour Robert, pardon Pierre

VB:

Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Intersect(ActiveCell, Range("B10:B19")) Is Nothing Then Exit Sub
[J13:L15].UnMerge
ActiveCell(1, 2).Resize(, 16).Select
[J13:L15].Merge
End Sub

A+

 

Pièces jointes

• selection_cellules(1).xlsm

  16.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 8 Mai 2020

• #6

pierrejean à dit:

Je transmet à Robert

Cliquez pour agrandir...

LOL, Bonjour pierrejean

Désolé de mon erreur
C'est nickel ... Un grand merci pierrejean
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 8 Mai 2020

• #7

Bonjour Gérard,
LOL on se sait plus si on est mâle ou femelle
Merci Gérard pour ton code nickel comme d'hab
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 8 Mai 2020

• #8

Re-Gérard
Je suis allé voir qui est ce "Merge" que je n'ai jamais connu parmi mes amis lol
Mais c'est quelqu'un de bien puisque ça fonctionne
Je viens d'apprendre encore une fois.
Merci gérard,
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2020

• #9

Il y en a qui ont horreur des cellules fusionnées, moi je m'en suis toujours accommodé.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 8 Mai 2020

• #10

Re-Gérard,

Effectivement, on en dit tellement de "mal" que je m'en sert le moins possible mais il arrive que je n'ai pas d'autre choix

 

Vote positif 0 Vote négatif