Discussion :

[gesualda]

Bonjour à tous,

Tous mes voeux pour cette nouvelle année au forum de developpez.com.

J'ai un soucis excel et malgré mes nombreuses lectures, je n'arrive pas à solutionner dans ma cas.

J'ai un tableau et lorsque j'arrive en bout de ligne, avec TAB, cela me crée une nouvelle ligne.

Je souhaiterai rajouter automatiquement une case à cocher lors de la création de cette nouvelle ligne. (Case à cocher qui existe sur la ligne 1)
Je ne sais pas s'il faut passer par une formule ou bien par une macro.

Dans les 2 cas, je ne sais pas par quel bout m'y prendre. Merci

Je joins une capture:

[patmicro]

Bonsoir gesualda : Si c'est un tableau structuré la case à cocher vas s'ajouter d'elle même lors de l'écriture dans une cellule.

[gesualda]

Merci Patmicro de m'avoir porté une réponse.

Qu'appel tu structuré ?
Ben en fait, c'est ce que je pensais également puisque ma colonne ID s'incrémente automatiquement à chaque nouvelle ligne sans soucis !

[Philippe Tulliez]

Bonjour,

Si c'est un tableau structuré la case à cocher vas s'ajouter d'elle même lors de l'écriture dans une cellule

Sauf à démontrer le contraire, j'ai des doutes quant au fait qu'un bouton "Formulaire" ou ActiveX se propage automatiquement dans un tableau structuré.
Pour moi, il faut passer par du code VBA

[78chris]

Bonjour à tous

Eviter d'ajouter des objets sur chaque ligne d'un tableau

Cela alourdit le fichier, ne pose pas seulement la question de l'ajout sur les nouvelles lignes mais aussi celui de leur suppression : la suppression de lignes n'entraînant pas la suppression de la case à cocher

On peut cocher décocher une cellule par double clic avec quelques lignes de code

Nommer la colonne concernée : Cocher pour l'exemple

Mettre la colonne en police Winddings, alignement centré et placer dans le module du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [Cocher]) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Value = "" Then Target.Value = "ü" Else Target.Value = ""
End Sub

On peut ainsi créer plusieurs plages nommées comme Cocher1, Cocher2 etc et modifier le code pour qu'il s'applique à n'importe plage dont le nom commence par Cocher

[gesualda]

Bonjour 78chris,

Tout d'abord merci de cette réponse. J'ai suivi scrupuleusement vos conseils.

- nommer ma colonne "Cocher"
- La plage concerné rajout de la police => Winddings
- Rajout du code dans le module du classeur.

Si je comprends bien, en double cliquant sur la cellule, cette dernière doit me faire apparaitre => "ü" . Es ce bien cela ?
Visiblement j'ai pas du bien tout comprendre.

Merci d'avance

[Philippe Tulliez]

Bonjour,
Comme l'a indiqué Chris, que je salue, il faut mettre la colonne en question en police Winddings et le "ü" va se transformer en V (comme Vu)

[gesualda]

Bonjour Philippe,

C'est bien ce que j'ai fais. cela n'a pas l'air de fonctionner chez moi. Je dois mal m'y prendre !

Merci de ta réponse

[Philippe Tulliez]

Bonjour,
Le code proposé par Chris est une procédure événementielle à placer dans le module du classeur (ThisWorkbook)
Il faut également nommer la colonne dans le gestionnaire des noms

Pour en savoir plus sur les procédures événementielles

• Les évènements du module objet ThisWorkbook, dans Excel
• Les évènements dans la feuille de calcul Excel

[gesualda]

D'accord,

J'ai modifié et cela fonctionne maintenant après relance du fichier.
Merci beaucoup à tous les deux pour vous être penché sur mon cas.

Pour Philippe, je vais lire et essayer de comprendre les 2 liens.

Bonne journée

[gesualda]

Hello vous deux,

Je voudrais revenir un cours instant sur la formule pour savoir si j'ai bien procédé pour suivre l'idée de Chris, et qui fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [Cocher, Cocher1, Cocher2]) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Value = "" Then Target.Value = "ü" Else Target.Value = ""
End Sub

Le problème c'est que je n'arrive pas à régler un soucis d'erreur 1004 après la création d'une nouvelle feuille.
En effet en faisant un double clic sur certaines cellules au hasard, cela me provoque cette erreur alors que le script fonctionne sur la 1er feuille.

Sans abuser bien sur, comment puis je me débarrassé de ce problème ? Es ce que j'ai mal construit la requete ?

PS : cela ne ce produit que lorsque je doubleclic sur une cellule de la nouvelle feuille ( je pense du au => Workbook_SheetBeforeDoubleClick)

[Philippe Tulliez]

Bonjour,

Le problème c'est que je n'arrive pas à régler un soucis d'erreur 1004 après la création d'une nouvelle feuille.

L'erreur 1004 signifie sans doute qu'il ne reconnait pas les plages référencées dans l'Intersect soit [Cocher, Cocher1, Cocher2] personnellement je ne travaille pas avec ce type de référencement

Je vous propose une autre approche, sans devoir nommer les plages de cellules à cocher
Contrainte : Chaque colonne d'un quelconque tableau structuré où doit avoir lieu le pointage doit avoir la même étiquette de colonne (pour mon exemple il se nomme "Pointage")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Const Label As String = "Pointage" ' Nom de l'étiquette de colonne
  Dim ol As ListObject
  Dim n As String
  Dim s As String
  Set ol = Target.ListObject
  If Not ol Is Nothing Then
     n = ol.ListColumns(Target.Column - ol.Range.Column + 1).Name
     If n = Label Then
        If Not Intersect(Target, ol.ListColumns(n).DataBodyRange) Is Nothing Then
           Target.Value = IIf(Target.Value = "ü", "", "ü")
           Cancel = True
        End If
     End If
  End If
   Set ol = Nothing
End Sub

[gesualda]

Merci Philippe de cette réponse.

Quel type de référencement dois je utiliser ? Renommer avec des noms différents ?

J'ai suivi ce tuto =>

mais qui explique comment procéder un ensemble de cellule renommer. Idem que les explications à Chris !

Dans mon cas, j'ai plusieurs tableaux à utiliser sur la même feuille. Donc je sais pas trop vers quel genre de VBA m'orienter.

Merci

[Philippe Tulliez]

Bonjour,
Avec le code que j'ai publié, vous pouvez créer autant de tableau que vous le souhaitez et le double clic ne réagira que si la colonne du tableau a comme nom Pointage soit la valeur de la constante nommée Label (1ère ligne du code)

[gesualda]

Philippe,

Alors chapeau bas. Merci beaucoup, je viens de tester et cela fonctionne très bien et surtout plus d'erreur 1004.
Je résolu le sujet et je te remercie encore pour ce bout de code.

A bientot

[Fab_de_chez_PERFORM]

Je vous propose une autre approche, sans devoir nommer les plages de cellules à cocher
Contrainte : Chaque colonne d'un quelconque tableau structuré où doit avoir lieu le pointage doit avoir la même étiquette de colonne (pour mon exemple il se nomme "Pointage")
[/CODE]

Bonjour
super cette astuce, merci
du coup j'ai testé en mettant dans la colonne "Pointage" la fonction ="¨" pour obtenir un Carré vide (style case à cocher)
et j'ai remplacé dans le code IIf(Target.Value = "ü", "", "ü") par IIf(Target.Value = "þ", "", "þ") pour avoir la case cochée.