IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Target, range sur une cellule fusionnée [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2011
    Messages
    66
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2011
    Messages : 66
    Par défaut Target, range sur une cellule fusionnée
    Bonjour,

    Je n'arrive pas à utiliser ce code sur une cellule fusionnée.
    Pour des raisons de lisibilité, comme ma cellule A12 est trop petite je dois la fusionner de A12 à I12.
    Hors dans le code si je remplace Range("A12") par Range("A12:I12") cela ne fonctionne plus.

    Merci de m'aider

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
     
    Dim a()
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Target, Range("A12")) Is Nothing And Target.Count = 1 Then
        a = Application.Transpose(Sheets("Liste").Range("Prof"))
        Me.ComboBox1.List = a
        Me.ComboBox1.Height = Target.Height + 3
        Me.ComboBox1.Width = Target.Width
        Me.ComboBox1.Top = Target.Top
        Me.ComboBox1.Left = Target.Left
        Me.ComboBox1 = Target
        Me.ComboBox1.Visible = True
        Me.ComboBox1.Activate
        'Me.ComboBox1.DropDown    ' ouverture automatique au clic dans la cellule (optionel)
      Else
        Me.ComboBox1.Visible = False
      End If
    End Sub
    Private Sub ComboBox1_Change()
    If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
       Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
       Me.ComboBox1.DropDown
     End If
       ActiveCell.Value = Me.ComboBox1
    End Sub
    Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
      Me.ComboBox1.List = a
      Me.ComboBox1.Activate
      Me.ComboBox1.DropDown
    End Sub
    Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = 13 Then ActiveCell.Offset(1).Select
    End Sub

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    une plage de cellules fusionnées se comporte comme une seule cellule. Si tu fusionnes A1 à I1, tu manipules via Range("A1"), au besoin en t'aidant des propriétés Merge (Notamment MergeArea)

    sinon, si tu as fusionné pour des questions de lisibilité, tu peux également sélectionner tes cellules que tu voulais fusionner, et dans le format des cellules, onglet "Alignement", tu choisis "centrer sur plusieurs colonnes" dans le menu déroulant de l'alignement horizontal. Le rendu est identique à une fusion de cellules

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2011
    Messages
    66
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2011
    Messages : 66
    Par défaut
    Merci pour cette réponse mais ce n'était pas le problème.
    En fait mon range va rester sur A12 mais il suffit que je modifie la taille de ma Target avec

    Me.ComboBox1.Width = Target.Width + 300

    Ainsi lorsque je vais sur A12 ma fenêtre de saisie fait la taille de A12 à I12

    Toutefois si quelqu'un connait la possibilité de saisir un target associé à une cellule fusionnée, je suis preneur.

  4. #4
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    C'est pourtant bel est bien le problème, tu ne sais pas travailler sur des cellules fusionnées et tu n'as pas compris comment Excel les gère

    Regarde ceci, c'est le début de ta solution, qui doit nécessairement passer par la compréhension de la fusion du côté de Excel

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub ioi()
        Range("A1:E1").Merge
        MsgBox Range("A1").MergeArea.Cells.Count
        MsgBox Range("A1").MergeArea.Cells(1, 1).Address
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 25/08/2015, 09h41
  2. Réponses: 12
    Dernier message: 28/04/2015, 10h30
  3. [XL-2007] (Optimisation) Range sur une cellule variable
    Par Kimy_Ire dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 19/10/2012, 15h38
  4. Pointer sur une cellule fusionnée en Vba Excel
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 56
    Dernier message: 03/02/2009, 11h48
  5. capter l'evenement clic sur une cellule d'un string grid
    Par lasconic dans le forum Composants VCL
    Réponses: 3
    Dernier message: 25/06/2003, 10h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo