Tests sur conditions multiples Excel 2007

Résolu
Eaheru -  
Bonjour,

Je souhaite effectuer un test sur 7 cellules afin de vérifier (en permanence) si elles ont vides ou si leur contenu diffère de "vide".
Si elle sont toutes remplies, la formule (ou macro VBA) doit afficher la valeur de la fonction "maintenant" (mais figé, sans recalcul à venir) dans une 8eme case.

Voila, je sèche un peu, les quelques essais que j'ai pu faire donne un dépassement de la pile. sûrement parce que j'intègre trop de boucle de IF/THEN/ELSE

Merci d'avance

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. michel_m Contributeur
    bonjour

    si tes cellules ne comportent pas de formules 

    Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A7")) Is Nothing Then Exit Sub
If Application.CountA(Range("A1:A7")) = 7 Then
    Range("A8") = Now
Else
    Range("A8") = ""
End If
End Sub


    a insérer dans un module feuille

    how to
    copier la macro
    clic droit sur le nom de l'onglet
    visualiser le code
    coller
    1. eriiic Contributeur
      Ah ben trop tard...
      Salut michel :-)
    2. michel_m Contributeur
      Avé Eriiic :-)