Vérifier présence cellule active dans la colonne F ou titre de colonne ="Projet"

Version imprimable

23/08/2019, 15h24
byloute

Vérifier présence cellule active dans la colonne F ou titre de colonne ="Projet"

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
23/08/2019, 15h45
Philippe Tulliez

Bonjour,

Citation:

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
23/08/2019, 16h10
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:

If ActiveCell.Column = 6 or Cells(1, ActiveCell.Column).Text = "Projet" Then
23/08/2019, 16h34
byloute

Au top, Merci beaucoup.
23/08/2019, 19h58
patricktoulon

re

bonjour a tous

Code:

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
23/08/2019, 20h47
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

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

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

Citation:

Envoyé par Menhir

[...]
En supposant que "le titre de la colonne" est la valeur en ligne 1.[...]
23/08/2019, 20h56
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:

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:

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.