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 :

nombre de cellules


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    bjr à tous
    j'ai developpé une macro qui a comme but de m'envoyer le nbre de cellules selectionnées.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
    Range("g" & Target.Row).Value = Target.Count
    End If
    End Sub
    je veux que Range("g" & Target.Row).Value affiche que le nbre de cellules de même ligne.
    svp.
    merci d'avance.

    pour être un peu clair
    comment je peux compter les cellules selectionnées de même ligne.
    svp
    merci à vous.

  2. #2
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonjour,

    Une exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox Target.Rows.Count
    End Sub

  3. #3
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    merci aalex_38
    j'ai bien mixé ton code avec le mien et ça me donne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
        If Target.Rows.Count = 1 Then
        Range("g" & Target.Row).Value = Target.Count
        End If
    End If
    ça marche
    mais quand je selectionnes plusieures cellules en utilisant la touche Ctrl; la cellule Range("g" & Target.Row) m'envoie le nbre même si les cellules sont de lignes differents
    merci

  4. #4
    Membre Expert Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Par défaut
    Salut,
    Je crois avoir cerné ta question, tu veux savoir combien de cellules sont sélectionnées sur une même ligne (sur base des colonnes)
    J'espère que c'est ça car j'ai trouvé une solution tirée par les cheveux et j'en n'ai plus beaucoup (enfin ils sont courts)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
    Range("g" & Target.Row).Value = (Right(Selection.Address(ReferenceStyle:=xlR1C1), 1) - Right(Left(Selection.Address(ReferenceStyle:=xlR1C1), 4), 1)) + 1
    End If
    End Sub
    A+

  5. #5
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    merci Fvandermeulen
    mais le problème c'est que lorceque je selectionne par exemple:
    A5;B5;C6;D7--------> la cellule G5 affiche 4; même si les cellules ne sont pas de la même ligne 5.
    je crois que c'est clair.
    merci.

  6. #6
    Membre Expert Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Par défaut
    Donc tu fais des multi sélection avec Ctrl+clickG ...
    Moi qui croyais déjà m'être bien tiré les cheveux
    Donc dans ton dernier exemple tu veux:
    En ligne 5 qu'on affiche 2
    En ligne 6 qu'on affiche 1
    Et en ligne 7 qu'on affiche 1
    C'est bien ça ?

  7. #7
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    merci Fvandermeulen
    c'est bien ce que tu as dis.
    merci bcp.

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 07/03/2007, 15h09
  2. nombre de cellule dans une colonne excel
    Par mahboub dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/11/2006, 23h00
  3. compter le nombre de cellules commencant par
    Par euskadi dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/06/2006, 13h36
  4. Compter le nombre de cellule
    Par flyfrog dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 07/06/2006, 14h38
  5. Réponses: 2
    Dernier message: 16/05/2006, 13h44

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