Macro pour vérifier les cellules obligatoire non renseignées

**capi81** · 03/10/2013, 10h56

Salut le forum

Je travail sur une facture et souhaite bénéficier de vos soutiens pour le parfaire.
En effet, je saisis les quantités à partir de la colonne G (G30:G...).
Dans certaines colonnes de ma facture, j'ai mis des formules.
Ces formules ne peuvent fonctionner que si toutes les conditions de remplissage sont respectées à savoir que si une cellule de la colonne G est renseignée, les cellules des colonnes J, K, M et P (de la même ligne que G) devront aussi être renseignées.
Je souhaite trouver une solution qui me permettra à la validation de ma facture de savoir que certaines cellules qui devraient être renseignées ne l'ont pas été.
Telle est mon idée et je compte sur vos sages solutions.
N.B :j'ai déjà eu une proposition par MFC mais cela ne résous pas mon problème (à tout moment il faudra être obligé d'effacer les couleurs)
Merci

**parmi** · 03/10/2013, 14h39

Bonjour,

Je pensais aussi à une MFC.
S'il y a une valeur entrée, les autres cellules sont colorées jusqu'à ce que toutes celles de la ligne soient renseignées.

Je ne vois pas pourquoi tu devrais effacer les couleurs.
Peux-tu expliquer ?

Tout est dans la manière d'écrire la condition de la MFC, je pense...

**capi81** · 03/10/2013, 15h30

Salut Parmi et le forum

Merci pour votre feedback.

Je ne vois pas pourquoi tu devrais effacer les couleurs.
Peux-tu expliquer ?

Il faut noter que les couleurs s'affichent même dans le corps de la facture et ca ne fera pas sérieux car à l'impression la facture sera surchargé.
Merci de voir ce qui faisable.
Merci

**nibledispo** · 03/10/2013, 15h55

Bonjour,

Dans la gestion de mon immeuble, j'ai adopté la solution suivante.

Le fonds de ma fenêtre est légèrement coloré parce que le blanc fait mal aux yeux.

J'ai donc choisi de mettre en blanc uniquement les cellules à renseigner.

De ce fait, pas de code et à l'impression pas de couleur de fond non plus.

cordialement,

**parmi** · 03/10/2013, 15h56

Dans ta MFC, si toutes les cellules sont vides, ne mets aucune couleur. De cette façon, aucune couleur n'apparaît sauf s'il y a au moins une donnée entrée.

Une autre façon de procéder pourrait être dans Worksheet_Change()
Il te suffirait de vérifier si les cellules sont remplies ou non sur la ligne qui a été modifiée.
Je pense que ça pourrait se faire assez simplement...

**patricktoulon** · 03/10/2013, 16h03

Bonjour
puisque tes formules sont au point et que ta question portait sur un evenement a la fin je suppose

Je souhaite trouver une solution qui me permettra à la validation de ma facture de savoir que certaines cellules qui devraient être renseignées ne l'ont pas été.
Telle est mon idée et je compte sur vos sages solutions.

une idée serait de tester la cellule en question de chaque ligne de la facture
si elle est egale a zero faire ceci ou cela

Code :

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

1
2
3
4
5
6
7
8
 
 
'lors de la validation 
sub validation ()
for i = premiereligne de ta facture to derniereligne de ta fature 
if cells(i,X)<=0 then  ......
next i 
end sub

c'est juste une idée comme ca

Au plaisir

**capi81** · 03/10/2013, 16h40

Salut à tous

Merci pour vos contributions.
Comme Patrick l'a dit, il s'agit d'une évènement de fin que je souhaite.
Si une quantité est saisie dans la colonne G, et que les cellules de la même ligne restent non renseignées, à la validation, un message d'alerte devra me signifier que les dites cellules n'ont pas été renseignées. Ce qui me permettra d'apporter les corrections nécessaires.
C'est ce que je souhaite mais pas de MFC (car il s'agit d'un évènement de fin et non au fur et à mesure).
Merci pour votre compréhension

**mercatog** · 03/10/2013, 19h45

Essaie d'incorporer le test dans les formules

Exemple, on écrit Incomplète comme résultat de la formule si l'un des cellules est vide

Code :

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

=SI(G34="";"";SI(OU(J34="";K34="";M34="";P34="");"Incomplète";G34*J34*K34*M34*P34))

**capi81** · 03/10/2013, 20h53

Salut Mercatog

Merci pour votre contribution.
Je pensais qu'une solution par macro allait être réalisable comme cela c'est à la validation que l'agent pourra savoir que certaines cellules n'ont pas été renseignées et en ce moment, il pourra apporter les corrections nécessaires.
Merci pour vos éventuelles autres contributions.

**mercatog** · 03/10/2013, 21h03

Tout est possible

On commence d'abord par te proposer des solutions purement Excel (Car on oubli souvent qu'on travaille avec un tableur et on se confine rapidement vers du vba)

**capi81** · 03/10/2013, 21h28

Moi particulièrement j'aime beaucoup les formules excel et j'en utilise rationnellement. Je sollicite des solutions vba après avoir apprécié les "limites" des formules qui doivent s'adapter à mon cas sans oublié que je m'adresse à un expert (j'ai un respect considérable pour vous car vous m'avez fait sortir des solutions inimaginables et encore merci pour hier).
Si une solution par macro est faisable, je suis preneur.

**NVCfrm** · 04/10/2013, 00h52

Bonsoir,
le besoin reste toujours dans la portée des formules Excel que tu peux exprimer en VBA.

