Gérer présence absence critères de filtres
Bonjour,
Ravie d'intégrer votre communauté.
Je suis nulle en macros et ne comprend pas le résultat non satisfaisant de celle-ci. L'objectif est de copier/coller des données d'une feuille à une autre sur la base de 4 critères (pas toujours tous utilisés).
Si par exemple, dans la 1ère feuille je n'ai pas de ligne avec les critères FO et FE , mais seulement des lignes avec les critères MO et ME , la macro me colle néanmoins dans la feuille "MANIF1-répart" des données dans les colonnes Y à AE (correspondant aux données relatives à FO) et AK et AQ (correspondant aux données relatives à FE).
VALIDERTOUSM1 Macro
Application.ScreenUpdating = False
ActiveSheet.Range("$H$1:$H$737").AutoFilter Field:=1, Criteria1:="MO"
Range("A5:G35").Select
Selection.Copy
Sheets("MANIF1-répart°").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MANIF1-accès").Select
ActiveSheet.Range("$H$1:$H$737").AutoFilter Field:=1, Criteria1:="ME"
Range("A7:G34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("MANIF1-répart°").Select
Range("M6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MANIF1-accès").Select
ActiveSheet.Range("$H$1:$H$737").AutoFilter Field:=1, Criteria1:="FO"
Range("A12:G16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("MANIF1-répart°").Select
ActiveWindow.SmallScroll ToRight:=16
Range("Y6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MANIF1-accès").Select
ActiveSheet.Range("$H$1:$H$737").AutoFilter Field:=1, Criteria1:="FE"
Range("A8:G32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("MANIF1-répart°").Select
Range("AK6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MANIF1-accès").Select
ActiveSheet.Range("$H$1:$H$737").AutoFilter Field:=1
Sheets("MANIF1-répart°").Select
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("D2").Select
Application.ScreenUpdating = True
End Sub
Ca me rend dingue !!
Merci d'avance pour votre aide
Il s'agit d'une macro enregistrée. Avec un petit fichier ce serait bien bien mieux pour vous aider.
Merci fcyspm30
Le voici (la macro concernée est VALIDERTOUSM1 - pas le temps de faire le ménage dans la liste des macros, désolée)
Voivi une macro . Je ne suis pas un pro mais elle semble fonctionner
Je n’en demandais pas tant ! C’est très sympa, merci beaucoup 😊 N’ai malheureusement pas d’accès à un ordinateur jusqu’à demain soir… je regarderai la macro en arrivant. Bonne soirée et encore merci
Bonjour fxyspm,
Merci beaucoup pour le temps passé sur la macro. Je me rends compte que je n'ai pas été suffisamment précise dans l'utilisation du doc. En réalité il y a bcp plus de personnes dans MANIF1-accès (jusqu'à 80 personnes). Pouvez-vous me dire quel texte je dois rajouter à chaque étape de la macro pour que les infos soient collées sur chaque ligne de MANIF1-répart et non sur une ligne sur deux ? Bonne journée et encore merci
Mais vous pouvez rajouter autant de personnes qu'il vous plaira avec les quatre critères MO, ME, FO ou FE
En effet, je vois que vous avez bien compris que la liste n'était pas limitative. J'ai juste un problème maintenant avec le collage une ligne sur deux dans l'autre onglet. Mais je vais m'en débrouiller. Encore merci et bonne semaine.
je regarde ça
Voilà ça va mieux fonctionner maintenant
il y avait un problème de cellules fusionnées. J'ai donc refait les entêtes
Formidable !
Ma semaine commence TRES bien
Merci infiniment fcyspm30 !