Du vba encore du vba
Résolu
saolaneducado
Messages postés
25
Statut
Membre
-
saolaneducado -
saolaneducado -
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
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
3 réponses
-
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 -
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+ -
merci à tous les deux.
Les deux solutions fonctionnent parfaitement.
Je suis vraiment impressionné. J'aimerai beaucoup avoir ces compétences.
Merci encore
