Discussion :

[triumphk]

Bonjour,

Après des recherches sur le site, je n'arrive pas à trouver une explication ou une aide que je puisse appliquer dans mon code VB afin de le rendre plus "dynamique".

Dans un fichier de suivi de déploiement, j'ai un tableau structuré "suiv" qui est amené à évoluer en fonction de mes besoins sur différents projets (ajouts/suppressions de colonnes). Par le biais de boutons, je peux modifier le statut d'un poste (déployé, annulation à j, ...).

Mon code VB me permet ainsi en me positionnant sur la ligne du poste que je dois mettre à jour et en utilisant l'un des boutons de modifier automatiquement le statut et d'ajouter une date de mise à jour (ces datas me permettent de faire du reporting quotidien/hebdo/mensuel).

Pour cette mise à jour de date, je cible ma cellule souhaitée en utilisant le code suivant :

Cells(ActiveCell.Row, 19).Select

Comment puis-je faire pour indiquer clairement le nom de la colonne cible en utilisant mon tableau structuré ? Dans le sujet suivant http://www.developpez.net/forums/d13...tructures-vba/ je comprends qu'il est possible de cibler une colonne en utilisant Range("nomTableau[nomColonne]").Select mais je ne sais pas l'adapté dans mon cas.

J'ai essayé :
Cells(ActiveCell.Row, "suiv[Date de déploiement]").Select
Cells(ActiveCell.Row, suiv[Date de déploiement]).Select

Une personne peut-elle m'aider à mettre à jour mon code afin de rendre mon fichier dynamique et plus malléable ? Je ne suis pas contre un minimum d'explication sur une solution, afin de comprendre et de ne pas recopier simplement.

Par avance merci

[Daniel.C]

Bonjour,

Code :

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

Sheets("Feuil1").ListObjects("nomTableau").ListColumns("nomColonne").DataBodyRange.Select

ou :

Code :

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

Sheets("Feuil1").Range("nomTableau[nomColonne]").Select

[triumphk]

Bonjour Daniel,

Pouvez vous m'apporter une précision sur le code proposé ? Je ne sais pas si cela vient en remplacement de mon code et/ou en complément ?

Je comprends que cela me permet de cibler la colonne de mon tableau sans pour autant savoir sur quelle ligne je travail.

Merci à vous

[Daniel.C]

Pour cibler la cellule de la colonne correspondant à la cellule active :

Code :

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

1
2
3
    With Sheets("Feuil1").ListObjects("nomTableau").ListColumns("nomColonne")
        Intersect(.DataBodyRange, ActiveCell.EntireRow).Select
    End With

[triumphk]

Daniel,

Je viens de faire un test rapide en utilisant votre second morceau de code. Le résultat est exactement celui attendu !

Un grand merci pour votre aide. Sincèrement.

Bon week end à vous.