A voir également:
- Synthèse de tous les feuillets automatique
- Message automatique thunderbird - Guide
- Réponse automatique outlook - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Sommaire automatique word - Guide
- Gmail libellé automatique - Guide
7 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 209
16 août 2017 à 12:14
16 août 2017 à 12:14
Bonjour,
oui, tu utilises mal excel et tu te donnes du travail inutile.
Une seule feuille de saisie. Ajoute une colonne Code à ta 1ère feuille où tu saisis AFH, AFR, etc
Ensuite avec un filtre mis sur les titres tu affiches celui que tu veux.
eric
oui, tu utilises mal excel et tu te donnes du travail inutile.
Une seule feuille de saisie. Ajoute une colonne Code à ta 1ère feuille où tu saisis AFH, AFR, etc
Ensuite avec un filtre mis sur les titres tu affiches celui que tu veux.
eric
Bonjour
Ta feuille FAH est pas bonne a toi de voir
Voila une Macro pour Faire les Récape
A+
Maurice
Ta feuille FAH est pas bonne a toi de voir
Voila une Macro pour Faire les Récape
Sub TestRecap()
Dim Feuil As Object
Dim Onglet As String
Dim Slig, Nlig As Long
Onglet = Feuil1.Name
Feuil1.Select
Rows("2:" & Rows.Count).Clear
Application.ScreenUpdating = False
For Each Feuil In Worksheets
If Feuil.Name <> Onglet Then
Slig = Feuil.Range("A" & Rows.Count).End(xlUp).Row
If Slig > 1 Then
Feuil.Range("A2:S" & Slig).Copy
Nlig = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Nlig).PasteSpecial xlPasteValues
End If
End If
Next
Application.CutCopyMode = False
End Sub
A+
Maurice
Bonjour,
Je remonte le sujet, le code d'Archer marche très bien mais il ne prend pas compte à la mise en page dans les feuillets du ficher excel et j'aurai besoin qu'il prenne en compte les règles de mise en page comme la couleur du texte, la couleur de la case, le gras, souligné etc ....
Je ne sais pas si c'est possible par contre.
Merci d'avance pour votre aide,
Cordialement
Je remonte le sujet, le code d'Archer marche très bien mais il ne prend pas compte à la mise en page dans les feuillets du ficher excel et j'aurai besoin qu'il prenne en compte les règles de mise en page comme la couleur du texte, la couleur de la case, le gras, souligné etc ....
Je ne sais pas si c'est possible par contre.
Merci d'avance pour votre aide,
Cordialement
Bonjour
peux être comme ça
A+
Maurice
peux être comme ça
Sub TestRecap()
Dim Feuil As Object
Dim Onglet As String
Dim Slig, Nlig As Long
Onglet = Feuil1.Name
Feuil1.Select
Rows("2:" & Rows.Count).Clear
Application.ScreenUpdating = False
For Each Feuil In Worksheets
If Feuil.Name <> Onglet Then
Slig = Feuil.Range("A" & Rows.Count).End(xlUp).Row
If Slig > 1 Then
Feuil.Range("A2:S" & Slig).Copy
Nlig = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Nlig).PasteSpecial xlPasteAll
Range("A" & Nlig).PasteSpecial xlPasteValues
End If
End If
Next
Application.CutCopyMode = False
Application.Goto [A1], True
End Sub
A+
Maurice
Bonjour Maurice Archer,
Je trouve que ta ligne Range("A" & Nlig).PasteSpecial xlPasteValues
est inutile juste après Range("A" & Nlig).PasteSpecial xlPasteAll
qu'en penses-tu ? HI ;)
NB : J'ai ajouté le HI pour faire monter ta note, comme un autre sujet
où eriiic a oublié de lire mon message et de me donner une réponse
(en particulier pour une suggestion CCM) :
https://forums.commentcamarche.net/forum/affich-34794399-blocage-das-un-tableau-excel-de-pres-de-400-colonnes#11
@eriiic : c'est peut-être une suggestion valable, qu'en dis-tu ?
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Je ne voudrais pas trop abuser de votre temps, j'ai une dernière demande à vous faire, je dois exclure 2 feuillets de la formule pour qu'ils ne soient pas comptabilisé dans le feuille Synthèse, comment puis-je faire ?
Merci d'avance pour votre aide,
Cordialement
Je ne voudrais pas trop abuser de votre temps, j'ai une dernière demande à vous faire, je dois exclure 2 feuillets de la formule pour qu'ils ne soient pas comptabilisé dans le feuille Synthèse, comment puis-je faire ?
Merci d'avance pour votre aide,
Cordialement
bonjour
a toi de mettre le bon CodeName
A+
Maurice
a toi de mettre le bon CodeName
A+
Maurice
Sub TestRecap()
Dim Feuil As Object
Dim Onglet As String
Dim Onglet1 As String
Dim Onglet2 As String
Dim Slig, Nlig As Long
Onglet = Feuil1.Name
Onglet1 = Feuil3.Name
Onglet2 = Feuil13.Name
Feuil1.Select
Rows("2:" & Rows.Count).Clear
Application.ScreenUpdating = False
For Each Feuil In Worksheets
If Feuil.Name <> Onglet And Feuil.Name <> Onglet1 And Feuil.Name <> Onglet2 Then
Slig = Feuil.Range("A" & Rows.Count).End(xlUp).Row
If Slig > 1 Then
Feuil.Range("A2:S" & Slig).Copy
Nlig = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Nlig).PasteSpecial xlPasteAll
Range("A" & Nlig).PasteSpecial xlPasteValues
End If
End If
Next
Application.CutCopyMode = False
Application.Goto [A1], True
End Sub
16 août 2017 à 14:06