Programme de recap vba
Fermé
bachbay
Messages postés
1
Date d'inscription
mardi 18 juin 2013
Statut
Membre
Dernière intervention
18 juin 2013
-
18 juin 2013 à 15:01
bachbay - 21 juin 2013 à 09:34
bachbay - 21 juin 2013 à 09:34
A voir également:
- Remplir automatiquement un tableau excel en programmation vba
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
- Formule excel - Guide
- Mise en forme conditionnelle excel - Guide
6 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
19 juin 2013 à 12:08
19 juin 2013 à 12:08
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!
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!
Bonjour
Donne au moin un model de ton fichier excel pour voir
comment te faire une macro recap
A+
Maurice
Donne au moin un model de ton fichier excel pour voir
comment te faire une macro recap
A+
Maurice
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
' 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
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
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
Merci maurice.
Je viens juste de voir ta proposition. jer vais l'etudier demain et essayer de l'adapter par rapport à mes besoins. Au fait, je suis débutant en vba je connais bcp plus les langages html, php, javascript
A l'ocasion si tu as besoin d'aide nhésite à poster et je ne manquerais d'apporter ma contribution
cordialement,
Je viens juste de voir ta proposition. jer vais l'etudier demain et essayer de l'adapter par rapport à mes besoins. Au fait, je suis débutant en vba je connais bcp plus les langages html, php, javascript
A l'ocasion si tu as besoin d'aide nhésite à poster et je ne manquerais d'apporter ma contribution
cordialement,
re
pas de probleme
merci
A+
Maurice
pas de probleme
merci
A+
Maurice
karirovax
Messages postés
3221
Date d'inscription
dimanche 17 janvier 2010
Statut
Membre
Dernière intervention
22 juin 2016
203
19 juin 2013 à 22:12
19 juin 2013 à 22:12
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ?
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 ?
Je dispose d'un classeur Saisie Grille.xls avec 2 feuilles
Dans la feuil1 (saisie) j'ai des données sous forme de tableau. Après avoir effectué certains calculs, je veux les mettre sur la feuil2 (fiche débit).
Par contre les tableaux ne sont pas identiques d'une feuille à l'autre (je parle bien de la mise en forme)
Dans la feuil1 (saisie) j'ai des données sous forme de tableau. Après avoir effectué certains calculs, je veux les mettre sur la feuil2 (fiche débit).
Par contre les tableaux ne sont pas identiques d'une feuille à l'autre (je parle bien de la mise en forme)
