Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

savoir si une ligne contient au moins une cellule fusionnée

T

tonio44

XLDnaute Nouveau
Bonjour,

je voudrais savoir si une ligne contient au moins une cellule fusionné.
j étant le numéro de ligne.

J'ai écris cela:
Code: 
If Range(Cells(j, 0), Cells(j, 0)).MergeCells = True Then 
msgbox "Il y a au moins une cellule fusionné" dans la ligne " & j
else
msgbox "Il n'y a pas de cellule fusionné dans la ligne " & j
end if

cela ne fonctionne pas.

J'ai essayé également:

Code: 
If Range(j:j).MergeCells = True Then 
msgbox "Il y a au moins une cellule fusionné" dans la ligne " & j
else
msgbox "Il n'y a pas de cellule fusionné dans la ligne " & j
end if

je suis obliger de tester toute les colonnes sinon.

Merci à vous
 
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour Tonio44

Effectivement, tu es obligé, me semble t'il, de faire une boucle sur toutes les colonnes

A+
 
Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour Tonio,
If Range(Cells(j, 0), Cells(j, 0)).MergeCells = True Then
Cliquez pour agrandir...
ça ne peut pas fonctionner, il n'existe pas de colonne (ou de ligne) portant le numéro zéro

voir fichier joint

à+
Philippe

Edit: Bonjour Bruno
 

Pièces jointes

  • 111.xls
    41 KB · Affichages: 62
  • 111.xls
    41 KB · Affichages: 63
  • 111.xls
    41 KB · Affichages: 70
Dernière édition:
Vote positif 0 Vote négatif
T

tonio44

XLDnaute Nouveau
Re : savoir si une ligne contient au moins une cellule fusionnée

Merci les gars.

Je vais me servir du code de phlaurent55 et l'adapter pour les colonnes. J'ai que 10 colonnes à vérifier.
Une ligne de code aurait été mieux ^^
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re : savoir si une ligne contient au moins une cellule fusionnée

Re,

Pour la ligne de code, tu peux le faire en appelant une fonction qui te renvoie Vrai/Faux

A+
 
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour à tous,
Salut Philippe,
Salut bruno,

Avec le code de PhLaurent55 :

VB: 
Sub Test_Merge()    'PhLaurent55 sur XLD
    For Lig = 1 To 100    ' ( Nb de lignes à adapter )
        For Col = 1 To 20    ' ( Nb de colonnes à adapter )
            If Cells(Lig, Col).MergeCells = True Then MsgBox ("La cellule " & Chr(64 + Col) & Lig & " est fusionnée")
        Next Col
    Next Lig
End Sub

A++ les amis
A + à tous
 
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour à tous,
une variante :
Code: 
Sub Test_Merge2()
   For Each c In ActiveSheet.UsedRange
           If c.MergeCells Then MsgBox ("La cellule " & c.Address & " est fusionnée")
    Next c
End Sub
A+
 
Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : savoir si une ligne contient au moins une cellule fusionnée

Re,

voir fichier joint

à+
Philippe

Edit: Bonjour Jean-Claude, David

Edit2: Nouvelle pièce jointe
 

Pièces jointes

  • 111.xls
    43.5 KB · Affichages: 67
  • 111.xls
    43.5 KB · Affichages: 67
  • 111.xls
    43.5 KB · Affichages: 70
Dernière édition:
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour à tous,
re Philippe,

Penses-tu qu'il soit possible lister les cellule fusionnées par plage de fusion :

Les cellules fusionnées sont : A3:A5, J4:J5, I8:I9, C11:F11, J11:J12, C20:H20
Cliquez pour agrandir...

A++
A + à tous
 
Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : savoir si une ligne contient au moins une cellule fusionnée

RE,
JCGL à dit:
Bonjour à tous,
re Philippe,

Penses-tu qu'il soit possible lister les cellule fusionnées par plage de fusion :



A++
A + à tous
Cliquez pour agrandir...
@ Jean-Claude:

c'est ce que j'ai essayé de faire mais sans y arriver
en fait For Each effectue un balayage de gauche à droite dans 1ère ligne
et passe ensuite aux lignes suivantes de haut en bas

c'est peut-être possible en stockant les coordonnées des plages fusionnées dans un tableau et ensuite effectuer un tri/classement avant de les afficher

ou alors, attendre que Roger passe par ce fil ................. je prépare le Doliprane en attendant sa venue

DOLIPRANE : Traitement symptomatique des douleurs d'intensité légère à modérée et/ou des états fébriles faisant suite à la tentative de comprendre les codes de Roger .......... et Bruno

à+
Philippe
 
Dernière édition:
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Re
Bonjour à tous,
re Philippe,

Penses-tu qu'il soit possible lister les cellule fusionnées par plage de fusion :

Les cellules fusionnées sont : A3:A5, J4:J5, I8:I9, C11:F11, J11:J12, C20:H20
Cliquez pour agrandir...
Il doit y avoir plus simple mais un 1er test effectué sur le dernier fichier de Philippe :
Code: 
Sub Plages_fusionnées()
Dim T(), d As Object, i As Long
   For Each c In ActiveSheet.Range("A1:J20")
           If c.MergeCells Then
                ReDim Preserve T(0 To i)
                T(i) = c.MergeArea.Address
                i = i + 1
           End If
    Next c
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(T)
        d(T(i)) = d(T(i))
    Next i
   MsgBox "les plages fusionnées sont " & Join(d.keys)
End Sub
A+
 
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Re re,
il y a plus simple :
Code: 
Sub Plages_fusionnées2()
Dim d As Object
    Set d = CreateObject("scripting.dictionary")
   For Each c In ActiveSheet.Range("A1:J20")
        If c.MergeCells Then d(c.MergeArea.Address) = d(c.MergeArea.Address)
    Next c
   MsgBox "les plages fusionnées sont : " & Join(d.keys)
End Sub
A+
 
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
Re : savoir si une ligne contient au moins une cellule fusionnée

Bonjour à tous,
Salut David,

Bravo l'ami...
Ceci correspond pleinement à ma demande.

A++
A + à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
Microsoft 365 Diviser une cellule non déjà fusionnée en plusieurs lignes
Réponses
0
Affichages
328
alexandre.o
A
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
194
GClaire
G
  • Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
281
fanch55
D
  • Question
XL 2010 suppression de lignes dans un fichier EXCEL via une routine en VBA
Réponses
2
Affichages
326
mapomme
D
  • Résolu(e)
XL 2016 VAB : Masquer les lignes si la cellule en J contient "clôturée"
Réponses
3
Affichages
326
daviddemetz72
D
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
288
Compte Supprimé 979
C
  • Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
375
TooFatBoy
F
  • Question
XL 2019 erreur 1004
Réponses
8
Affichages
275
florian50470
F
M
  • Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
243
mapomme
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
398
dadu35
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…