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]

Re,
Comme déjà indiqué au post #10,
Retirez ce vert de votre post. Le vert est pour indiquer au futur lecteur où est la solution, pas pour le diriger vers votre demande.

Encore désolé, pourtant j'avais bien regardé ton post précédent.

 

[YGU1]

Bonjour Sylvanu,
Tes macros fonctionnaient parfaitement sur l'exemple fourni, je suis en train de modifier l'application définitive et je viens de m'apercevoir que les notes qui devaient arriver dans l'onglet DONNEES en colonne D, et c'est de ma faute, je t'avais envoyé un onglet avec C en première colonne : donc si tu fais le test avec ta macro d'import les notes sont décalées.
Je suis vraiment désolé, mais j'ai essayé de modifier les macros mais impossible pour moi
Cordialement
YGU

 

[sylvanu]

Bonjour Ygu,
A priori il suffisait de changer colonne C en D, et G en H dans :

Cells(20 * Numéro - 15, "D").Resize(UBound(TabloBleu, 1), UBound(TabloBleu, 2)) = TabloBleu
Cells(20 * Numéro - 2, "D").Resize(UBound(TabloJaune, 1), UBound(TabloJaune, 2)) = TabloJaune
et
Range(Cells(DébutBleu, "D"), Cells(DébutBleu + 11, "H")).ClearContents
Range(Cells(DébutJaune, "D"), Cells(DébutJaune + 3, "H")).ClearContents

Vérifiez cette PJ et dites moi si c'est ok.

 

[YGU1]

Bonjour Ygu,
A priori il suffisait de changer colonne C en D, et G en H dans :

Cells(20 * Numéro - 15, "D").Resize(UBound(TabloBleu, 1), UBound(TabloBleu, 2)) = TabloBleu
Cells(20 * Numéro - 2, "D").Resize(UBound(TabloJaune, 1), UBound(TabloJaune, 2)) = TabloJaune
et
Range(Cells(DébutBleu, "D"), Cells(DébutBleu + 11, "H")).ClearContents
Range(Cells(DébutJaune, "D"), Cells(DébutJaune + 3, "H")).ClearContents

Vérifiez cette PJ et dites moi si c'est ok.

Cela fonctionne bien maintenant avec tes modifications, mais pour que tu puisses manipuler facilement le fichier en PJ je n'avais pas verrouillé les cellules qui redoivent les notes dans l'onglet DONNEES. Si je verrouille les cellules bleues et jaunes par MDP je ne peux p

 

[YGU1]

désolé j'ai appuyé sur validé
Je reprends, je ne peux pas exécuter les macros, faut-il que je laisse sans MDP ?


Cordialement

 

[sylvanu]

Re,
On peut passer outre le MDP.
Donnez moi quel MDP vous voulez utiliser, je modifirais la macro en conséquence.

 

[YGU1]

REZATY#@54

Merci d'avance

 

[sylvanu]

Re,
On peut passer outre en VBA de la protection de la feuille, avec :

ActiveSheet.Protect UserInterfaceOnly:=True

sans avoir connaissance du mot de passe.

 

[YGU1]

Re,
On peut passer outre en VBA de la protection de la feuille, avec :

ActiveSheet.Protect UserInterfaceOnly:=True

sans avoir connaissance du mot de

Lorsque je veux importer mes données, il me demande le MDP, je souhaitai que l'utilisateur n'ai pas à saisir le MDP pour importer les données, le MDP est là pour protéger les cellules qui sont dans l'applicatif que je ne veux pas que l'utilisateur les effacent ou change la configuration d'emplacement des données.
Cordialement

 

[sylvanu]

Oups, manque de tests. 😱
Une nouvelle PJ avec :

Déprotection :
ActiveSheet.Unprotect "REZATY#@54"
Protection :
    ActiveSheet.Protect "REZATY#@54"

 

[YGU1]

Oups, manque de tests. 😱
Une nouvelle PJ avec :

Déprotection :
ActiveSheet.Unprotect "REZATY#@54"
Protection :
    ActiveSheet.Protect "REZATY#@54"

Pour l'instant cela fonctionne de nouveau avec le fichier de test, je vais maintenant continuer le paramétrage de l'applicatif et je reviendrai lorsque tout sera opérationnel pour marquer comme solution
Encore merci pour ton investissement et professionnalisme
YGU

 

[YGU1]

Maintenant que le nouveau fichier de test V5 fonctionne, je souhaiterai rajouter 35 lignes au dessus du fichier comme en pièce jointe, dans cette zone grise, des listes déroulantes pour insérer des juges seront prévues et des informations supplémentaire seront rajoutées.
Avec les macros actuelles, la première donnée arrive toujours en D5 peut-on la faire arriver en D41 ?

Tu dois me trouver très lourd avec ces modifications, mais au départ, je n'avais pas pensé que de mettre des lignes supplémentaires aurait été problématique.

Cordialement
YGU

 

[sylvanu]

Re,
Il suffit de décaler les lignes d'écriture de 36.

 

[YGU1]

Re,
Il suffit de décaler les lignes d'écriture de 36.

Bonjour Sylvanu
Cela parait tellement évident et pour l'instant tout fonctionne correctement, je ne vais pas marquer comme solution, je suis plus prudent maintenant, j'attendrai de finaliser mon application EXCEL et je reviendrai ici
Je te remercie encore de ta patience et de ta réactivité
Cordialement
YGU

 

[YGU1]

Bonjour Sylvanu
Cela parait tellement évident et pour l'instant tout fonctionne correctement, je ne vais pas marquer comme solution, je suis plus prudent maintenant, j'attendrai de finaliser mon application EXCEL et je reviendrai ici
Je te remercie encore de ta patience et de ta réactivité
Cordialement
YGU

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