XL 2010 Tester plusieurs cellules dans un msgbox

Usine à gaz

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

Je suis actuellement une discussion : https://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,
 

Pièces jointes

  • MsgBox multicellues.xlsm
    18.2 KB · Affichages: 52
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
 

Pièces jointes

  • arthour973- MsgBox multicellues- v1.xlsm
    20.9 KB · Affichages: 35

Usine à gaz

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,
 

Usine à gaz

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.
 

Pièces jointes

  • arthour973- MsgBox multicellules- v2.xlsm
    30 KB · Affichages: 48

Usine à gaz

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
 

Pièces jointes

  • Msg multi_cellules-vides.xlsm
    31.7 KB · Affichages: 59

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo