cocher une case

Version imprimable

24/07/2007, 09h17
bibi5883

cocher une case
Bonjour,
je sais que ca doit être tout con, mais pourriez vous m'indiquer comment cocher une case d'une feuille de calculs EXECEL?
En fait ce que je voudrais faire, c'est que l'utilisateur coche une case en début de ligne pour qu'ensuite, par macro on puisse faire un truc du style:
Code:

1 2 Si la case est cochée Alors on récupère les infos dans le lignes et on envoies par mail
Voilà, merci. :cry:
24/07/2007, 09h41
Guidhy

Checkbox

Tu peux utiliser des checkbox

Ensuite :

Code:

If checkbox=true then (ton action)
24/07/2007, 09h43
binouse18

Pour cela tu doit créer une checkbox.
Dans la barre de menu va dans affichage, barre d'outils et click sur Boite à outils contôle.

Avec cette barre tu va pouroi créer une case à cocher.
24/07/2007, 10h06
bibi5883

Merci pour ces réponses, mais justment, je ne voulais pas utiliser de chek box ou autre option de VB, car la liste n'est pas fixe, les utilisateurs seront amené à rajouter des choses dessus ou à insérer des lignes et je les vois mal créer un chek box à chaque fois.
En fait je voudrais vraiment (évidemment si cela est possible) que l'utilisateur coche la cells et pouvoir récupérer ceci par macro.

Si vous pensez que c'est possible, savez vous comment faire?

En cherchant sur d'autre forums encore et encore, j'ai fini par trouver si ca interesse quelqu'un:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
If ActiveCell.Value = "" Then
 
    With ActiveCell.Font
        .Name = "Marlett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "a"
    Range("B11").Select
Else
    ActiveCell.Value = ""
End If
 
 
End Sub

De cette manière en double cliquant sur la case, une coche apparait.