Macro qui ne fonctionne pas sur cellules fusionnées.

Résolu
nemotri Messages postés 179 Statut Membre -  
nemotri Messages postés 179 Statut Membre -
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:

3 réponses

via55 Messages postés 14730 Statut Membre 2 749
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
nemotri Messages postés 179 Statut Membre 35
 
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.
0