Probleme exceution macro en office version 1708

Bonjour à tous,

je suis nouveau sur ce forum et je suis très embête.

En effet, j'ai fait une macro il y a maintenant 1 mois que j'ai déployé sur plusieurs tablette. la version office était alors 1707.

Aujourd'hui, je veux refaire cette même macro et le message erreur 1004 , la mèthode past spécial de le classe Range a échoué.

je ne comprends pas.

Merci pour votre aide.

je peux envoyer le fichier si nécessaire.

Bonjour,

Il vaudrait mieux si tu veux qu'on examine le problème !

Il vaudrait mieux aussi identifier les versions d'Excel par leurs dénominations publiques : Excel 2007, 2010, 2013, 2016, pour ce qui est des dernières.

Cordialement.

bonjour

le principe : a partir d'une feuille "feuil1", je fais un recherche Octobre et colle ensuite dans une feuille "Oct" le résultat.

Cela fonctionnait très bien avec Excel 2016 et sur office 365 avec version 1707 mais maintenant la macro plante au niveau du collage en A1.

Merci pour votre retour

Sheets("feuil1").Select

ActiveSheet.ListObjects("Tableau214").Range.AutoFilter Field:=5, Criteria1 _

:="=*octobre*", Operator:=xlAnd

Rows("6:5000").Select

Range("E6").Activate

Selection.Copy

Sheets("oct").Select

Cells.Select

Selection.ClearContents

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

True, Transpose:=False

Bonjour,

Copie et teste cette procédure dans ton classeur.

Il y a des précautions à prendre quand on travaille avec les tableaux (listobject).

A te relire, avec un fichier peut-être.

Cdlt.

Option Explicit

Public Sub CopyFilteredRows()
Dim ws As Worksheet, ws2 As Worksheet
Dim lo As ListObject
Dim rng As Range, rng2 As Range
    Application.ScreenUpdating = False
    Set ws = ActiveWorkbook.Worksheets("Feuil1")
    'Si 1 tableau unique dans la feuille
    Set lo = ws.ListObjects(1)
    'Si plusieurs tableaux dans la feuille, le nommer !
    'Set lo = ws.ListObjects("Tableau214")
    Set ws2 = ActiveWorkbook.Worksheets("oct")
    If lo.ShowAutoFilter Then lo.AutoFilter.ShowAllData
    ws2.Cells.Clear
    lo.Range.AutoFilter field:=5, Criteria1:="octobre"
    With lo.AutoFilter.Range
        On Error Resume Next
        Set rng2 = .Offset(1).Resize(.Rows.Count - 1, 1) _
                   .SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
    End With
    If rng2 Is Nothing Then
        MsgBox "Il n'y a pas de données à copier."
    Else
        Set rng = lo.AutoFilter.Range
        'Copie avec les en-têtes de colonnes
        rng.SpecialCells(xlCellTypeVisible).Copy Destination:=ws2.Cells(1)
        'Copie sans les en-têtes de colonnes
        'rng.Offset(1).Resize(rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible) _
         .Copy Destination:=ws2.Cells(1)
    End If
    Set rng = Nothing: Set rng2 = Nothing
    Set lo = Nothing
    Set ws2 = Nothing: Set ws = Nothing
End Sub

Bonsoir Jean Eric,

je vais peut-être contourner le problème des tableaux.

Peut-être beaucooup plus simple?

Est-il possible de faire un macro qui. Si les cellules E6 à E500 de la feuille "commentaire" contienne le mot "septembre" ou "SEPTEMBRE", alors mettre le nom ( qui se trouve 2 en colonne C dans la feuille " Septembre " en C3 par exemple.

J'ai mis un fichier

Merci pour ton aide

Re,

Un exemple à étudier.

ALT F8, exécuter la procédure Copy_Filtered_Rows

Cdlt.

Bonsoir,

j'ai remis le fichier et cela fonctionne très bien.

Simplement une question, à quel endroit de la macro vous demander de créer le feuille Septembre et rechercher le mot "Septembre" dans le cellule commentaire et copier en C3.

je vous demande cela car il faut de je fasse tous les mois. donc je vais faire des copier Coller en changeant les caractéristiques.

Merci pour votre retour

c'est vraiment super

avec le fichier

RE,

Voir procédure commentée.

A te relire.

Cdlt.

Bonjour Jean eric,

pouvez vous me faire cette même macro avec non pas le mot qui se trouve en F3 mais "Septembre".

De plus, pour la suite, dans le fichier aura 2 onglets ( 1 commentaire et 1 récap).

Est-il donc possible de ne pas créer la feuille mais de mettre le résultat sur le feuille récap (en A12 pour septembre)

je mets un nouveau fichier pour vous .

une fois que le macro fonctionnera pour septembre, je vais faire des copier.coller dans la macro en remplacant septembre par octobre par exemple et en donnant coller D12 pour octobre.

dernière question, si le mot Septembre est écrit en minuscule ou en MAjascule, la macro fonctionnera t-elle.

qu'est ce que j'aimerai être aussi pointu que toi en macro.

Encore un grand merci

Bonjour,

A tester.

Cdlt.

Merci beaucoup,

c'est exactement ce que je cherchais.

bonjour jean eric,

c'est excatement cela que j'attendais.

mon but est de faire à l'identique pour une autre feuille mais je n'y arrive pas.

peux-tu m'aider.

est-il possible d'avoir le même principe avec l'onglet GMS

si le mot septembre est dans la colonne U, alors me mettre :

l'enseigne qui se trouve dans l'onglet GMS en colonne B de la feuille GSM en B12 sur l'onglet recap

le nom de la ville qui se trouve dans l'onglet GMS en colonne le H de la feuille GSM en C12 sur l'onglet recap

avec cette macro, je vais avoir un fichier TOP

merci de me mettre tes commentaires sur macro pour que je comprenne.

Cordialement