Code :

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

1
2
3
4
5
If WorkSheetFunction.And(Champ1 <> "", Champ2 <> "", Champ3 <> "") Then
'instructions ...
Else
MsgBox ....
End if

**nibledispo** · 04/10/2013, 02h38

Bonjour,

Les colonnes G J K M P sont une liste posée sur une feuille différente de la facture ?

Chaque ligne de la liste sont les données correspondant à une facture ?

Comment est validée la facture ? Avec un bouton posé sur la feuille Excel de la facture ? Si oui, la solution Mercatog logée dans le code associé au bouton me semble répondre au problème; à savoir si Gi * Ji * Ki * Mi * Pi = 0 "alors cellules non ou mal renseignées"

Cordialement,

**capi81** · 04/10/2013, 12h46

Salut à tous

nibledispo :

Les colonnes G J K M P sont une liste posée sur une feuille différente de la facture ?

Je répondrai par NON car ces colonnes sont partie intégrante de la facture. Il sont en quelque sorte indissociable. J'explique un peu :
sur la facture, je saisis en G la quantité, le Prix unitaire en H et le prix total en I.
dans la colonne H, la formule suivante est saisie :

Code :

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

SI(ESTERREUR(ARRONDI(L30*RECHERCHEV(K30;$L$16:$M$26;2;0);0));"";ARRONDI(L30*RECHERCHEV(K30;$L$16:$M$26;2;0);0))

Vous voyez déjà que la formule en H ne pourra fonctionner que si L, K, M est renseigné.

Chaque ligne de la liste sont les données correspondant à une facture ?

Oui à la même facture.

Comment est validée la facture ? Avec un bouton posé sur la feuille Excel de la facture ? Si oui, la solution Mercatog logée dans le code associé au bouton me semble répondre au problème; à savoir si Gi * Ji * Ki * Mi * Pi = 0 "alors cellules non ou mal renseignées"

Oui j'ai un bouton sur la feuille comportant la facture qui devra me permettre de m'assurer que la facture est correcte sinon que les points en suspend me soit signifiés.
Dans l'espoir que ces quelques explications vous permettra de mieux me comprendre, je reste à votre disposition pour tout complément d'information.

**Marc-L** · 04/10/2013, 13h14

Bonjour,

lignes à insérer dans la procédure du bouton de validation, voie pourtant déjà indiquée par Patrick notamment,
le code s'interrompant en sélectionnant la première cellule non renseignée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    COL = [{10,11,13,16}]
 
    For R& = 30 To Cells(Rows.Count, 7).End(xlUp).Row
        If Cells(R, 7).Value > "" Then
            For Each C In COL
                If Cells(R, C).Value = "" Then
                    Cells(R, C).Select
                    MsgBox "Cellule non renseignée !", vbCritical
                    Exit Sub
                End If
            Next C
        End If
    Next R

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Didier Gonard** · 04/10/2013, 14h56

Bonjour,

La solution dépend de la clarté dont a été exprimé le besoin

Il y a moult façons de faire, mais c’est dur de jouer au devin.

A un premier stade, tu peux donner un nom à la plage de cellules discontinues (ou non ?) qui sont obligatoires. Du coup le code de validation s’en trouve simplifié :

Code :

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

1
2
3
4
5
6
7
Sub gogo()
Dim cell As Range
 
For Each cell In Range("Obligatoire")
    Debug.Print cell.Address 'à la place le code de vérification
Next cell
End Sub

Quitte à utiliser du VBA, tu peux chiader l’ergonomie et ne faire apparaître les zones finales de totaux etc… qu’à partir du moment où les cellules voulues sont complètes (un simple format spécial avec ;;; ou ;; les passe en encre invisible et non pas une encre de la couleur du fond qui se voit en sélection de plage et à l’impression le plus souvent (laser n&b)).
Dans le même temps, tu mets la propriété de ton bouton de feuille (activeX) à false si bien que l’utilisateur ne peut valider tant que les champs ne sont pas remplis… etc.,etc.

cordialement,

Didier

**capi81** · 05/10/2013, 02h12

Salut à tous

Merci pour vos multiples contributions très riche.
Finalement j'ai trouvé une solution par MFC qui permet de se débarraser automatiquement des couleurs quand toutes les conditions venaient à être remplies.
Maintenant, ce que je vais solliciter sera la suivante:
Si dans les colonnes J, K, M, O ou P, il y'a une cellule qui contient une couleur rouge (ce qui signifie qu'il y'a erreur), je souhaite que les dites cellules me soient listées.
Exemple du msgbox : Attention! cellules J30, K56, O90 non renseignées; cela permettra à l'agent de savoir qu'il doit forcement apporter les corrections nécessaires.
N.B :j'ai perdu beaucoup de marché dans des appels d'offres suite à des erreurs d'inattention voilà pourquoi je souhaite une solution "radicale" pour limiter les dégâts.
Si ce que je souhaite arrivait à être réalisé, j'aurai résolu un soucis sérieux et cela grace à vos contributions.

**nibledispo** · 05/10/2013, 02h43

bonjour Capi81,

Pourquoi ton problème nous concernerait si ta solution MFC ne nous regarde pas ?

A+

**capi81** · 05/10/2013, 11h35

Salut nibledispo

Excusez mon "égoïsme".
Voici la solution de la MFC:
http://cjoint.com/?CJflI2slKXi

Cordialement

Macro pour vérifier les cellules obligatoire non renseignées

Macros et VBA Excel

Discussions similaires

Partager

Partager