Tableau structuré avec macros

Version imprimable

27/05/2022, 08h33
goninph

Tableau structuré avec macros
Bonjour,

Je me suis enfin mis à utiliser les tableaux structurés

Ça change pas mal les macros, mais c'est beaucoup plus souple lors du déplacement ou de l'insertion de colonnes par exemple.

Comment coder pour que cette macro fonctionne ?

TS = Tableau_Suivi
Colonne = Commandes
Code:

1 2 3 If Not Intersect(Target, Range("Tableau_Suivi,[Commandes]]")) Is Nothing And Target.Count = 1 Then MsgBox "Hello" End If
Je vous remercie
Meilleures salutations
Philippe

Bonjour Philippe,

Voici un exemple

Code:

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("t_Personnel").ListObject.ListColumns("Service").DataBodyRange) Is Nothing And Target.Count = 1 Then
    MsgBox "Hello"
  End If
End Sub

Exemple avec la référence structurée

Code:

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("t_Personnel[Service]")) Is Nothing And Target.Count = 1 Then
    MsgBox "Hello"
  End If
End Sub

Pour en savoir plus, je vous conseille la lecture de ce tutoriel Excel: Les tables de données en VBA

27/05/2022, 09h32
goninph

Super et merci, je vais tester et lire le tuto
27/05/2022, 09h41
Philippe Tulliez

Bonjour Philippe,
Attention, je rectifie car j'ai effectué mes tests un peu rapidement.

Il est préférable d'utiliser la procédure événementielle Worksheet_SelectionChange car une erreur est déclenchée avec l'autre procédure si la sélection d'une cellule à lieu sur une feuille où la table n'est pas présente.
Il est possible évidemment d'utiliser l'autre procédure événementielle mais je n'ai pas le temps d'effectuer les tests

J'ai rectifié le code dans ma réponse précédente

Hello,

Chez moi ça fonctionne nickel

Encore merci et bon weekend

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DateFormats, DF 'Afficher le calendrier selon le format de la cellule
Application.ScreenUpdating = False
    DateFormats = Array("ddd dd mm yyyy") 'format à reproduire dans la cellule pour activer le calendrier par ex: jjj jj mm aaaa
    For Each DF In DateFormats
        If DF = Target.NumberFormat Then
            USF_Calendar_Activecell.Show
            Cancel = True 'Empêche l'édition de la cellule active (F2) lors de Worksheet_BeforeDoubleClick Cancel = True permet de resortir du mode édition
        End If
    Next
  If Not Intersect(Target, Range("Tableau_Suivi[Commande]")) Is Nothing And Target.Count = 1 Then
    If ActiveCell <> "" Then
        Dossier.Ouvrir_Dossier
    End If
    Cancel = True 'Empêche l'édition de la cellule active (F2) lors de Worksheet_BeforeDoubleClick Cancel = True permet de resortir du mode édition
  End If
Application.ScreenUpdating = True
End Sub

27/05/2022, 10h08
Philippe Tulliez

Bonjour,

Citation:

Chez moi ça fonctionne nickel

Oui, c'est normal puisque l'événement se déroule dans la feuille où se trouve le tableau structuré. Je n'avais pas repris cette procédure parce-qu'elle ne figurait pas dans le code publié.

Bonjour,

Comment utiliser les noms des entêtes de colonnes dans la macro ci-dessous ?

Je vous remercie
Meilleures salutations
Philippe

Remplacer la colonne 12 par ("Tableau_Suivi[Commande]"))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Sub Test()
Dim f As Variant
Dim Message As Variant
Dim LigneActive As String
Set f = ActiveSheet
    LigneActive = ActiveCell.Row
        Message = _
            f.Cells(LigneActive, 12) & " - " & _
            f.Cells(LigneActive, 13) & " " & _
            f.Cells(LigneActive, 14) & " " & _
            f.Cells(LigneActive, 15) & vbLf & vbLf & _
            f.Cells(LigneActive, 16) & " - " & _
            f.Cells(LigneActive, 17) & " - " & _
            f.Cells(LigneActive, 18) & vbLf & vbLf & _
            f.Cells(LigneActive, 19) & " - " & _
            f.Cells(LigneActive, 20) & " " & _
            f.Cells(LigneActive, 21) & vbLf & vbLf & vbLf & _
            "Cette intervention doit être reportée sur la feuille : Suivi de pose dans le dossier de pose"
 MsgBox Message
End Sub

01/06/2022, 10h22
Philippe Tulliez

Bonjour,
Avez-vous consulté le tutoriel que je vous ai suggéré de lire.Tout y est expliqué
01/06/2022, 10h38
goninph

Oui j'ai tout lu, mais je n'ai pas trouvé comment adapter ma macro, je suis un débutant

Code:

f.Cells(LigneActive, Range("Tableau_Suivi[Commande]")))
01/06/2022, 11h01
Philippe Tulliez

Bonjour,
Que voulez-vous faire exactement ?
D'après le code que je lis, vous écrivez dans certaines colonnes des caractères espacés et dans d'autres des retours à la ligne, j'avoue ne pas en comprendre la raison. Quelle est la finalité ?
01/06/2022, 11h23
goninph

Merci

J'ai trouvé

Code:

f.Cells(LigneActive, Range("Tableau_Suivi" & "[Commande]").Column)
01/06/2022, 11h30
Philippe Tulliez
Bonjour,
Ce que j'ai écrit dans ma réponse () était me semble t'il la même syntaxe, par rapport à la référence structurée, non ?

Copie ci-dessous
Citation:
Exemple avec la référence structurée

Code:

1 2 3 4 5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("t_Personnel[Service]")) Is Nothing And Target.Count = 1 Then MsgBox "Hello" End If End Sub
Attention d'éviter du coup l'usage de ActiveSheet au risque d'avoir une erreur si la feuille active n'est pas la feuille où se trouve le tableau structuré