Discussion :

[scarfunk]

bonsoir.
comment faire pour copier une ligne de la feuille1 vers la feuille2 par exemple?

voila le code que j'ai fait:

Code :

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

1
2
3
4
5
6
7
 
    Worksheets("CGT").Select 
    Range("A89:S89").Select 
    Selection.Copy 
    Sheets("TOTAL").Select 
    Range("B2").Select 
    ActiveSheet.Paste

Seulement dans la nouvelle feuille , dans les case il maffiche que des #REF

[mercatog]

Code :

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

  Sheets("CGT").Range("A89:S89").Copy Sheets("TOTAL").Range("B2")

ou si la copie des valeurs

Code :

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

Sheets("TOTAL").Range("B2:T2").Value=Sheets("CGT").Range("A89:S89").Value

[scarfunk]

je remplace mon code par le tien?

[mercatog]

Oui,
j'ai proposé 2 codes indépendants:
le premier qui fait la copie (formules, mise en forme...)
le deuxième transfère les valeurs.

[zyhack]

bonsoir

tu as été plus rapide que moi, il faut mieux dans son cas utiliser la copie de valeur car le problème de #REF dans les cellules est du a des formules dont les adresses utilisés sont hors de la feuille.
par exemple dans la cellule A68 cette formule "=a65+a66+a67" copié dans la cellule A2 est égal à "#ref+#ref+A1"

a+

[scarfunk]

regarde j'ai fait ceci:

Code :

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

1
2
3
4
5
6
    Sheets("TOTAL").Range("A2:T2").Value = Sheets("CGT").Range("A89:S89").Value
    Sheets("TOTAL").Range("A3:T2").Value = Sheets("CGTFO").Range("A37:S37").Value
    Sheets("TOTAL").Range("A4:T2").Value = Sheets("CGTME").Range("A15:R15").Value
    Sheets("TOTAL").Range("A5:T2").Value = Sheets("CFDT").Range("A65:S65").Value
    Sheets("TOTAL").Range("A6:T2").Value = Sheets("UNSA").Range("A10:R10").Value
    Sheets("TOTAL").Range("A7:T2").Value = Sheets("UNATOS").Range("A9:R9").Value

Alors a la 3e ligne il me dis "code d"errer 9"

Puis lorsque je copie les ligne des autres feuille dans la ligne total il copie toujour la meme (autrement dit celle de la feuille cgt)

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
    with Sheets("TOTAL")
  .Range("A2:S2").Value = Sheets("CGT").Range("A89:S89").Value
  .Range("A3:S3").Value = Sheets("CGTFO").Range("A37:S37").Value
  .Range("A4:R4").Value = Sheets("CGTME").Range("A15:R15").Value
  .Range("A5:S5").Value = Sheets("CFDT").Range("A65:S65").Value
  .Range("A6:R6").Value = Sheets("UNSA").Range("A10:R10").Value
  .Range("A7:R7").Value = Sheets("UNATOS").Range("A9:R9").Value
end with

[scarfunk]

En effet ça marche mieux comme ça.Je vous remercie pour votre aide