Menu

Macro qui ne fonctionne pas sur cellules fusionnées. [Résolu]

nemotri 175 Messages postés dimanche 9 août 2009Date d'inscription 8 décembre 2017 Dernière intervention - 7 nov. 2017 à 13:36 - Dernière réponse : nemotri 175 Messages postés dimanche 9 août 2009Date d'inscription 8 décembre 2017 Dernière intervention
- 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.




Afficher la suite 

Votre réponse

3 réponses

via55 9338 Messages postés mercredi 16 janvier 2013Date d'inscription 23 juin 2018 Dernière intervention - 7 nov. 2017 à 13:42
0
Merci
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
Commenter la réponse de via55
ccm81 8491 Messages postés lundi 18 octobre 2010Date d'inscription 23 juin 2018 Dernière intervention - 7 nov. 2017 à 14:08
0
Merci
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
Commenter la réponse de ccm81
nemotri 175 Messages postés dimanche 9 août 2009Date d'inscription 8 décembre 2017 Dernière intervention - 7 nov. 2017 à 14:29
0
Merci
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.
Commenter la réponse de nemotri