Problème de copier/coller macro excel

Fermé

lalib1 - 4 nov. 2008 à 12:02
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 4 nov. 2008 à 12:23

Bonjour,

J'ai fait une macro excel avec copier/coller d'une colonner suivant le respect d'un critère (0 ou 1 avec filtre automatique).
Quand je programme ma macro pour selectionner les cases "1" alors qu'il n'y en a pas, je ne devrai avoir aucune données de copier. Or, la macro me colle les données des cases "0".

La macro en question :

Selection.AutoFilter Field:=102, Criteria1:="1"

Selection.AutoFilter Field:=27, Criteria1:="1"

' Range("A2:C6000").Select
' Selection.Copy
' Range("A:C6002,F83:F6002").Select
' Range("F83").Activate
' Application.CutCopyMode = False
' Selection.Copy
Range("B2:C6000,G2:G6000,I2:I6000,M2:P6000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Thyebaut").Select
Range("B37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B37:I39").Select
Application.CutCopyMode = False
Selection.Copy
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B37").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "David"

Même quand il n'y pas de critère "1" en field 27 la macro me copie/colle des données.

Merci de votre aide parce que ça fait un bout de temps que je cherche une solution

A voir également:

Problème de copier/coller macro excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Copier coller pdf - Guide
Formule excel - Guide
Copier une vidéo youtube - Guide

1 réponse

Réponse 1 / 1

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
4 nov. 2008 à 12:23

Bonjour,

compliqué à comprendre ton code

à tester en fonction de ce que j'ai compris

dim ligne as long
ligne = Range("B65536").end(xlup).row
if ligne>1 then 
   Range("B2:C" & ligne & ",G2:G" & ligne & ",I2:I" & ligne & ",M2:P" & ligne).cells.specialcells(xlcelltypevisible).copy
   Sheets("Thyebaut").Range("B37").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
end if

Discussions similaires

Dessiner avec son clavier et avec des lettres

recopier une formule sans décalage

Comment faire le symbole coeur vide/coeur blanc

Discussions similaires

Newsletters