Cocher cellule par clic

[guenfood]

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]

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

 

[guenfood]

Houla, je viens de lire le lien, et j'ai déjà mal à la tête
Vu mes compétences, je ne sais pas si je vais arriver à appliquer cette histoire de case à cocher avec ce que je souhaite faire.

 

[Abel]

Bonjour guenfood,

Essaie ce 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]

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:

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?

 

[Shining Hawk]

Scuze moi Abel, j'avais pas vu que tu avais déjà répondu....Oups.

 

[guenfood]

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

 

[Abel]

Re,

Pas de mal Shining.


Guenfood, je suppose que tu parles de mon code. Alors utilise plutôt celui de Shining qui vérifie justement si une seule cellule est sélectionnée.

Abel.

 

[_Thierry]

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]

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]

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

 

[Abel]

Re,

Lien supprimé

Pardon à tous pour ce petit encarté.

Abel.

Message édité par: Abel, à: 24/08/2005 17:33

 

[Shining Hawk]

Merci Thierry,

c'est vrai que c'est un peu moins prise de tête... Ca faisait longtemps que j'avais pas fait de copier-coller bête et méchant (cf mes instr)... ca m'apprendra!

Bonne journée