Discussion :

[byloute]

Bonjour,

Pour "sécuriser" l'utilisation de ma macro, je souhaiterai vérifier que la cellule choisie par l'utilisateur est soit présente dans la colonne F ou que le titre de la colonne est "Projet".
J'ai cherché sur la base des arguments de ActiveCell, mais je ne trouve pas comment faire.

Auriez vous une idée comment apporter ce contrôle en début de macro ?

Merci à tous par avance,

Laurent

[Philippe Tulliez]

Bonjour,

je souhaiterai vérifier que la cellule choisie par l'utilisateur est soit présente dans la colonne F

Pour cela, il faut utiliser la procédure événementielle Worksheet_SelectionChange en testant la propriété Column de l'argument Target

A lire éventuellement Les évènements dans la feuille de calcul Excel

[Menhir]

Bonjour,

En supposant que "la cellule choisie" est ActiveCell.
En supposant que "le titre de la colonne" est la valeur en ligne 1.

Code :

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

If ActiveCell.Column = 6 or Cells(1, ActiveCell.Column).Text = "Projet" Then

[byloute]

Au top, Merci beaucoup.

[patricktoulon]

bonjour a tous

Code :

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

If ActiveCell.Column = 6 or Cells(1, ActiveCell.Column).Text = "Projet" Then

la ca marche mais
Attention l'entête de colonne "Projet" pourrait être éventuellement ailleurs qu'en ligne 1

[Pierre Fauconnier]

[...]
Attention l'entête de colonne "Projet" pourrait être éventuellement ailleurs qu'en ligne 1

@ Patrick: Que n'as-tu pas compris dans:

[...]
En supposant que "le titre de la colonne" est la valeur en ligne 1.[...]

[Pierre Fauconnier]

Salut.

Vu que tu parles d'entête de colonne, mon œil lit "table de données" ou "tableau structuré"...

Dès lors, soit tes données ne sont pas dans un tableau structuré, et il me semble que ce serait une bonne idée d'y songer (à voir avec un éclaté d'écran de ta feuille) (voir éventuellement mon tuto sur le sujet), soit tes données sont dans une table de données et tu peux alors simplifier ton code, par exemple pour la colonne Projet de la table de données Tableau1

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("tableau1[projet]")) Is Nothing Then
    ...
    ...
  End If
End Sub

L'intérêt, si tu peux utiliser une table de données, est que le tableau peut se déplacer sans soucis dans la feuille sans que tu doives modifier ton code pour tenir compte de sa position. La référence structurée suivra les déplacements de ta colonne ou de ton tableau, et tiendra compte des ajouts/retrais de lignes sans que tu doives t'en soucier dans ton code.



Tu pourrais même utiliser l'événement Workbook_SheetSelectionChange du classeur pour le cas où le tableau structuré pourrait être déplacé sur une autre feuille, ce qui permet de balader ton tableau où tu veux dans le classeur sans toucher à ton code... Voici le code à placer dans le module thisWorkBook

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If Not Intersect(Target, Range("tableau1[projet]")) Is Nothing Then
    ...
  End If
End Sub

Tout cela étant dit, je suis curieux de connaître la raison qui t'amène à devoir gérer le fait que tu sélectionnes une cellule de cette colonne particulièrement.