Microsoft 365 Macro selon une liste deroulante

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #2

J oubliais de precisez que le choix de feuilles et le choix d equipements se font a l aide d une liste deroulante ce qui pour moi complique encore un peut plus le probleme

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2023

• #3

Bonjour Bisonfuté,
Vous n'auriez pas un petit fichier test? Ce serait quand même plus simple.

 

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #4

Desolez pour le manque de dossier je n ai pas vu que il y avait la possibilitez d en mettre un

 

Pièces jointes

• HELP ME.xlsx

  247.9 KB · Affichages: 8

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #5

En gros fans le formulaire de changement j aimerai que mon formulaire arrive a comprendre que quand je selectione dans FROM il puisse savoir de quelle feuille ont parle dans TO pareille et que dans EQUIPMENTS il puisse comprendre quel cellules doivent etre selectionez

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2023

• #6

Re,
D'après ce que j'ai compris, dans le formulaire "Line" veut dire "Sheets" ?
Donc "From Line 71" "To Line 72" veut dire : on transfert de la feuille 71 vers la feuille 72.
1- Mais que transfert t-on ? BLENDER2 ligne 7 à 26 vers L72 BLENDER 1 lignes 7 à 26 ?
2- Doit on écraser les données présentes en L72 ?
3- Doit on effacer les données de la feuille donnée dans FROM ?
4- Si LOADER est choisi, il est présent en L71 ligne27 mais absent des autres feuilles ( en L72 il n'y a que LOADER 7,2,3,4 ) Que fait on ?
5- Si dans FROM ou TO l'équipement est absent ( par exemple NOVATEC, ODAC, PALLET STATION, PELLETIZER, PUMP, SD ... ) que fait on ?

 

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #7

Pour repondre a la question oui L71 L72 ect correspond a sheets et oui pour la question de transfert quand tu met FROM L71 To L72 en gros c est censez copier collez de L71 a L72 et de L72 a L71 maintenant la partie complexe corresspont a l equipement ont dit que tu chois BLENDER cela voudra dire que tu copie les cellules 20LX5C de la feuille L71 pour les collez sur la feuille L72 sur les meme cellules et reciproquement pour L72 tu copie les cellules 20LX5C de la feuille L72 sur L71 et pour chaque equipements la meme procedure exemple: si tu choisis EXTRUDER dans le formulaire FROM L71 TO L78 il devra copier collez les cellules 17LX5C de la feuille L71 pour les collez aux meme cellule de L78 ret reciproquement de L78 a L71. Concernant les autre equipement de la liste n y prete pas attention a moin que tu en est besoin pour m aidez dans la formule mais le principe est le meme pour tout les equipements de la listes.
J espere avoir reussie a etre plus clair. Encore merci de prendre du temp pour m aidez ! Encore un gros merci a toi ! En soit le principe et simple c est du copier collez mais informatisez le tout est vraiment tres compliquez

 

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #8

Si l equipement est absent de la feuille faire en sorte que sa lance un message d erreur ne surtout rien faire seules les equipements de la feuilles peuvent etre copiez collez

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2023

• #9

J'ai regardé plus précisément, et perso, je ne vois pas comment faire.
Beaucoup de plages à copier coller n'ont pas la même taille ni le même emplacement. Quelques exemples:

Ensuite, certaines feuilles sont protégées, d'autres non. Je ne vois pas la logique.
Donc, perso je ne vois pas de moyens de résoudre le problème, sauf usine à gaz inutilisable.
En espérant que quelqu'un de plus futé vois la logique dans tout ça.

 

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #10

Desolez de pas avoir ete suffisement claire je te renvoie un excel qui sera plus utilisable que celui que je t ai envoyez il y a une macro sur le bouton transferez qui montre ce que j aimerai faire mais cela ne prend pas en consideration mes feuilles et le nom de l equipement c est la ou je bloque

 

Pièces jointes

• HELP ME 2.xlsm.xlsx

  127.6 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2023

• #11

Le nom de votre fichier est erroné "HELP ME 2.xlsm.xlsx" je l'ai renommé en "HELP ME 2.xlsm"
Votre code est issu de l'enregistreur et je ne comprends pas la logique.
Mais bon. En PJ un exemple de ce que je pense que vous voulez faire :
Si l'équipement est BLINDER, alors on copie "B7:E26" de la feuille "From" dans la feuille "To". Avec :

VB:

Sub Exemple()
    SheetFrom = "L" & [D11]                                             ' Page source
    SheetTo = "L" & [D18]                                               ' Page destination
    Equipement = [G11]                                                  ' Nom de l'équipement
    If Equipement Like "BLENDER" Then                                   ' Si c'est Blinder alors...
        Sheets(SheetTo).[B7:E26] = Sheets(SheetFrom).[B7:E26].Value     ' Copie données page source dans page destination
    End If
End Sub

Pour le reste c'est la même logique de copier coller.
Voir PJ macro Exemple.

 

Pièces jointes

• HELP ME 2 V2.xlsm

  123 KB · Affichages: 4

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #12

Je te remercie infinimment pour ton aide !!! Je testerai cela ce soir ma femme a besoin d aide merci encore !!!

 

Vote positif 0 Vote négatif

B

bisonfute

XLDnaute Nouveau

• 21 Juillet 2023

• #13

je doit commencez par quoi...... juste je n ai pas de mot pour te dire merci enormement J ai tout de fois encore besoin de ton aide pour deux choses la premiere et desolez de t importunez avec sa c est que les donnez de l autre page doit etre aussi copier collez sur la feuille en gros quand tu transfert le blender de la page L71 a L72 le blender de L72 doit remplacez celui qui a etre transferez en L71. et mon dernier sujet c est pourrait tu m expliquez le "L" de la formule. Encore un gros merci a toi pour ton aide !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2023

• #14

bisonfute à dit:

mon dernier sujet c est pourrait tu m expliquez le "L" de la formule.

Cliquez pour agrandir...

"From" contient 71. Votre feuille s'appelle "L71".
Donc pour obtenir le nom de la feuille il faut faire "L" & "From", ce qui donne L71.
C'est tout.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Juillet 2023

• #15

bisonfute à dit:

c est que les donnez de l autre page doit etre aussi copier collez sur la feuille en gros quand tu transfert le blender de la page L71 a L72 le blender de L72 doit remplacez celui qui a etre transferez en L71

Cliquez pour agrandir...

Un code possible, voir PJ :

VB:

Sub Exemple()
    SheetFrom = "L" & [D11]                                             ' Page source
    SheetTo = "L" & [D18]                                               ' Page destination
    Equipement = [G11]                                                  ' Nom de l'équipement
    If Equipement Like "BLENDER" Then                                   ' Si c'est Blinder alors...
        Sheets(SheetFrom).[K7:N26] = Sheets(SheetFrom).[B7:E26].Value   ' Sauvegarde de la plage source
        Sheets(SheetFrom).[B7:E26] = Sheets(SheetTo).[B7:E26].Value     ' Transfert de To vers From
        Sheets(SheetTo).[B7:E26] = Sheets(SheetFrom).[K7:N26].Value     ' Transfert de la sauvegarde From vers To
        Sheets(SheetFrom).[K7:N26].Clear                                ' Effacement sauvegarde
    End If
End Sub

NB: Vous devriez lire ou relire mon post #9. A continuer comme ça avec un fichier dont plein de pages sont différentes, avec ou sans mot de passe, vous allez dans le mur. ( enfin c'est mon avis personnel au vu de votre code initial. ) Pour éviter les soucis il serait bon que toutes les feuilles soient strictement identiques, mêmes plages, mêmes intitulés ...

 

Pièces jointes

• HELP ME 2 V3.xlsm

  123.3 KB · Affichages: 2

Vote positif 0 Vote négatif