VBA Excel

Résolu
Grumly -  
Bonjour,

Sous excell j'aimerai faire une macro qui me copie la valeur d'une cellule dans une autre, et ce pour une plage entiere

Ma plage destination est declaré dans le "Name manager" et la source est relative (10 colonne plus a droite)

Merci
Configuration: Windows XP
Firefox 3.5.5

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Grumly
    Je precise que j'ai bien reussi a faire une marco "Record" en selectionnant la source, copy, puis en selectionnant la destination et en faisant paste.value. Mais la macro ecrite est 100% excel :

    Range("Z11:AB21").Select
    Selection.Copy
    Range("J11:L21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    Et en fait, j'aimerai au passage faire un petit traitement du genre, ne pas faire la copie si la des contient une valeur precise, et eventuellement faire un triatement simple de la valeur source (du genre remplacer"PASSED" par "P" ..)
    donc une macro en VB du genre :
    1. Grumly
      Merci tompol (j'avait pas vu ta reponse avant ma precision).

      C'est deja mieux, mais pas encore excatement ce que je veux faire.
    2. Grumly
      @Grumlyj'ai reussi a faire ca :

      Dim Cellule As Range
      Dim p As String

      For Each Cellule In Range("playback_")
      If Cellule.Value <> "NI" And Cellule.Value <> "NA" Then
      p = Cellule.Offset(0, 8).Value
      p = Replace(p, "PASSED", "P")
      p = Replace(p, "FAILED", "F")
      p = Replace(p, "LOW_Q", "LQ")
      Cellule.Value = p
      End If
      Next

      mais c'est beaucoup plus lent !!
    3. Rilke
      @GrumlyBonjour,

      pour accélérer le traitement :
      encadrer celui-ci avec :
      Application.ScreenUpdating = False
      [ ... traitement ...]
      Application.ScreenUpdating = True

      La mise à jour de l'affichage ne se fera qu'en fin de traitement
      Il y a aussi la possibilité d'inhiber et réactiver les calculs
      Application.Calculation = xlManual
      Application.Calculation = xlAutomatic
    4. Grumly
      @RilkeMerci bcp, en effet ca na rien a voir, tres efficace !
  2. tompols Contributeur
    Bonjour,
    ça devrait faire qqchose comme ça : 
    Range("Name manager").Offset(0, -10).Select
Selection.Copy
Range("Name manager").Select
ActiveSheet.Paste