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

Code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hugues
  • 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
H

Hugues

XLDnaute Impliqué
Bonjour le Forum

Dans un classeur j'ai une 1ere feuille qui s'appelle sommaire (que j'ai nommé ws1).
Dans cette feuille en colonne B il y a les codes des clients (qui correspondent aux noms des onglets des autres feuilles.
Cette feuille récapitule toutes les données contenues dans les autres (pour info, les autres feuilles sont identiques).
Je souhaiterais mentionner dans la feuille sommaire, en face du code client donc en colonne C, si dans la feuille du client les cellules ("D86:I91") sont vides, "Pas de commentaires"

For a = 9 To derlignews1 ' du permier au dernier client
code = WS1.Range("B" & a).Value
For Each WS In ThisWorkbook.Worksheets ' Teste toutes les feuilles du classeur
If WS.Name = code Then
'une serie d'instructions
If WS.Range("D86:I91") Is Empty Then
WS1.Range("P" & a) = "Pas de commentaire"
End If
End If
Next
Next a


Pourriez vous m'aider à comprendre mon erreur ?

Je vous remercie par avance,

Hugues
 
Trier par date Trier par votes
Re : Code VBA

Bonjour

Code: 
Function RangeIsEmpty(ByVal SourceRange As Range) As Boolean
RangeIsEmpty = (WorksheetFunction.CountA(SourceRange) = 0)
End Function
Pour tester la fonction
Code: 
Sub testo()
MsgBox RangeIsEmpty(Sheets(1).Range("A1:a10"))
End Sub
A tester avec ton code
....
If RangeIsEmpty(WS.Range("D86:I91")) Then
.....

PS: Pour ce qui concernce ton code: La syntaxe correcte est
Code: 
If IsEmpty(range("a1")) then msgbox "vide"
et pas Is Empty
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Code VBA

Re

Tu peux aussi te passer de la fonction et faire directement

Code: 
I[COLOR=Black]f[/COLOR][COLOR=Black] Application.WorksheetFunction.CountA([/COLOR]WS.Range("D86:I91")[COLOR=Black]) = 0 Then
[/COLOR]


A titre d'exemple:
Code: 
Sub test_plage_vide()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Application.WorksheetFunction.CountA(ws.Range("A1:A10")) = 0 Then
MsgBox "Dans la feuille: " & ws.Name & " la plage A1:A10 est vide"
End If
Next ws
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Code VBA

Bonjour JM,

Tout d'abord merci pour ta réponse rapide.
J'ai essayé mais cela ne fonctionne pas ; J'ai un message d'erreur "Sub ou Function non définie"
Voici mon code aprés rectification :
For a = 9 To derlignews1
code = WS1.Range("B" & a).Value
For Each WS In ThisWorkbook.Worksheets ' Teste toutes les feuilles du classeur
If WS.Name = code Then
WS1.Range("D" & a) = WS.Range("E55")
WS1.Range("E" & a) = WS.Range("F55")
WS1.Range("F" & a) = WS.Range("G55")
WS1.Range("G" & a) = WS.Range("G55") / WS.Range("G51")
WS1.Range("H" & a) = WS.Range("G23")
WS1.Range("I" & a) = WS.Range("G27")
WS1.Range("J" & a) = WS.Range("G33")
WS1.Range("K" & a) = WS.Range("G35")
WS1.Range("L" & a) = WS.Range("G39")
WS1.Range("M" & a) = WS.Range("G44")
WS1.Range("N" & a) = WS.Range("F74")
WS1.Range("O" & a) = WS.Range("G74")
If RangeIsEmpty(WS.Range("D86:I91")) Then ' Si pas de commentaire
WS1.Range("P" & a) = "Pas de commentaire"
End If
End If
Next
Next a


J'avoue que je ne comprends pas l'erreur.
Merci par avance pour l'aide,

Hugues
 
Vote positif 0 Vote négatif
Re : Code VBA

Re bonjour,

Excusez moi tous mais aujourd'hui ce n'est pas la forme.
J'ai toujours un souci et j'avoue que ne comprends rien aujourd'hui. Le WE fut un peu chargé.

Je joins un fichier expliquant mon souci.

Encore mille mercis pour l'aide

Hugues
 

Pièces jointes

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

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
269
LaurentVasseur
L
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
342
sousou
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
574
job75
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
486
sylvanu
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
240
treza88
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
326
dadaze
D
  • Question Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
982
sylvanu
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
481
nabilexcel2007
N
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
588
Phil69970
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
788
lynyrd
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
454
KTM
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…