Du vba encore du vba

Résolu

saolaneducado Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
saolaneducado - 20 janv. 2014 à 18:45

Bonjour à tous.

Je sollicite à nouveaux les experts.

Je joint mon fichier pour mieux comprendre. Dans la Feuille 'Clients" je sélectionne un client avec une croix(double clic) ce qui me permet ensuite en cliquant sur le bouton cotation de récupérer les infos clients.
Mon problème et afin d'éviter les problèmes je voudrais (j'aimerai qu'il soit possible d'avoir qu'une seule croix dans toute la colonne. en fait, je veux interdire la sélection de deux clients en même temps.

https://www.cjoint.com/?0AupUCB0nrN

Merci pour votre aide

A voir également:

Du vba encore du vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

VBA feuille Clients

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("Afficher")) Is Nothing Then
        'mise en memoire  pour modif meme cellule
        memtarget = Target
        Range("Afficher").Cells.ClearContents
        If memtarget = "" Then Target = "x" Else Target = ""
    End If
End Sub

Réponse 2 / 3

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

Bonjour,

Modification de la procédure dans le module de la feuille "Clients"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("Afficher")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "" Then
            Range("Afficher").ClearContents
            Target = "x"
        Else
            Target = ""
        End If
        Application.EnableEvents = True
    End If
End Sub

A+

Réponse 3 / 3

saolaneducado

merci à tous les deux.
Les deux solutions fonctionnent parfaitement.

Je suis vraiment impressionné. J'aimerai beaucoup avoir ces compétences.

Merci encore

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires