Création de feuille

[apt]

Bonsoir à tous,

J'utilise un USF pour entrer des données dans la feuil1.

Ces données seront ajoutés dans la feuil1 d'une part en plus elles seront ajoutée aussi dans une feuille selon le textbox6 (Service).

Si la feuille correspondante à la valeur du TextBox6 n'existe pas, elle sera créée avec les étapes suivantes :

1 - Création de la nouvelle feuille avec le même nom du TextBox6 (Service)

2 - Masquage de la grille

3 - Application d'une MFC

4 - Copiage des entêtes

5 -Insertion des nouvelles données saisies dans l’USF.

Mais voila je rencontre un problème.

Parfois, la nouvelle feuille est créée normalement avec tous ce je viens de décrire (les 5 points), parfois la feuille n'ait créée qu'avec le nom approprié et rien de plus (1er point seulement).

[XL-2007] Création de feuille - Forum des professionnels en informatique

Merci d'avance 🙂

 

[Compte Supprimé 979]

Re : Création de feuille

Bonsoir Apt,

Essaye déjà en changeant a boucle comme suit

    For i = 1 To Sheets.Count
        If Sheets(i).Name = Tmp Then
          Tmn = True
        Else
          Tmn = False
          Exit For
        End If
        'MsgBox "Sht = " & Sheets(i).Name & ", Tmn = " & Tmn
    Next i

A+

 

[apt]

Re : Création de feuille

Bonsoir Bruno,

Même en changeant la boucle ça donne le même problème.