programme de recap vba Fermé

Question

bonjour jaimerais savoir comment creeer une macro qui établie la recap d'une saisie et l'affiche sur une nouvell feuille nommée (recap) d'un meme classeur.


Merci de m'aiguiller un peu!!! je n'arrive pas à récupperer les valeurs de Hauteur et largeur et c'est très urgent voici mon bout de code :  


Sub try()
  ' Set up the data:
  Range("B12:N12") = Array("Repère", "Longueur", "Largeur", "Matière", "Quantité", "laser", "cisaille", "debit", "encochage", "pliage", "soudure", "peinture", "observation")
  Range("B13:N13") = Array("1A", "", "", "Alu 2mm", 2, "OUI", "NON", "NON", "NON", "OUI", "OUI", "OUI", "")
  Range("B14:N14") = Array("1B", "", "", "Alu 2mm", 2, "OUI", "NON", "NON", "NON", "OUI", "OUI", "OUI", "PLIAGE SYM")
  Range("B15:N15") = Array("1C", "", "", "Alu 2mm", 2, "NON", "OUI", "NON", "OUI", "OUI", "OUI", "OUI", "")
  Range("B16:N16") = Array("1D", "", "", "Alu 2mm", 2, "NON", "OUI", "NON", "NON", "OUI", "OUI", "OUI", "")

  
End Sub

Et voila la feuille de saisie :



								
			SAISIE GRILLE			
						
Grille n°:		         1				
					Voici les 3 macros à réaliser:	
Affaire:		         E2MK		   'SAISIR	' (ouvre la feuille de recap)	
				                  'SUPRIMER' (efface la saisie active)	
Matiére:		         Alu		                  'IMPRIMER' (imprime la feuille saisie)					
Repères		         Repère 1A				
						
Matiére:		         20/10 éme				
						
Hauteur hors tout              300				
						
Largeur hors tout	         150				
						
Hauteur:		         342	(valeur obtenue grace à une formule)				
Largeur:		         73,4 (valeur obtenue grace à une formule)			
						
Quantité:		          2				
						
Délai:		         22/02/2013

michel_m · Accepted Answer

Bonjour

c'est vrai que j'ai pas été assez clair sur ce que je veux. mais vous m'aviez compris 
NON

merci de m'aider URGENT 
C'est mal parti, hélas!

WeaponEDGE · Answer

Bonjour,

Désolé mais je ne saisie pas bien ce que tu cherches au juste.

Qu'est ce que tu cherches ?
Une macro pour faire des mises en forme ou une macro pour copier des données d'une autre feuilles vers ta feuille récap ?

bachbay · Answer

c'est vrai que j'ai pas été assez clair sur ce que je veux. mais vous m'aviez compris afin je crois.

je veux copier des données d'autres feuilles vers ma feuille recap.



merci de m'aider URGENT 


Cordialement

foo · Answer

Bonjour

Donne au moin un model de ton fichier excel pour voir 
comment te faire une macro recap

A+

Maurice

foo · Answer

Re ses pas un model de ton fichier bon je te donne une mocro qui fait une recap sur 26 feuils Sub ListOnglet() L = 1 For I = 1 To Worksheets.Count Onglet = Worksheets(I).Name If Onglet <> "Recap" And Onglet <> "Sommaire" Then Feuil2.Range("P" & L).Value = Worksheets(I).Name L = L + 1 End If Next I End Sub Sub LectureFeuil() Application.ScreenUpdating = False Num = 3 Feuil1.Rows("3:10000").Delete ' ------------------------- For F = 1 To Feuil2.Cells(Rows.Count, 16).End(xlUp).Row Feuille = Feuil2.Range("P" & F).Value Sheets(Feuille).Select For L = 4 To Cells(Rows.Count, 2).End(xlUp).Row Range("A" & L & ":N" & L).Copy Feuil1.Range("B" & Num).PasteSpecial xlPasteValues Num = Num + 1 Next Next Feuil1.Select Application.ScreenUpdating = True End Sub a toi de faire les modifs A+ Maurice

foo · Answer

re
pas de probleme
merci

A+

Maurice

Programme de recap vba

6 réponses

Discussions similaires