XL 2016 Importer des données suivant l'ordre de passage

[YGU1]

Bonjour,
He oui je reviens dans cette discussion concernant l'évaluation des juges, mon applicatif a beaucoup évolué et j'aurai voulu l'automatiser
Je reçois un fichier EXCEL(Onglet EXPORT) plus ou moins organisé suite à une compétition de Natation artistique, et je ferai du ménage pour le présenter toujours de la même manière

Le fichier Excel que je reçois sera toujours présenté de cette façons
Ordre de passage
5 colonnes
4 à 11 lignes
Une ligne séparation
Et 3 lignes.
Je souhaiterai en fonction de l'ordre de passage, que ces données (ONGLET EXPORT)soient importées dans l'onglet données où figure un ordre de passage croissant de 1 à 30

Si l'ordre de passage dans mon fichier est 5, il doit importer et coller les valeurs dans l'onglet données dans la zone 5
Si l'ordre de passage dans mon fichier est 1 la procédure doit importer et coller les valeurs dans l'onglet données zone 1
En faite la mêmes chose de 1 à 30.
Des fois de 1 à 10, de 1 à 15, ou de 1 à 30. Le nombre est défini à la préparation de la compétition dans l'onglet données
Une macro serait placée sur un bouton
Pouvez vous me guider ? j'ai crée un fichier EXCEL en PJ (EVAL_V3.xlsx)simplifié pour expliquer ce que je souhaite.

Cordialement
Yves

 

[YGU1]

Je suis en train de remplir la zone grise sur l'onglet données, l'application comprendra plusieurs onglets, l'onglet NEW_EXPORT sera inséré par l'utilisateur lorsque la compétition sera finie mais entre temps il peut paramétrer l'onglet DONNEES avec les clubs ; le nombre de juges etc ...............
Si dans l'application l'onglet NEW_EXPORT n'est pas encore présent pendant que l'utilisateur remplit les différents champs dans la zone grise et si l'utilisateur appui sur le bouton IMPORTER LES DONNEES, l'application reste déverrouillée, la macro n'a pas pu se finaliser, c'est ennuyeux car l'utilisateur peux déplacer par erreur des cellules ou les modifier et entrainer un dysfonctionnement.

Peut-on faire en sorte qu'un message apparaisse en gros lorsque l’utilisateur appuie sur le bouton IMPORTER LES DONNEES lorsque vous n’avez pas inséré l’onglet NEW_IMPORT dans l’application, il n’est donc pas actif si cet onglet n’est pas présent ?

Bon dimanche
Cordialement

Désolé, je voulais dire
Peut-on faire en sorte qu'un message apparaisse en gros lorsque l’utilisateur appuie sur le bouton IMPORTER LES DONNEES lorsque vous n’avez pas inséré l’onglet NEW_EXPORT dans l’application, il n’est donc pas actif si cet onglet n’est pas présent ?

 

[sylvanu]

Re,
Une V7 avec cette fonction :

Function FeuilleExiste(FeuilleAVerifier As String) As Boolean ' Répond True si la feuille existe
    On Error Resume Next
    Sheets(FeuilleAVerifier).Name = Sheets(FeuilleAVerifier).Name
    FeuilleExiste = (Err.Number = 0)
End Function

Elle est appelée de cette façon :

If FeuilleExiste("NEW_EXPORT") = False Then
    MsgBox "La feuille NEW_EXPORT n'existe pas." & Chr(10) & _
    "Veuillez la créer avant de vouloir exporter les données."
    Exit Sub
End If

 

[YGU1]

Re,
Une V7 avec cette fonction :

Function FeuilleExiste(FeuilleAVerifier As String) As Boolean ' Répond True si la feuille existe
    On Error Resume Next
    Sheets(FeuilleAVerifier).Name = Sheets(FeuilleAVerifier).Name
    FeuilleExiste = (Err.Number = 0)
End Function

Elle est appelée de cette façon :

If FeuilleExiste("NEW_EXPORT") = False Then
    MsgBox "La feuille NEW_EXPORT n'existe pas." & Chr(10) & _
    "Veuillez la créer avant de vouloir exporter les données."
    Exit Sub
End If

Après insertion du nouveau module avec la boite de dialogue, l'application fonctionne correctement, je finalise l'applicatif général d'ici quelques jours et je reviendrai pour clôturer cette discussion

Merci beaucoup
YGU