Probleme de copier coller
Résolu/Fermé
A voir également:
- Probleme de copier coller
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Dessin sms copier coller - Forum Jeux vidéo
- Copier coller formule excel sans décalage ✓ - Forum Bureautique
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
22 juil. 2013 à 14:50
22 juil. 2013 à 14:50
Bonjour,
Rslt = Cells(lgn, 1).Value est-ce le nom de l'onglet a ajouter ???
ActiveSheet.Name = Worksheets("Rslt").Range("A1") Enlevez les doubles cotes de Rslt
les résultats d'un filtre sur une nouvelle feuille "Rslt" la, quand cela marchera vous etes parti pour en ajouterez 65534, mais votre excel n'en accepte que 255.
Si vous voulez seulement les cellules filtrees:
Range("A1:AF65536").SpecialCells(xlVisible).Copy
mais il faudrait aussi limite aux lignes effectives de votre tableau
Range("A1:AF" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Copy
A+
Rslt = Cells(lgn, 1).Value est-ce le nom de l'onglet a ajouter ???
ActiveSheet.Name = Worksheets("Rslt").Range("A1") Enlevez les doubles cotes de Rslt
les résultats d'un filtre sur une nouvelle feuille "Rslt" la, quand cela marchera vous etes parti pour en ajouterez 65534, mais votre excel n'en accepte que 255.
Si vous voulez seulement les cellules filtrees:
Range("A1:AF65536").SpecialCells(xlVisible).Copy
mais il faudrait aussi limite aux lignes effectives de votre tableau
Range("A1:AF" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Copy
A+
Modifié par vico31 le 22/07/2013 à 15:05
Alors premièrement, oui Rslt est l'onglet à ajouter.
Secondo, j'ai du mal comprendre ce que vous vouliez dire par doubles cotes car ca plante toujours à cet endroit
Modif:
Sub Créer_()
Application.ScreenUpdating = False
For lgn = 2 To 65536
Sheets("Tchou").Select
Rslt = Cells(lgn, 1).Value
Sheets("Tchou").Select
Range("L1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="MAL"
Range("A1:AF" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Copy
Range("A1").Activate
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Worksheets(Rslt).Range("A1")
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' le problème vient de cette partie manifestement
Next lgn
Application.ScreenUpdating = True
End Sub
22 juil. 2013 à 15:09
ActiveSheet.Name = Rslt
pourquoi ecrire:
ActiveSheet.Name = Worksheets(Rslt).Range("A1")
Modifié par vico31 le 22/07/2013 à 15:20
Il m'indique toujours le problème erreur 1004; erreur définie par l'application ou par l'objet.
Donc le doc ajoute bien une feuil1 mais il ne veut pas la renommer ni coller les données sur cette même feuille :(
22 juil. 2013 à 15:22
Rslt est egal a quoi, si vide---->erreur 1004
22 juil. 2013 à 15:25
Désolé de t'ennuyer mais mes compétences en VBA sont limités et je ne comprend pas pourquoi il n'accepte pas ce nom de feuille.....