Macro qui ne fonctionne pas sur cellules fusionnées.

Résolu/Fermé

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 7 nov. 2017 à 13:36
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 7 nov. 2017 à 14:29

Bonjour,

Il y a quelques années on m'avait donné sur ce même forum un code VBA qui permet de renvoyer le contenu d'une cellule dans une autre cellule. Le code était le suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then [B3] = Target 'Pour renvoyer la valeur de la cellule activée en B3
End Sub

J'utilise très fréquemment ce code qui m'est bien pratique pour mon utilisation, mais je rencontre un souci car j'ai l'impression que cette formule ne permet pas de renvoyer le contenu d'une cellule fusionnée.

Y-a-t-il une possibilité pour modifier le code pour que la macro fonctionne même sur une cellule fusionnée ?

Merci pour votre aide.

A voir également:

Macro qui ne fonctionne pas sur cellules fusionnées.
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Excel additionner des cellules - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

3 réponses

Réponse 1 / 3

via55 Messages postés 14399 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 16 avril 2024 2 701
7 nov. 2017 à 13:42

Bonjour

Les formules fusionnées ne servent qu'à mettre la pagaille dans les formules et les macros, on n'arrête pas de le répéter !

Il faut donc les bannir absolument de tout tableau sauf éventuellement pour des titres de colonnes et les remplacer avantageusement par des cellules distinctes avec texte centré sur plusieurs colonnes (Format Cellule - Alignement) l'effet visuel est le même et plus de problème avec les macros !

Cdlmnt
Via

Réponse 2 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
7 nov. 2017 à 14:08

Bonjour à tous les deux

Et si tu veux passer outre (et à tort) le conseil de via55 que je salue au passage essaies comme ceci
If Target.Column > 1 Then [B3] = Target.Cells(1, 1).Value

Cdlmnt

Réponse 3 / 3

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
7 nov. 2017 à 14:29

Bonjour à tous les 2,
Merci pour le conseil Via55 que j'essayerai de suivre à l'avenir et merci pour le dépannage ccm81, cela fonctionne parfaitement en effet.

Bonne journée.

Discussions similaires

tri impossible excel

=Si la cellule A1 a du texte = B1 devient couleur

Pb pour insérer lignes

Discussions similaires

Newsletters