Copier Coller dans bloc With

Question

Bonjour,

Je suis planté sur un truc tout bête.

Je tente désespérément de faire un copier/coller au sein d'un bloc d'instruction.

La ligne qui me pose problème est en couleur.

La valeur 'rngtrouve' est OK

Par
contre le code ci-dessous fonction lorsque je me positionne sur la
feuille PART_Feuil1, mais je voudrai éviter le plus possible les
.select et autre .activate

merci d'avance

YDU

'----------------------------'

Set rngtrouve = Sheets("PART_Feuil1").Columns(1).Cells.Find(what:=Empty)


'1.1/ Vendeurs PART


With Sheets("PART_Feuil1")


    .Range("r1").Copy
    .Range(Cells(2, 2), Cells(rngtrouve.Row - 1, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
    
        
'1.1.1/ Mise en forme de la structure des vendeurs
    .Columns(3).Replace what:="G", Replacement:="M"
        
    .Columns(3).Replace what:="S", Replacement:="V"
End With

ydu

Renfield · Answer

fais .Cells et non simplement Cells si tu veux que les cellules mentionnées soient celles de PART_Feuil1

.Range(.Cells(2, 2), .Cells(rngtrouve.Row - 1, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply

par extension, tu pourais faire :



'1.1/ Vendeurs PART

With Sheets("PART_Feuil1")
    Set rngtrouve = .Columns(1).Cells.Find(what:=Empty)
    .Range("R1").Copy
    .Range(.Cells(2, 2), .Cells(rngtrouve.Row - 1, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
    
        
'1.1.1/ Mise en forme de la structure des vendeurs
    .Columns(3).Replace what:="G", Replacement:="M"
        
    .Columns(3).Replace what:="S", Replacement:="V"
End With

Copier Coller dans bloc With

1 réponse

Votre réponse

Discussions similaires