[VBA] Test sur plusieurs plages Résolu/Fermé

Question

Bonjour, 

j'ai un classeur avec les nom des collaborateurs et tous les jours de la semaine. Je cherche à modifier mon code VBA pour que si la semaine est finie, ça copie tout dans une autre feuille et, si il manque un jour ou deux (sauf jours férié et non travaillé), la macro me renvoie une erreur.

J'ai le début de mon code qui est 

If Application.CountA(Range("C6:I12")) = 0 Then"'Si la plage C6:I12 est vide, on n'exécute pas la macro      MsgBox "Aucune heure n'a été saisie!", vbCritical + vbOKOnly, "Application de paie"      'Affiche un message d'erreur      Else: Range("A6:I12").Select... (exécution des instructions)

or, dans mon code, la plage C6:I12 est copiée même si la semaine n'est pas complète! Et si je mets 

If Application.CountA(Range("C6:I12")) = "" Then"'Si la plage C6:I12 est vide, on n'exécute pas la macro

C'est pareil.

Je pensais éventuellement définir les plages dans Range, mais Excel ne veut pas!

Range("C6:C12","D6:D12","E6 :E12","F6 :F12,"G6:G12","H6 :H12","I6 :I12"

Configuration: Windows Vista édition Familiale Prenium  avec le Service Pack 2
navigateurs Firefox 7, Chrome 17 et Internet Explorer 8 
connexion via wifi

f894009 · Answer

Bonjour,

si toutes les cellules doivent etre non vides (6*7=42 cellules non vide)

    'Si la plage C6:I12 est vide, on n'exécute pas la macro
    If Application.CountA(Range("C6:I12")) < 42 Then
      ' Affiche un message d'erreur
        MsgBox "Aucune heure n'a été saisie!", vbCritical + vbOKOnly, "Application de paie"

tyranausor · Answer

Bonjour, en fait c'était tellement bête que je n'y ait pas pensé!

En tout cas merci, ça fonctionne!

[VBA] Test sur plusieurs plages

2 réponses

Discussions similaires