Vérification contenu cellules

Bonjour à tous,

Je viens vers vous avec une problématique de macro vba.
J'explique mon problème ...

Je saisie quelque chose en A18.
Uniquement si j'ai quelque chose en A18, je dois systématiquement entrer des valeurs en D18, E18, F18 et K18.

J'ai fait ce code qui ne me donne pas le bon résultat ...

Code:

---

1 2 3 4 5 6 7 8 9

If Range("a18") > 0 _ Or Range("d18").Value = "" _ Or Range("e18").Value = "" _ Or Range("f18").Value = "" _ Or Range("k18").Value = "" _ Then MsgBox ("La ligne 18 n'est pas bien complétée !") Exit Sub Else: End If

---

Pourriez-vous m'aider à le corriger svp ?

Merci par avance !

Nissaij

Bonjour,

Citation:

---

Envoyé par Nissaij

Code:

---

Else: End If

---

---

C'est la première fois que je vois ça ! C'est très original ! Et très inutile !

Essaye avec ça :

Code:

---

1 2 3 4 5 6

If Range("A18").Value <> "" Then If Range("D18").Value = "" Or Range("E18").Value = "" Or Range("F18").Value = "" Or Range("K18").Value = "" Then MsgBox ("La ligne 18 n'est pas bien complétée !") Exit Sub End If End If

---

Bonjour,

Avec 1 seule ligne:

Code:

---

If Range("A18").Value <> "" And Application.CountA(Range("D18"), Range("E18"), Range("F18"), Range("K18")) = 0 Then MsgBox ("La ligne 18 n'est pas bien complétée !")

---

Cdlt

Bonjour ARTURO,

J'aime bien ton code.
Par contre je ne pense pas qu'on puisse faire ce qu'il veut en une seule ligne car il veut sortir de la procédure si la ligne est mal remplie, alors que ton code affichera un message puis continuera d'exécuter la suite.

Je sais, je chipote ! :mrgreen:

Bonjour Mat,

Tout à fait raison, j'ai zappé cette étape. merci pour cette remarque, bonne journée.

Cdlt

Salut

@Arturo: Ton code vérifie qu'aucune cellule n'est remplie alors que la demande est de vérifier que les 4 cellules sont remplies (= 0 alors que tu aurais dû avoir < 4).

Etant allergique à Exit Sub, je propose ceci:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() If Range("a18") <> "" Then If Application.CountA(Range("d18:f18,k18")) = 4 Then MsgBox "Ok" ' Ici, tu mets le code que tu souhaites exécuter lorsque tout est ok Else MsgBox "Veuillez compléter les données", vbExclamation End If End If End Sub

---

Bonjour Pierre,

Ce qui m'a induit en erreur, c'est le code déposé par Nissaij en premier, ou il y a présence de OR et non de AND, ce qui est contradictoire avec: la Uniquement si j'ai quelque chose en A18, je dois systématiquement entrer des valeurs en D18, E18, F18 et K18.

Code:

---

1 2 3 4 5

If Range("a18") > 0 _ Or Range("d18").Value = "" _ Or Range("e18").Value = "" _ Or Range("f18").Value = "" _ Or Range("k18").Value = "" _

---

Qu'en est-il réellement?

Son code m'a aussi induit en erreur et pour les mêmes raisons, alors que le tien fonctionne bien sur le A rempli ET les autres (mais avec le problème du = 0 qui teste qu'ils sont tous vides alors qu'il doit tester qu'il y en a au moins un vide).

Citation:

---

Envoyé par ARTURO83

[...]
Qu'en est-il réellement?

---

L'avenir nous le dira, surtout qu'il faudra encore préciser si le code doit s'exécuter lorsque A est vide, ou si c'est un autre qui doit s'exécuter dans ce cas, ou si rien ne doit s'exécuter. A demande peu claire et incomplète, réponse(s) non adaptées à tous les coups... ;)

Bonjour à tous,

D'abord, merci pour vos réponses !

Je vais tester vos propositions et reviens vers vous.

Je dois vous avouez que je débute sans aucune connaissance/formation en vba, d'où le "Else:End If" ... :lol:
Concrètement, j'ai écrit quoi en faisant cela ? :weird:

Pour être plus clair sur ma demande, si je complète la cellule A18, je dois systématiquement compléter toutes les autres.
Si il n'y a rien en A18, il n'y a pas de raison de vérifier les autres.

Il s'agit de données de productions : je met une référence en A18 et on attend une quantité produite, des temps, des rebus ... dans les autres cellules.
C'est une étape d'autocontrôle pour éviter les erreurs de saisie par nos collaborateurs.
L'idée est de les prévenir que quand qu'ils ont oublié quelque chose.

Si tout est ok, on passe à la suite du code.

