Vérification de colonnes

Question

Voilà, j'ai un souci avec mon fichier. Je suis débutante en VBA, il est bon de préciser avant tout. Je voudrais pouvoir mener une vérification automatiquement sur les colonnes de mon fichier via une macro. J'ai des fichiers de plus de 50 colonnes avec des milliers de lignes. Chaque fichier contient des colonnes obligatoires et certaines facultatives. Certains des clients qui devraient renseigner les données dans les fichiers ne respectent pas tout le temps les consignes et laisse vide des champs de données obligatoires. Pourriez-vous me donner un code permettant de vérifier les fichier dès leur réception (surtout sur les colonnes obligatoires)? Je compte bcp sur votre aide pour me tirer d'affaire. Par avance, merci...

nono78 · Answer

Pourrais-tu charger un fichier exemple, avec la précision des colonnes obligatoires, afin qu'on puisse se baser dessus pour la macro (qui sera forcément à adapter à ton fichier réel)...

nono78 · Answer

Re, Y a t-il une colonne dont tu es sure qu'elle est non vide? Le nom ou le prénom par exemple...

Curulis · Answer

Voici ton fichier! Je postule que ta ligne 2 (oui, non) est permanente! Si elle ne l'est pas, préviens-moi, sinon, cata! La macro réagit au clic sur le petit bouton jaune dissimulé en A1 ou à un changement dans tes données et refait un contrôle général. Dim tTab Dim tMust ' iRow = UsedRange.Rows.Count iCol = Cells(1, Columns.Count).End(xlToLeft).Column sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1) ' Application.ScreenUpdating = False ' tTab = Range("A3:" &amp; sCol &amp; iRow) tMust = Range("A2:" &amp; sCol &amp; 2) Range("A3:" &amp; sCol &amp; iRow).Interior.Color = xlNone ' For x = 1 To iRow - 2 For y = 1 To iCol If LCase(tMust(1, y)) = "oui" And tTab(x, y) = "" Then Cells(x + 2, y).Interior.ColorIndex = 3 Next Next ' Application.ScreenUpdating = True Les cellules obligatoires non-complétées se colorent de rouge! Bon travail! A+...

Curulis · Answer

Eeeet m...!

Bibine,

Je te fais une suggestion : tu prends ou tu jettes!

Garde cette ligne 2, rends les valeurs invisibles par la couleur de police et réduits la hauteur à sa plus simple expression!

Avantage : si une colonne devient obligatoire ou non-obligatoire, la modif est prise automatiquement en compte dans la macro qui, du coup, reste valable dans le temps!

Sinon, je refais ce que j'avais testé et réussi dans un premier jet de ton fichier mais qui rendrait plus difficile toute modif décrite plus haut!

A te lire.

nono78 · Answer

Re,

curulis57 a raison, le mieux c'est de garder la ligne 2 pour que le fichier soit dynamique.

Sinon, voici une proposition sans la ligne 2 mais qu'il faut modifier si les colonnes obligatoires changent.

Les cellules vides apparaissent en rouge et tu as un onglet qui se crée avec un récap des colonnes concernées.

Option Explicit
Option Base 1
Sub verif_remplissage()
Dim i As Byte
Dim j As Byte
Dim Nbrecol As Byte
Dim Nbreligne As Double
Dim Cell As Range
Dim O(26) As String
Dim Obligatoire(26) As Variant
Dim Vide(26) As Variant
Dim plageDeRecherche

O(1) = "Matricule"
O(2) = "Nom patronymique"
O(3) = "Prénom"
O(4) = "Code établissement"
O(5) = "Date de début de contrat"
O(6) = "Actif"
O(7) = "Nom d’usage"
O(8) = "Date de naissance"
O(9) = "Sexe "
O(10) = "Type de contrat"
O(11) = "Taux horaire brut chargé"
O(12) = "CSP légale"
O(13) = "CSP conventionnelle"
O(14) = "Date d’entrée dans le groupe"
O(15) = "Date de sortie"
O(16) = "Référence de l’organisation fonctionnelle"
O(17) = "Référence de l’organisation  analytique"
O(18) = "Région RH"
O(19) = "Centre d’imputation comptable"
O(20) = "Matricule du responsable RH"
O(21) = "Matricule du manager "
O(22) = "Entité de gestion"
O(23) = "Référence de l’organisation géographique"
O(24) = "Handicap"
O(25) = "Date d’entrée dans la société"
O(26) = "Civilité"

Nbrecol = Application.WorksheetFunction.CountA(Rows(1))

Nbreligne = ActiveSheet.UsedRange.Rows.Count
Rows(1 & ":" & 1).Select

For i = 1 To UBound(O)

    Set plageDeRecherche = ActiveSheet.Rows(1)
     Set Cell = plageDeRecherche.Cells.Find(What:=O(i), LookAt:=xlWhole)
    Obligatoire(i) = Cell.Column
Next i

For j = 1 To 26
    For i = 1 To Nbreligne
        If IsEmpty(Cells(i, Obligatoire(j))) Then
            Cells(i, Obligatoire(j)).Interior.ColorIndex = 3
            Vide(j) = O(j)
        End If
    Next i
Next j

    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Colonnes av vide"

For i = 1 To UBound(Vide)
    Cells(i, 1).value = Vide(i)
Next i

End Sub

Curulis · Answer

Voici ton fichier amélioré dans les deux versions : avec et sans la Ligne 2 (oui, non). Amélioré dans le sens où une macro (petit bouton) calcule l'ensemble du tableau et une autre ne gère que le changement de valeur d'une cellule (plus rapide). Tu choisiras en fonction de la réalité de ton travail, évidemment! Arguments supplémentaires en faveur du maintien de cette ligne 2 bien pratique : si une ou plusieurs colonnes devenaient obsolètes et devaient être éliminées, pas de souci : la macro gère le nombre variable de colonnes ; en cas de nouvelles colonnes (pas oublier de mentionner le oui-non en Ligne 2) : la macro gère déjà l'élargissement. Pas de changement de code nécessaire! A+...

Curulis · Answer

A structure identique, si tu gardes ou insères la Ligne 2 (oui, non), ces macros devraient fonctionner sans modifications sans problème. A tester quand même sur ces fichiers que je ne connais pas! A+...

nono78 · Answer

@ Bibine que veux tu dire concrètement par les "mêmes contraintes"...