VBA choix feuille spécifique

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #16

Yeeeeeees !!!! Bravo Staple, et surtout un GRAND MERCI à toi, je vais enfin pouvoir réaliser mon projet dans sa totalité en prenant en modèle cette macro.
Tu es un vrai pro j'essaye d'apprendre le VBA sur ce site :Ce lien n'existe plus
J'éspère y arriver.

Encore merci !!!!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2017

• #17

Re,

Non, je ne suis pas un pro.
J'ai juste Excel entre les pattes depuis 1992 (et sa version Excel 4.0)
A force d'usage répété et répété, ça finit par laisser des séquelles 😉

NB: Tu peux compléter ton apprentissage sur ce forum également.

 

Vote positif 0 Vote négatif

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #18

Ton pseudo ne serait pas en lien avec ton lieu d'habitation ? Question bête mais j'ai un village pas loin de chez moi qui s'appelle Staple

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2017

• #19

Re

Non pas du tout.
Mon lieu d'habitation est inscrit à gauche de ton écran, là où tu peux lire:
Habite à :

Un petit G..gling t'indiquera d'où vient mon pseudo 😉

Mais j'irai faire un tour là-bas une nuit sans lune, un mois en bre. 😉

 

Vote positif 0 Vote négatif

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #20

Staple,

j'ai un dernier truc que j'ai zappé de demander dès le début, je viens de m'apercevoir qu'il me manque un N° de pièce qui s'incrémente en B1 à la place de la date en partant du N° 1 par exemple et qui s'incrémente de +1 à chaque clic sur valider et bien sur qui va se coller avec tout le reste. Je changerai les intitulés des colonnes ensuite.
Par contre cette cellule B1 ne doit plus s'effacer au final.

Est ce possible ? dit moi si j'ai mal expliqué

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2017

• #21

Re

Il suffit de modifier cette ligne
ws.Range("B1,B3:B6") = Empty
en
ws.Range("B3:B6") = Empty

NB: Tu aurais pu trouver seul, ne-penses tu pas ? 🙂

 

Vote positif 0 Vote négatif

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #22

Pour que ca ne s'efface pas oui j'ai trouvé seul mais pour générer un numéro de pièce en B1 qui commence par 1 et qui augmente de +1 à chaque clic ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2017

• #23

Re

Là aussi, la solution était dans tes cordes 😉
[B1] = [B1] + 1

VB:

Sub Recopie_V()
Dim ws As Worksheet: Set ws = Sheets("Menu")
Application.ScreenUpdating = False
Sheets(ws.[B2].Text).Rows("2:2").Insert Shift:=xlDown
Sheets("Tableau général").Rows("2:2").Insert Shift:=xlDown
ws.[B1]=ws.[B1]+1
ws.Range("B1,B3:B6").Copy
Sheets(ws.[B2].Text).Cells(2, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Sheets("Tableau général").Cells(2, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
ws.Range("B1,B3:B6") = Empty
ws.Activate
End Sub

 

Vote positif 0 Vote négatif

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #24

Non ce n'est pas dans mes cordes mais j'ai capté quelques trucs c'est déjà pas mal pour un dimanche lol.
Cette fois je te laisse tranquille , je suis content tous fonctionnent
Heureusement que des pros comme toi partagent leur savoir
Merci beaucoup

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2017

• #25

Re,

Encore une fois, pro je ne suis.
Amateur éclairé tout au plus.
(Même si je ne suis pas sur qu'il y ait la lumière à tous les étages 😉 )

 

Vote positif 0 Vote négatif

P

Pinceel

XLDnaute Nouveau

• 10 Décembre 2017

• #26

😉😀

 

Vote positif 0 Vote négatif