Macro

Résolu
Belle journée! -  
 Belle journée! -
Bonjour,

J'ai fait une macro mais je voudrais ajouter quelque chose mais je ne sais pas comment faire:

Voici la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
With ActiveCell
Selection.Copy
ActiveSheet.Paste
End With
End Sub

Je voudrais que cette formule marche pour toute la feuille excel sauf pour la sélection x19 à Y586

Pouvez-vous m'aider?
Configuration: Windows Vista Internet Explorer 7.0

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    essaies
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:D14")) Is Nothing Then: Exit Sub
    target.copy range("????")
    end sub

    tu n'indiques pas de destination à ton collage?
    1
    1. Belle journée!
       
      Superbe! Ca marche! Merci beaucoup! :-) (Non je n'ai pas de destination bien précise!) J'explique en mettant ma formule j'ai désactivé la touche "copier" et je voulais la mettre dans la formule afin que je puisse de nouveau l'utiliser sauf pour trois colonnes! :-) Merci infiniment.
      0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
convertir des chiffres en lettres avec une unique formule
FOUAD_9000 -
Mike-31 -

34 réponses