Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel boucle

boucle

9 réponses
Avatar
Michel
Bonjour et bon Dimanche,

pour tester si une feuille est vide et sortir j'ai cela:
If sheets("import").Cells.Find("*") Is Nothing Then exit Sub


Maintenant j'essai de faire une boucle qui teste dans le classeur si
une des feuilles est vide (14 feuilles dans le classeur) ben ... j'ai
du mal !

Merci de l'aide

Michel
Signaler un problème avec ce contenu

9 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
Philippe.R
Bonjour,
Un truc comme ça pourrait servir de base :

Sub feuilvidoupa()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Cells.Find("*") Is Nothing Then
MsgBox "La feuille nommée " & Sheets(i).Name _
& " est vide", , "Merci M.P.F.E."
'Exit Sub
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel" a écrit dans le message de
news:
Bonjour et bon Dimanche,

pour tester si une feuille est vide et sortir j'ai cela:
If sheets("import").Cells.Find("*") Is Nothing Then exit Sub


Maintenant j'essai de faire une boucle qui teste dans le classeur si une
des feuilles est vide (14 feuilles dans le classeur) ben ... j'ai du mal !

Merci de l'aide

Michel




Avatar
LE TROLL
Bonjour,

Juste pour info, la structure de la boucle est :

for i = 0 to 13 step 1
next i
OU
for i = 13 to 0 step -1
next i

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonjour,
Un truc comme ça pourrait servir de base :

Sub feuilvidoupa()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Cells.Find("*") Is Nothing Then
MsgBox "La feuille nommée " & Sheets(i).Name _
& " est vide", , "Merci M.P.F.E."
'Exit Sub
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel" a écrit dans le message de
news:
Bonjour et bon Dimanche,

pour tester si une feuille est vide et sortir j'ai cela:
If sheets("import").Cells.Find("*") Is Nothing Then exit Sub


Maintenant j'essai de faire une boucle qui teste dans le classeur si une
des feuilles est vide (14 feuilles dans le classeur) ben ... j'ai du mal
!

Merci de l'aide

Michel







Avatar
Michel
Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes
attentes
------------------------------------------------------------
Function Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I
-----------------------------------------------------------
Avatar
Caetera
"Michel" a écrit dans le message de news:

Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes Function
Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I



******************

M'étonnerait que ça marche....

Etc
Avatar
Michel
Dans son message précédent, Caetera a écrit :
"Michel" a écrit dans le message de news:

Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes Function
Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I



******************

M'étonnerait que ça marche....

Etc



Pourquoi ???? j'ai testé et j'ai pas trouvé de PB
Avatar
Modeste
Bonsour® Michel avec ferveur ;o))) vous nous disiez :

Dans son message précédent, Caetera a écrit :
"Michel" a écrit dans le message de news:

Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes
Function Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I



******************

M'étonnerait que ça marche....

Etc



Pourquoi ???? j'ai testé et j'ai pas trouvé de PB


;o)))
M'étonnerait tout court !!!!

mais restons THEN
;o)))
Avatar
Michel
Modeste avait énoncé :
Bonsour® Michel avec ferveur ;o))) vous nous disiez :

Dans son message précédent, Caetera a écrit :
"Michel" a écrit dans le message de news:

Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes
Function Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I



******************

M'étonnerait que ça marche....

Etc



Pourquoi ???? j'ai testé et j'ai pas trouvé de PB


;o)))
M'étonnerait tout court !!!!

mais restons THEN
;o)))



oui effectivement mon copié/collé n'est pas ZTHEN :oÞ
Avatar
Modeste
Bonsour® Michel avec ferveur ;o))) vous nous disiez :

Modeste avait énoncé :
Bonsour® Michel avec ferveur ;o))) vous nous disiez :

Dans son message précédent, Caetera a écrit :
"Michel" a écrit dans le message de news:

Merci à tous, j'ai fais une fonction grâce à vous qui répond à mes
Function Test_vide() As Boolean
Test_vide = False
For i To Sheets.Count
If Sheets(i).Ceels.Find("*") Is Nothing Test_Vide = True
Next I



******************

M'étonnerait que ça marche....

Etc



Pourquoi ???? j'ai testé et j'ai pas trouvé de PB


;o)))
M'étonnerait tout court !!!!

mais restons THEN
;o)))



oui effectivement mon copié/collé n'est pas ZTHEN :oÞ



;o)))
je suis même étonné que cela soit réeellement un copié/collé
Ceels. ????
;o)))
Avatar
Michel
Dans son message précédent, Modeste a écrit :


je suis même étonné que cela soit réeellement un copié/collé
Ceels. ????




A vrai dire non pas vraiment, c'est du copié en regardant un autre
écran car Excel ne tourne pas sur la même machine que le lecteur de
news ;o)