Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compter les cellules non vides (hors formules) d'une zone.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Victor21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Victor21

XLDnaute Barbatruc
Supporter XLD
Bonjour !!!

Je ne parviens pas à corriger ce code :
VB: 
 'Test s'il y a des données à copier
    Dim compte As Long
    compte = Application.WorksheetFunction.Count(ThisWorkbook.Sheets("Saisie").Range("A7 :O" & DerligSaisie).SpecialCells(xlConstants))
    If compte = 0 Then
        MsgBox "Rien à sauver."
        Exit Sub
    End If

    With ThisWorkbook.Sheets("Saisie")
        .Range("A7 :O" & DerligSaisie).Copy
        wb.Sheets("Archive").Range("B" & DerligHisto).PasteSpecial Paste:=xlPasteValues
        .Range("A7 :O" & DerligSaisie).SpecialCells(xlConstants).ClearContents
    End With
End Sub
Lorsqu'il y a des cellules à copier, ça marche. Quand il n'y en a pas, j'ai une erreur 1004 "Pas de cellules correspondantes".
Je ne comprends pas pourquoi on ne sort pas du test ?

D'avance, merci à qui pourra m'aiguiller.

Edit : l'erreur se produit sur la ligne compte = ...
 
Dernière édition:
Trier par date Trier par votes
Re : Compter les cellules non vides (hors formules) d'une zone.

Bonsoir,

peut être comme ceci :
Code: 
Dim compte As Long
compte = Application.CountA(Range("A1:F1"))

A noter, c'est "specialcells" qui renvoie l'erreur si pas de cellule répondant au critère...
bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Compter les cellules non vides (hors formules) d'une zone.

Re, Pierrot.

Merci pour ta proposition, en fait j'ai besoin de verifier si la zone contient au moins une donnée en dur, car plus loin, j'efface uniquement les cellules de cette zone, en conservant les formules, et si je ne teste pas, le message réapparaitra.

Je suis preneur de toute nouvelle piste.
 
Vote positif 0 Vote négatif
Re : Compter les cellules non vides (hors formules) d'une zone.

Bonsoir,

peut-être en rajoutant la première ligne
Code: 
On Error Resume Next
    compte = ThisWorkbook.Sheets("Saisie").Range("A7 :O" & DerligSaisie).SpecialCells(xlConstants).Count
    If compte = 0 Then
    ...
 
Vote positif 0 Vote négatif
Re : Compter les cellules non vides (hors formules) d'une zone.

Bonsoir, et merci, Fo_rum

Cette proposition annule bien le message d'erreur.

Je vais maintenant tester s'il n'y a pas de dommages collatéraux avec le reste du code.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
D
  • Question Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
L
  • Question Question
Microsoft 365 compter les cellules contenant les valeurs #N/A
Réponses
4
Affichages
881
Lucie44
L
Q
  • Résolu(e)
Microsoft 365 Compréhension d'une macro pour réutilisation
Réponses
10
Affichages
1 K
Quent17
Q
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
1 K
Lolote83
L
P
  • Résolu(e)
Microsoft 365 En fonction d'une condition, copier plusieurs cellules particulières d'un coup
Réponses
4
Affichages
1 K
PCharlier
P
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
S
  • Résolu(e)
Microsoft 365 VBA contrôle cellule(s) vides(s) encadrée(s) par cellules non vides
Réponses
6
Affichages
2 K
spike29
S
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
M
  • Question Question
Microsoft 365 modifier format plusieurs mots précis dans toutes les cellules d'une feuille
Réponses
4
Affichages
1 K
MANTE
M
M
  • Résolu(e)
XL 2016 Message d'erreur aléatoire pour les utilisateurs réseau -Excel 2016
Réponses
11
Affichages
2 K
Melidan2006
M
  • Question Question
Microsoft 365 MACRO VBA Comptabiliser les cellules non colorisées d'une plage définie
Réponses
12
Affichages
2 K
Aurelien25
A
J
  • Question Question
XL 2010 Récupérer les données de plusieurs fichiers pour un nom de feuille donné
Réponses
10
Affichages
2 K
JVOS
J
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
7 K
Roland_M
T
  • Question Question
Copier des onglets dans un nouveau fichier
Réponses
0
Affichages
1 K
tamatave33
T
  • Question Question
XL 2010 REMPLACER LES CELLULES VIDE PAR DES 0 SOUS CONDITION
2
Réponses
23
Affichages
5 K
Staple1600
  • Question Question
Pb de comptage de cellules non vides
Réponses
8
Affichages
1 K
vgendron
B
  • Question Question
XL 2010 Selection - copie d'une plage en fonction de la date
Réponses
1
Affichages
1 K
Bulr6
B
B
  • Question Question
Copier les cellules commencant par MIRE
Réponses
2
Affichages
972
sousou
N
  • Question Question
Stopper l'incrémentation d'une cellule quand celle ci est rempli
Réponses
2
Affichages
904
nihao38
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…