Sujet Précédent Sujet Suivant

[excel] probleme

Résolu/Fermé
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 - 5 juin 2008 à 09:29
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 - 5 juin 2008 à 10:26
Bonjour,
voila j'ai un problème j'ai créer une macro automatique qui :
-me créer une feuille
-la renomme
-lui copie le format d'une autre feuille
-lui copie un titre sur une colonne
-et enfin fait un filtre élaboré

mais voila il ne respecte as du tout la mise en forme de la page d'où provient les donnée qui vont être amené par le filtre or quand je le fait en manuel ça marche aidez moi s'il vous plait c'est urgent

cordialement shuya
A voir également:

6 réponses

Réponse 1 / 6
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
5 juin 2008 à 09:48
bonjour

C'est très bien ce que tu nous racontes :

- j'ai créé une macro qui fonctionne bien.
- les formats obtenus ne me satisfont pas.
- en reproduisant manuellement le graphisme est correct.

C'est sans doute que dans ta macro tu as oublié la récupération du format, mais comment veux-tu que l'on te dise où avec aussi peu d'éléments ?
0
Réponse 2 / 6
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
5 juin 2008 à 09:53
tu veut que e te dise quoi de plus?
0
Réponse 3 / 6
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
5 juin 2008 à 09:59
bonjour

Personnellement, je n'attends rien car c'est toi qui pose la question et avec ce que tu as dis j'ai essayer de te donner la seule piste que j'entrevoyais.
Je n'ai pas de don d'extralucide pour te dire quel est le paramètre manquant dans ta macro.
0
Réponse 4 / 6
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
5 juin 2008 à 10:01
atten je vais te mettre le code de ma macro
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
5 juin 2008 à 10:02
voila le code de la macro :

Sub filtre()
'
' filtre Macro
' Macro enregistrée le 03/06/2008 par Portable 53
'

' creation d'une nouvelle feuille
Sheets.Add
' changer le nom de la nouvelle feuille
ActiveSheet.Name = "Final"
'ActiveWorkbook.Worksheets.Add.Name = "Récap"

Range("C32").Select
' selection de toute la page QCM
Sheets("QCM").Select
Cells.Select
Selection.Copy
Sheets("final").Select
Cells.Select
'collage du format de la page QCM
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("D8").Select
Sheets("QCM").Select
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("final").Select
Range("D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F8").Select
ActiveSheet.CheckBoxes.Add(234, 40.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(234, 59.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(234, 78, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 197.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 235.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 351, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 371.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 489, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 509.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 606.75, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 606.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 624, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 624.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 643.5, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 643.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 741.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 761.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 781.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 897, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 918, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1034.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1053, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1073.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1189.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1209, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1228.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1345.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1365.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1385.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1503.75, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1521.75, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1541.25, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1638.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1659, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1677.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1794.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1814.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1834.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1950.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1971, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1989.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 2087.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 2107.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2223, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2242.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2262, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2379, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2398.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2418, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2515.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2535, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2554.5, 24, 17.25).Select
Sheets("QCM").Columns("A:D").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("critere").Range("F12:F13"), CopyToRange:=Range("D1") _
, Unique:=False
End Sub
0
Réponse 6 / 6
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
5 juin 2008 à 10:26
en faite le probleme venait que lors de la creation de la macro il m'as ajouter des lignes qui genait la macro en elle meme et qui ne faisait que ajouter des checkboxes ces ligne sont :

ActiveSheet.CheckBoxes.Add(234, 40.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(234, 59.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(234, 78, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 197.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 235.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 351, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(232.5, 371.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 489, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 509.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 606.75, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 606.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 624, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 624.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 643.5, 24.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 643.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 741.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 761.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 781.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 897, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 918, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1034.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1053, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1073.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1189.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1209, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1228.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1345.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1365.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1385.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1503.75, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1521.75, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231.75, 1541.25, 27.75, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1638.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1659, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1677.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1794.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1814.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1834.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1950.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1971, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 1989.75, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 2087.25, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(231, 2107.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2223, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2242.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2262, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2379, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2398.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2418, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2515.5, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2535, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(230.25, 2554.5, 24, 17.25).Select

voila merci a ceux qui m'ont aidé
0