Insérer une condition sur activecell

Question

J'ai le code suivant: Sub CopieNomClip() Calculate ActiveCell.Offset(0, 1) = ActiveCell End Sub Le but de ce dernier, est de copier la valeur du contenu de la cellule sélectionnée dans la cellule voisine. (Ex. Valeur de A1 copié dans B1 si A1 est sélectionnée). Le tout fonctionne très bien... Toutefois, je voudrais faire en sorte que la macro se "ferme en douceur" sans faire fermer Excel... Donc, ce que je voudrais faire, c'est de spécifier une condition de ce genre: Si plus d'une cellule est sélectionnée, exit sub. (Autrement dit, si j'ai plusieurs cellules de sélectionnées dans la colonne A, la macro doit ne pas s'appliquer (afin d'éviter des erreurs)). Mais je n'y arrive pas! J'ai essayé avec ceci... If ActiveCell.Select(2, 1) Then Exit Sub et ça ne fonctionne évidement pas... Avez-vous des pistes de solutions à me proposer? Merci -- 12 Avr 2011, 09:25 -- Pour le moment, lorsque je sélectionne plus d'une cellule dans la colonne A, seule la valeur de la première cellule est copié dans sa cellule voisine.....

vba-new · Answer

Essaie avec : If Selection.Count &gt; 1 Then Exit Sub...