Fusion

Bonjour, j'ai une cellule fusionné et je voulais savoir s'il c'était possible de faire les étapes suivantes :

Lorsqu'on supprime la valeur, (disons que là cellule fusionné correspond à A1:A3) cela nous fais cliquer sur B1 et nous remet ensuite sur A1 ?

Merci

OUI

dans les cellules fusionnées, c'est celle en haut à gauche qui comporte la valeur.

Fais en l'expérience en défusionnant les cellules après suppression de ta valeur.

Steelson a écrit :

OUI

dans les cellules fusionnées, c'est celle en haut à gauche qui comporte la valeur.

---

Fais en l'expérience en défusionnant les cellules après suppression de ta valeur.

Très bien merci. Par contre j'ai utilisé clear.contents et cela ne fonctionne pas pour faire ce que je souhaite

Bonjour,

les cellules fusionnées sont à proscrire... ça n'apporte que des soucis

Il est préférable de prendre le format "centrer sur plusieurs colonnes"

P.

En fait mon problème c'est que lorsque je lance manuellement le code cela fonctionne mais lorsque je supprime la valeur dans la cellule B2, il ne se passe rien.

Private Sub Worksheet_SelectionChange()

If Range("B2").Value = "" Then
Range("A1").Select
Range("B2").Select
End If

End Sub

Merci

Bonjour,

Pour effacer la valeur d'une cellule fusionnée :

.Range("A1").MergeArea.ClearContents

MFerrand a écrit :

Bonjour,

Pour effacer la valeur d'une cellule fusionnée :

.Range("A1").MergeArea.ClearContents

Merci pour ton retour mais là ou le bas blesse c'est pour activer cette commande lorsque je supprime la valeur dans la cellule dans Excel, il ne se passe rien.

Je supprime cette valeur et aucune action ne se passe or moi j'aimerais bien que dès que je supprime la valeur, il sélectionne une autre cellule et ce replace sur A1 afin d'avoir toujours ce message d'afficher.

Merci

TeamG1 a écrit :

En fait mon problème c'est que lorsque je lance manuellement le code cela fonctionne mais lorsque je supprime la valeur dans la cellule B2, il ne se passe rien.

Private Sub Worksheet_SelectionChange()

If Range("B2").Value = "" Then
Range("A1").Select
Range("B2").Select
End If

End Sub

Merci

L'exposé du problème était incomplet !

Quelle est ton intention dans ce code ?

Comme dit Patrick, il faut éviter les cellules fusionnées.

Désolé ! Je ne comprends pas ce que tu veux !

J'ai répondu à : comment effacer une cellule fusionnée ?

Si tu veux réintroduire la même valeur en A1, pourquoi l'effacer ?

Pourquoi une proc. SelectionChange ?

[NB- il ne peut y en avoir qu'une !]

Je vous ai joint un fichier et comme indiqué, j'aimerais bien que lorsqu'on supprime la valeur dans la cellule, il y a une sélection sur une autre cellule pour remettre la valeur dans la cellule de départ.

En fait c'est au cas où un utilisateur supprime la valeur dans la cellule c'est pour la remettre automatiquement.

Merci

Alors :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Me.Range("A1") = "Est-il possible de m'aider ?"
        Application.EnableEvents = True
    End If
End Sub

Cordialement.

Steelson a écrit :

Pourquoi tu rigoles ?

MFerrand a écrit :

Alors :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Me.Range("A1") = "Est-il possible de m'aider ?"
        Application.EnableEvents = True
    End If
End Sub

Cordialement.

Merci beaucoup, cela fonctionne très bien, même trop bien ^^

Je viens de créer une liste déroulante dans la cellule A1 pour sélectionner des valeurs mais je ne peux plus y accéder.

Yes !

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        If Me.Range("A1") = "" Then
            Application.Undo
        End If
    End If
End Sub

Mais fais en sorte qu'il y ait quelque chose avant de la mettre...

MFerrand a écrit :

Yes !

Merci