Problème avec Boucle
Résolu/Fermé
ngio1301
Messages postés
46
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
14 mai 2022
-
4 oct. 2020 à 00:49
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 4 oct. 2020 à 14:09
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 4 oct. 2020 à 14:09
2 réponses
m@rina
Messages postés
20295
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
4 juin 2024
11 288
4 oct. 2020 à 03:25
4 oct. 2020 à 03:25
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
ngio1301
Messages postés
46
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
14 mai 2022
4 oct. 2020 à 14:09
4 oct. 2020 à 14:09
Bonjour merci pour l'aide. J'ai revu tout cela et ça fonctionne super bien. J'ai séparé les différentes actions.