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 - 4 oct. 2020 à 14:09

bonjour
je rencontre une difficulté que je n'arrive pas à résoudre.
voici le code

Sub VerifierLesRames()
Dim sh As Worksheet: Dim c As Range

For Each c In Feuil3.Range("F1:F14")
If c = "" Then Exit Sub
For Each sh In Worksheets
With sh
If .Range("A1").Value = .Name And .Range("B1").Value = "PARTIE" Then
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True

ElseIf .Name = c Then
c = ""
Else

With Sheets.Add
.Name = c
.Tab.ColorIndex = 6
.Range("A1") = c
With [A1].Font
.Name = "Cambria"
.Size = 24
.Bold = True
End With
With [A1]
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.EntireColumn.AutoFit
End With
End With
End If
End With
Next sh
Next c
End Sub

ce que je souhaite, c'est de pouvoir vérifier les onglets existants par rapport à la liste en Feuil3.Range("F1:F14"). Puis si elles existent de les supprimer dans la liste en Feuil3, pour ensuite créer les feuille selon les valeurs restantes.

je vous mets le lien du fichier:
https://mon-partage.fr/f/DcVEbNCj/
Merci d'avance.

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

Réponse 1 / 2

m@rina Messages postés 23060 Date d'inscription Statut Contributeur Dernière intervention 11 440

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()

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

Réponse 2 / 2

ngio1301 Messages postés 46 Date d'inscription Statut Membre Dernière intervention

Bonjour merci pour l'aide. J'ai revu tout cela et ça fonctionne super bien. J'ai séparé les différentes actions.

Discussions similaires

tele s'eteind et s'allume en boucle

Mon ordinateur s'allume et s'eteint en boucle

faire une boucle sans VBA

Mon pc s'allume et s'éteint en boucle

Redmi redémarre en boucle - Fastboost impossible

Votre réponse

Discussions similaires