test sur cellules non vides

[Pascal]

Salut,

J'aimerais copier des feuilles Excel dans un nouveau classeur uniquement si les cellules A3 a A30 ne sont pas vides. Pourriez-vous m'aider à faire ca?
Je pense que ca doit ressembler à:

"for cellules A3:A30 NON VIDES, do Worksheet.Copy Before:=Workbooks(Workbooks.Count).Sheets(1)".

Le probleme c'est que je ne sais pas comment dire à Excel de chercher des cellules non vides.

Merci de votre aide.

 

[Laetitia]

Sur le forum dans chercher tape cellules non vides, il ya pleins d'exemples.
Moi on m'a aidé sur ce forum , j'avais le même problème.

A+

 

[Pascal]

Merci Leatitia,

J'avais effectivement cherché sur le forum, mais comme je débute avec VBA, j'avais du mal à l'adapter sur mon exemple.

Je pensais à inserer une formule dans une cellule inutilisée et invisible (disons O1):

=SI(NB.VIDE(A3:A30)=28;"VRAI";"FAUX")

et ensuite faire une boucle if sur cette cellule

If Range("O1").Value = "Vrai" Then
end sub
Else: Worksheets("nomdemafeuille").Copy Before:=Workbooks(Workbooks.Count).Sheets(1)
End If

Bon ca fait un peu bricolage mais je pense pouvoir m'en sortir...Merci encore!

 

[STéphane]

if application.counta(activesheet.Columns(1).Range("a3:A30"))=28 then .... else ...