Discussion :

[CuisineAuBeurre]

Bonjour,

Mon problème du jour est le suivant :

Mon client m'a demandé d'écrire une macro de contrôle automatisé de règles de saisie dans un fichier Excel, ce que j'ai fait.

Sauf qu'aujourd'hui, mes tests sont réalisés sur les colonnes comme suit :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
  For i = 3 To Nbenreg
 
    ''''Récupération de valeurs de colonnes
 
            Code_K = Sheets("Fichier de travail").Range("A" & i).Value
            Nom = Sheets("Fichier de travail").Range("G" & i).Value
            Code_Chantier = Sheets("Fichier de travail").Range("K" & i).Value
            Date_Cadrage = Sheets("Fichier de travail").Range("AM" & i).Value
            Date_Engagement = Sheets("Fichier de travail").Range("AN" & i).Value
            Date_Livraison = Sheets("Fichier de travail").Range("AO" & i).Value
            Date_Deploiement = Sheets("Fichier de travail").Range("AS" & i).Value
            Statut = Sheets("Fichier de travail").Range("AY" & i).Value
            Benefices = Sheets("Fichier de travail").Range("Q" & i).Value
            Type_Ligne = Sheets("Fichier de travail").Range("B" & i).Value
            Impact = Sheets("Fichier de travail").Range("AU" & i).Value
            Descriptif_Projet = Sheets("Fichier de travail").Range("N" & i).Value
 
        ''''Pour n'effectuer les contrôles que sur les lignes dont la "Validation" vaut "OK"
        If Sheets("Fichier de travail").Range("C" & i) = "OK" Then
 
        ''''Contrôle du statut en fonction de la date_arretee
 
            ''''Si la date_deploiement n'est pas vide,
            ''''et qu'elle est antérieure à la Date_Arretee
            ''''alors le statut doit être "déployé"
            If Date_Deploiement <> "" And Date_Deploiement <= Date_Arretee And Statut <> "déployé" Then
 
                DernLignVide = Sheets("CR").Range("A1").End(xlDown).Row + 1
                Ligne_Erreur Code_K, DernLignVide, "Le statut doit valoir 'déployé'"

Or, ils réalisent que leur fichier risque d'évoluer et que des colonnes pourront être ajoutées ou supprimées.

Donc, ils souhaitent que la macro ne se base plus sur les noms de colonnes (AB / X / AF etc...) mais sur des libellés (par exemple, je veux contrôler le contenu de la colonne ayant pour valeur écrite dans sa première ligne "Date_cadrage").

Cela vous semble-t-il réalisable ? Si oui, comment ?

Merci d'avance pour vos retours.

Cordialement,

CuisineAuBeurre

[MarcelG]

Bonjour et bienvenu sur le Forum,

Sachant que la méthode Find renvoie un objet Range, tu peux utiliser cette méthode pour définir la colonne adéquate.

Méthode Find

[Menhir]

Donc, ils souhaitent que la macro ne se base plus sur les noms de colonnes (AB / X / AF etc...) mais sur des libellés (par exemple, je veux contrôler le contenu de la colonne ayant pour valeur écrite dans sa première ligne "Date_cadrage").

Plus simple : nommer les plages.
https://support.office.com/fr-fr/art...2-ABD7FF379C64

Code :

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

Range("Nom_plage")(no_Ligne).Value

Tu peux aussi nommer uniquement les entête et atteindre la ligne souhaitée avec un Offset partant de cette référence.
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)

Code :

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

Range("Nom_Entete").Offset(no_Ligne, 0).Value

Ces solutions sont plus simples et plus rapides qu'un Find.

Perso, je n'utilise Find pour repérer une entête de colonne que si je ne maitrise pas le fichier source (par exemple dans un fichier obtenu par export d'une autre application).

[CuisineAuBeurre]

Que se passera-t-il lorsqu'ils basculeront la colonne ayant pour en-tête "Date_cadrage" de la colonne C vers la colonne W ? Et qu'ils prendront la colonne W "Statut" pour la passer vers la colonne D ?

Ca va suivre ?

[Philippe Tulliez]

Bonjour,
Dans tous mes développements, je n'utilise jamais les numéros de colonnes d'une façon statique.
Deux méthodes possibles pour connaître le numéro de la colonne à traiter soit la méthode Find comme évoqué plus haut soit WorksheetFunction.Match (la fonction EQUIV d'excel en français)
Avec ces deux méthodes, c'est entièrement dynamique (prévoir évidemment un message signalant qu'une colonne n'existe pas pour éviter les surprises.
Je prévois également la liste des étiquettes que je traite dans une feuille paramètre (ainsi la maintenance est aisée)

Si des formules doivent intervenir, les construire d'une façon dynamique
A lire éventuellement sur le dernier sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[Menhir]

Que se passera-t-il lorsqu'ils basculeront la colonne ayant pour en-tête "Date_cadrage" de la colonne C vers la colonne W ? Et qu'ils prendront la colonne W "Statut" pour la passer vers la colonne D ?

Si c'est fait correctement avec des "Couper / Insérer les colonnes coupée", ça ne posera aucun problème.

Maintenant, s'ils font ça comme des sagouins, aucun code ne sera assez solide pour garantir le fonctionnement.
Même avec un Find, que se passera-t-il lorsqu'il déplaceront la colonne "Date_cadrage" pour mettre ailleurs "Date cadrage" ou qu'ils déplaceront le colonne "Statut" pour mettre "Statuts" ?
Sans un minimum de rigueur et une notice, il est impossible de garantir une application futurproof.

[Philippe Tulliez]

Bonjour Menhir,

Maintenant, s'ils font ça comme des sagouins, aucun code ne sera assez solide pour garantir le fonctionnement.
Même avec un Find, que se passera-t-il lorsqu'il déplaceront la colonne "Date_cadrage" pour mettre ailleurs "Date cadrage" ou qu'ils déplaceront le colonne "Statut" pour mettre "Statuts" ?
Sans un minimum de rigueur et une notice, il est impossible de garantir une application futurproof.

Nous sommes bien d'accord que question rigueur c'est plus compliqué avec Excel qu'avec Access

Lorsque je livre une application, j'indique bien à mon client ce qu'il peut faire et pas faire et la modification des libellés de colonnes concernés par l'application en fait partie sinon je dégage ma responsabilité.

[patricktoulon]

re
Bonjour
l'utilisation de tableaux structurés me parrait tout indiqué dans ce contexte tellement plus simple
sachant que l'on peut determiner une colonne par son intitulé que l'on peut determiner la plage d'une colonne ,etc,etc.....