Cocher cellule par clic

guenfood

XLDnaute Occasionnel
Bonjour,

Je souhaiterais pouvoir cocher d'un '*' les cellules de ma colonne L uniquement en cliquant dessus (et si possible que cela les décochent si je re-clic dessus).

Pourriez-vous m'indiquer comment m'y prendre ?

Merci par avance.
 

Shining Hawk

XLDnaute Junior
Hug guenfood, le forum,

jette un coup d'oeil sur ce fil et sur l'exemple
Lien supprimé

ca ne répond pas exactement à ta question mais je pense que tu pourras aisement remplacer les cases à cocher par des '*' ;)

Fais moi signe (ou à un autre) si tu veux plus d'explications.

Bye
Bonne journée
 

Abel

XLDnaute Accro
Bonjour guenfood,

Essaie ce code :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cible As Range
Set Cible = Intersect(Target, Range('l:l'))
If Not Cible Is Nothing Then
    If Target = '' Then
        Target = '*'
        Else: Target = ''
    End If
End If
End Sub

A placer dans la feuille où tu veux le voir s'appliquer.


En espérant que cela te dépanne.


Abel.
 

Shining Hawk

XLDnaute Junior
Re,

Désolé pour le mal de tête, c'est vrai que c'est imbuvable.
Voici une version light à mettre sur la feuille désirée:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Application.Intersect(Target, Range('A' & Target.Row)) ca sert à dire si on est sur la bonne colonne
' InStr(1, Target.Address, ':')=0 et
' InStr(1, Target.Address, ',')=0 permet d'être sur qu'on a sélectionné qu'une seule cellule


If Not Application.Intersect(Target, Range('A' & Target.Row)) Is Nothing _
And InStr(1, Target.Address, ':') = 0 And InStr(1, Target.Address, ',') = 0 Then
    Select Case Target.Value
        Case ''
            Target.Value = '*'
        Case '*'
            Target.Value = ''
    End Select
End If
End Sub

Ca va mieu?
 

guenfood

XLDnaute Occasionnel
Ceci marche impeccable.
Le seul hic, c'est que j'ai un bouton avec une macro dans ma feuille qui me permet de réinitialiser à vide toute ma feuille, mais avec ce nouveau code, j'ai un message d'erreur 'erreur d'exécution 13 'type incompatible''.
:side:

Oups ! Je n'avais pas vu ta réponse Shining.
Avec ton code, c'est nickel.

Merci beaucoup à vous 2 pour votre aide.

Message édité par: guenfood, à: 24/08/2005 15:07
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Abel, GuenFood, Shinning Hawks, le Forum

Juste en passant, en plus direct que de faire des 'Instr' sur la string de l'adresse pour être sûr et certain qu'une seulle cellule est dans la sélection :

If Target.Count = 1 Then


Bon Aprèm
[ol]@+Thierry[/ol]
 

Abel

XLDnaute Accro
Re,

Et voilà !

On tourne autour, on s'énerve, on vide les pharmacies (mal de tête), etc.

Et paf, Barbapapa passe par là et tout ce que vous avez patiemment édifier au long de toutes ces longues heures .... ben lui il y a pensé.
S'en est presque énervant tellement que c'est pas sorcier.

Bon, merci quand même Thierry, parce que là ça va bien m'être utile dans deux ou trois des mes appli.

Abel.

ps : snif snif. mmmmhh sent l'ZOP. Faut que je m'méfie ... Hi hi.
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonjour Abel, le Fil, le Forum

Oh tu sais, c'est par force aussi de nuits blanches et de maux de crane qu'on finit par penser à aller au plus direct aussi ;)

Merci à Toi
[ol]@+Thierry[/ol]

PS non la question à bien été 'Résolue' ;) donc pas de Zop ;)
 

Discussions similaires

Réponses
9
Affichages
245

Statistiques des forums

Discussions
312 848
Messages
2 092 779
Membres
105 533
dernier inscrit
TAF