IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[Vba-Excel] Récupérer événement sur une cellule


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Femme Profil pro
    Technicienne en informatique
    Inscrit en
    Février 2004
    Messages
    257
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Canada

    Informations professionnelles :
    Activité : Technicienne en informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Février 2004
    Messages : 257
    Points : 132
    Points
    132
    Par défaut [Vba-Excel] Récupérer événement sur une cellule
    Bonjour,

    J'aimerais savoir s'il est possible de récupérer dans l'événement Worksheet_Change(ByVal Target As Range), la cellule modifiée.

    Présentement mon code est:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Worksheet_Change(ByVal Target As Range)
     
        If Target.Cells = Cells(3, 2) Then
            If Cells(3, 2) = "" Then
                ActiveSheet.Name = "Coop" & ActiveSheet.Index - 1
            Else
                ActiveSheet.Name = Cells(3, 2)
            End If
        End If
    End Sub
    Je veux ainsi n'exécuter le code que si la cellule B3 est modifiée. Par contre si je sélectionne plus d'une cellule pour les effacer, j'obtiens une erreur à la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Target.Cells = Cells(3, 2) Then
    Merci pour votre aide

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 040
    Points
    20 040
    Par défaut
    tu peu utiliser count pour connaitre le nombre de cellules sélectionnée..

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
     If Target.Cells.Count = 1 Then
       If Target.Address = "$A$1" Then
         MsgBox "lol"
       End If
     End If

  3. #3
    Membre habitué
    Femme Profil pro
    Technicienne en informatique
    Inscrit en
    Février 2004
    Messages
    257
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Canada

    Informations professionnelles :
    Activité : Technicienne en informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Février 2004
    Messages : 257
    Points : 132
    Points
    132
    Par défaut
    Merci beaucoup!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] macro VBA pour imposer signe "-" sur une cellule
    Par cilala dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/09/2010, 00h13
  2. Pointer sur une cellule fusionnée en Vba Excel
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 56
    Dernier message: 03/02/2009, 11h48
  3. [VBA-Excel] DblClick sur une cellule
    Par marsupilami34 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/01/2007, 10h51
  4. [VBA-Excel]Supprimer une colonne entiere basee sur une cellule
    Par Tartenpion dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/10/2006, 22h08
  5. [VBA-E] Double-Click sur une cellule
    Par boosty dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/04/2006, 15h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo