Tests sur conditions multiples Excel 2007 Résolu/Fermé

Question

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

michel_m · Accepted Answer

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

Eaheru · Answer

Merci de votre aide ! :)