Discussion :

[Chamboultou]

Bonjour

J'ai un code à rallonge dans Excel que j'essaye de simplifier au maximum.
A un endroit je veux faire un copié-collé-valeurs mais ca me prend 5 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Columns("A:O").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("a:o").Copy.PasteSpecial Paste:=xlPasteValues

Mais ca bugue et fait une erreur 404 "objet requis"

Plus loin je veux remplacer un libellé [Calcul Cadrages.xlsm] par rien dans des cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Rows("1:28").Select
    Selection.Replace What:="[Calcul Cadrages.xlsm]", _
        Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
        False, SearchFormat:=False, ReplaceFormat:=False

Mais ca me prend 4 lignes

Pouvez-vous me dire comment écrire ces 2 demandes en 1 ou 2 lignes maxi ?

Merci beaucoup
Didier

[BENNASR]

bonjour
recherche et remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:G40").Replace What:="toto", Replacement:="titi", LookAt:=xlPart

copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A6").Copy Destination:=Range("B5")

[Chamboultou]

Bonjour Benasr

Pour remplace ca marche, et ca doit aller +vite

par contre pour copie-colle j'ai fait l'essai sur une petite zone et ca garde les formules , or je ne voudrais mettre que les valeurs

Merci à toi

[MarcelG]

Salut,

Toujours le même axiome

Excel avant VBA

.

Regarde d'abord si cela peut s'effectuer autrement que par un collage "normal"

[BENNASR]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
Range("A1:A6").Copy
Range("B5").PasteSpecial Paste:=xlPasteValues
End Sub

[MarcelG]

Salut,

Si je peux me permettre.
2 remarques.
1 - Attacher les objets range peut être utile à une meilleur lisibilité
(Si même objet "parent" alors méthode With)
2 - Il serait opportun d'annuler le mode copie après son utilisation

[Menhir]

La méthode Copy ne peut pas avoir de membre.
Donc, si tu veux faire un PasteSpecial, ça prendra forcément au moins deux lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("A:O").Copy
Columns("A:O").PasteSpecial Paste:=xlPasteValues

Mais si ce que tu veux faire c'est transformer en valeurs toutes les formules de la feuille, il serait plus souple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.UsedRange.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues