Problème de copier/coller macro excel

Question

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

wilfried_42 · Answer

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

Problème de copier/coller macro excel

1 réponse

Votre réponse

Discussions similaires

Newsletters