XL 2010 Tester plusieurs cellules dans un msgbox

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour Mapomme,
Bonjour à toutes et à tous,

Je suis actuellement une discussion : http://www.excel-downloads.com/threads/tester-plusieurs-msgbox.20010592/

Mapomme que je remercie, a mis un classeur qui m'aiderait beaucoup ...... mais il n'est pas le bon sens pour moi LOL

En effet, la macro traite en vertical et j'en ai besoin en horizontal. (on est jamais content LO0L)
J'ai tenté de modifier le code mais je n'y arrive pas.

Je n'ai pas voulu faire ma demande sur le fil par crainte de déranger.

Je joins le classeur dans lequel j'ai ajouté une feuille en Horizontal.

Votre aide me sera, comme à l'habitude, précieuse ... celle de Mapomme en particulier.
Avec mes remerciements,
Amicalement,
Lionel,
 

Fichiers joints

Dernière édition:

Paf

XLDnaute Barbatruc
Bonjour arthour973

un essai qui traite la première ligne du tableau de la feuille Horizontal

Code:
Sub TestH()
Dim s As String, i As Long
For i = 2 To 5
      If Cells(2, i) = "" Then s = s & Space(4) & Cells(1, i) & vbLf
Next i
If s <> "" Then MsgBox "Veuillez saisir le(s) champs :" & vbLf & s
End Sub
A+
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Un essai qui tente de traiter tout le tableau.
VB:
Sub TestCelluleH()
Dim xrg, s As String, n&, i&, KO As Boolean
  For Each xrg In Range("b2:e17").Rows
    n = Application.WorksheetFunction.CountA(xrg)
    If n > 0 And n < 4 Then
      KO = True
      s = s & vbCrLf & "Ligne " & Space(4 - Len(xrg.Row)) & xrg.Row & ", manque : "
      For i = 1 To 4
        If xrg.Cells(1, i) = "" Then s = s & Cells(1, i + 1) & " "
      Next i
    End If
  Next xrg
  If KO Then MsgBox "Veuillez saisir le(s) champ(s) :" & vbLf & s
End Sub
 

Fichiers joints

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour Paf,
Bonjour à toutes et à tous,

Merci de m'avoir répondu et pour votre code qui marche.
Comme toujours, vous êtes à l'écoute .....
Bon WE,
Amicalement,
Lionel,
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour mapomme,
Bonjour à toutes et à tous,

Waoooo !!!, je ne m'attendais pas à un tel code LOL
Vous avez même anticipé en excluant la vérification des lignes vides.

Depuis que je suis sur le forum, grâce à vous tous j'ai beaucoup évolué.
Je ne vous en remercierai jamais assez.


Mais là, ça reste magique pour moi.
Vraiment un grand merci pour ce code qui va beaucoup d'aider dans mon boulot,
En plus, or le "mystère" lignes vides, j'arrive à comprendre ...... LOL miracle.
Bon WE,
Amicalement,
Lionel,
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour JJ,

Super la peinturlure mais il y a un petit souci .....
Après peinturlure et après saisie, ça reste peinturlurer LOL.
Résultat : il faut refaire le contrôle pour dé-peinturlurer à moins que le contrôle soit automatique.

Ce qui poserait un autre problème, me semble-t-il :
Dans ce cas, il faudrait que la macro contrôle et n'affiche que si "on saute" une cellule à remplir.

J'espère ne pas vous faire regretter votre sympathique venue :confused:

Un grand Merci, c'est bien la peinturlure aussi.
Amicalement,
Lionel,
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous :),

Un autre essai :
  • qui prend en compte la seule zone utile (on ôte les lignes vides en fin de tableau)
  • qui modifie une éventuelle MFC du tableau pour y rajouter une formule permettant de colorer les cellules en anomalie
  • qui dès qu'une cellule vide est remplie, lui redonne la coloration d'origine
  • qui limite les bordures à la zone utile
  • qui permet de rajouter ou supprimer des lignes (vides ou non)

Trois constantes doivent être complétées:
  • Const Feuille qui désigne le nom de l'onglet où se trouve le tableau à contrôler
  • Const CelluleBase qui désigne la cellule de départ des données (hors intitulé)
  • Const NbrCol qui est le nombre de colonnes du tableau
Dans la feuille "Horizontal", on lance la macro : ControleCellulesH
Dans la feuille "Autre-Exemple", on lance la macro : ControleCellulesA
Les seules différences entre les deux macros sont les valeurs des trois constantes et leurs noms.
 

Fichiers joints

arthour973

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour Mapomme,

Test des deux feuilles 100 % bon LOL
Très pratique à adapter ou pour ajouter des colonnes.
C'est un art. C'est magique quand on ne sait pas ;)

J'essai de décortiquer les codes pour tout comprendre (enfin ... o_O)
Encore Merci pour ce qui est bien plus que de l'aide.
Bon dimanche,
Amicalement,
Lionel,
 

Si...

XLDnaute Barbatruc
salut

J’ai été intéressé par le sujet* mais je me suis demandé quelle était l’utilité du message quand les manques étaient mis en évidence (MFC).

Pour le Fun, dans l’exemple joint, j’ai complété la « magie » o_O.

*d’autant plus que mapomme intervenait avec son efficacité habituelle :D
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas