Problème avec Boucle
Résolu
ngio1301
Messages postés
46
Date d'inscription
Statut
Membre
Dernière intervention
-
ngio1301 Messages postés 46 Date d'inscription Statut Membre Dernière intervention -
ngio1301 Messages postés 46 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Problème avec Boucle
- Tv orange chargement en boucle ✓ - Forum TV & Vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
- Huawei s'allume et s'éteint en boucle - Forum Huawei
2 réponses
Bonjour
Tu fais des boucles de boucles un peu bizarre quand même.
J'ai pas tout compris ce que tu veux faire si la feuille existe, mais bon déjà pour tester si la feuille existe, mieux vaut une fonction à part, ce qui donne :
Sub VerifierLesRames()
m@rina
Tu fais des boucles de boucles un peu bizarre quand même.
J'ai pas tout compris ce que tu veux faire si la feuille existe, mais bon déjà pour tester si la feuille existe, mieux vaut une fonction à part, ce qui donne :
Sub VerifierLesRames()
Dim c As Range, Nom As String
For Each c In Feuil3.Range("F1:F14").Cells
Nom = c.Value
If c <> "" Then
If Existe(Nom) Then
'action si la feuille existe
Else
'action si la feuille n'existe pas
End If
End If
Next
End Sub
Function Existe(F) As Boolean
On Error Resume Next
Existe = Sheets(F).Index
End Function
m@rina