D'ailleurs, je complète ma demande.
J'ai 10 lignes qui se suivent à vérifier de la sorte (de 18 à 28).
On commence par compléter la ligne 18, puis 19, etc au cours de la journée et des productions.
En fin de journée, le nombre de ligne remplies est variable et il faudrait vérifier chaque ligne indépendamment pour voir si les collaborateurs n'ont pas oublié une donnée de production.
Si ils ont oublié quelque chose, leur signaler quelle ligne est concernée.

J'aurai copié plusieurs fois le code en modifiant le numéro de ligne, mais peut être que vous avez une meilleure solution ?

J'espère que j'ai pu être clair cette fois :D

En vous remerciant encore !

Nissaij

Pour leur signaler, je m'orienterais vers une mise en forme conditionnelle en Excel. Ce serait le plus visuel. Ca n'empêche pas la vérification avant traitement, mais ça t'évitera le VBA qui doit préciser les lignes incomplètes.

Après, si le traitement des données doit être effectué ligne par ligne, j'irais vers une procédure qui traite une ligne (par exemple selon son numéro) si elle est complète. Au passage, de 18 à 28, ça fait 11 lignes^^

Mise en forme conditionnelle, ici placée uniquement sur la colonne A, lignes 18 à 27, mais tu peux adapter, bien sûr

Pièce jointe 577161

Pièce jointe 577162

Pour le code, je verrais un truc du genre, si j'ai bien compris ton propos

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Process() Dim i As Long Dim Message As String   For i = 18 To 27 If Range("a" & i) <> "" Then If Application.CountA(Range("d" & i & ":f" & i & ",k" & i)) = 4 Then WorkWithRow i Else Message = Message & "La ligne " & i & " est incomplète" & vbLf End If End If Next If Message = "" Then Message = "Tout était ok" MsgBox Message   End Sub   Sub WorkWithRow(i As Long) ' Ici, le code qui traite réellement la ligne End Sub

---

Pièce jointe 577163



Pour le Else: End If, tu n'as rien fait "de mal". Simplement, le Else: ne sert à rien puisque tu ne le traite pas. Il n'est intéressant que si tu traites le cas où la condition n'est pas remplie.

Code:

---

1 2 3

If a = 0 Then MsgBox "Ok" Else: End If

---

Est similaire à

Code:

---

1 2 3

If a = 0 Then MsgBox "Ok" End If

---

Dans le cas où tu n'as qu'une instruction après le test, tu peux même écrire

Code:

---

If a = 0 Then MsgBox "Ok"

---

Sans placer de End If

Bonjour Pierre,

Effectivement, la mise en forme conditionnelle est un bon moyen d'alerte.
J'en ai déjà plusieurs dans mon document, mais je vais ajouter celle-ci.

Je complète avec le code que tu proposes pour un double check et reviens vers toi.

Merci beaucoup pour les explications.
J'essaie d'apprendre en vba, mais c'est un peu compliqué au début ^^. On s'y perd vite !

PS : hé oui, de 18 à 28, ça fait 11 lignes, erreur de ma part :lol:

Nissaij

La macro fonctionne.
J'ai néanmoins un petit parasite que je souhaiterai enlever.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Process() Dim i As Long Dim Message As String   For i = 18 To 29 If Range("a" & i) <> "" Then If Application.CountA(Range("d" & i & ":f" & i & ",k" & i)) = 4 Then WorkWithRow i Else Message = Message & "La ligne " & i & " est incomplète." & vbLf End If End If Next If Message = "" Then Call Macro_export MsgBox Message   End Sub

---

L'idée est la suivante :
- Si les données ne sont pas complètes, j'affiche le message d'alerte.
- Si les données sont correctes, je n'affiche pas de message et j'appelle la macro d'export.

Il y a juste une petite Msgbox qui s'affiche avec rien dedans avant de passer à la Macro_Export.
J'aimerai la supprimer.

Ça doit provenir du "MsgBox Message". Si je le supprime, je n'ai plus d'alerte quand il y a une erreur.

Merci.

Dans le code que je t'avais donné, l'idée était de traiter chaque ligne si elle était complète et donc, de traiter chaque ligne indépendamment des autres.

Ici, tu sembles vouloir bloquer le traitement de toutes les lignes dès qu'une n'est pas complète. Ce n'est pas la même chose. Voici un code qui réalise cela (traitement de toutes les lignes si elles sont toutes complètes et traitement d'aucune ligne si une seule est incomplète). A toi de dire clairement ce que tu souhaites réaliser et dans quel cas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Process() Dim i As Long Dim Message As String   For i = 18 To 27 If Range("a" & i) <> "" And Application.CountA(Range("d" & i & ":f" & i & ",k" & i)) < 4 Then _ Message = Message & "La ligne " & i & " est incomplète" & vbLf Next If Message = "" Then Macro_Export Else MsgBox Message End If   End Sub   Sub Macro_Export() ' ici, le traitement de toutes les lignes End Sub

---

Pierre,

Tout est ok, merci pour le complément.

Toutes mes excuses pour le manque de précision de ma demande.

Merci également aux autres personnes qui ont accordé du temps à ma demande.

Je vous souhaite une bonne journée.

Nissaij