Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nombre de cellule dans une zone d'impression

Nombre de cellule dans une zone d'impression

6 réponses
Avatar
DAH
Bonjour,

Je voudrais connaitre le nombre de cellule dans une zone d'impression.

Existe t'il une méthode plus rapide que celle là pour avoir le nombre de
cellule.

Dim i As Long
For Each Cell In Range("Print_Area")
i = i + 1
Next

Merci d'avance pour votre aide.
--
@+
David
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
philou leduc
Salut

largeur = Range("Print_Area").Columns.Count
hauteur = Range("Print_Area").Rows.Count
nb_cellule=largeur*hauteur

Ca évite la boucle !

--
@+ Phil


"DAH" a écrit dans le message de
news:blblqn$6jo$
Bonjour,

Je voudrais connaitre le nombre de cellule dans une zone d'impression.

Existe t'il une méthode plus rapide que celle là pour avoir le nombre de
cellule.

Dim i As Long
For Each Cell In Range("Print_Area")
i = i + 1
Next

Merci d'avance pour votre aide.
--
@+
David




Avatar
notche
bonjour,

nombre_de_cellules = Range("Print_Area").Count

amicalement

Bonjour,

Je voudrais connaitre le nombre de cellule dans une zone
d'impression.


Existe t'il une méthode plus rapide que celle là pour
avoir le nombre de

cellule.

Dim i As Long
For Each Cell In Range("Print_Area")
i = i + 1
Next

Merci d'avance pour votre aide.
--
@+
David


.



Avatar
DAH
nombre_de_cellules = Range("Print_Area").Count


ça aurait été trop facile... cette méthode plante...

Avatar
DAH
nombre_de_cellules = Range("Print_Area").Count
ça aurait été trop facile... cette méthode plante...



Autant pour moi... effectivement vos méthodes fonctionnent !!! J'ai eût un
1er message d'erreur qui surgit si l'on teste sur une feuille n'ayant pas de
zone d'impression définie... mea culpa...


Avatar
Denis Michon
Bonjour DAH,

Essaie ceci : Nb = Nombre de cellules dans la plage à imprimer


Sub DéterminerNombreDeCellule()

Dim Nb As Long

With ActiveSheet
.PageSetup.PrintArea = .Range("A1:B25").Address
Nb = .Range("A1:B25").Cells.Count
End With

End Sub


Salutations!


"DAH" a écrit dans le message de news:blblqn$6jo$
Bonjour,

Je voudrais connaitre le nombre de cellule dans une zone d'impression.

Existe t'il une méthode plus rapide que celle là pour avoir le nombre de
cellule.

Dim i As Long
For Each Cell In Range("Print_Area")
i = i + 1
Next

Merci d'avance pour votre aide.
--
@+
David
Avatar
modeste
bonjour,
eviter la boucle !
Quelle boucle ???
;-)))

Sub zaza()
MsgBox Range("Print_Area").Cells.Count
End Sub

@+