Discussion :

[facteur]

Bonjour
J'ai crée un petite macro pour copier la formule d'une cellule de la feuille "test" vers une autre feuille 'Livraison Conforme".
Ces 2 feuilles sont issues d'un même fichier.
Or cette macro ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub copiecellule()
 
Dim b As Integer
 
 
Sheets("Livraison Conforme").Range("D28:E28").Value = Sheets("test").Range("D28:E28").Value
 
Range("D28:E28").Copy
 
b = Range("b" & Range("b65536").End(xlUp).Row).Row 
Range("D28:E" & b).Select 'selection de la zone de copie
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
 
End Sub

[QuestVba]

Bonjour

voici un plus

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Formule As String
With Worksheets("Test")
    Formule = .Range("A1").Formula
End With
With Worksheets("Livraison conforme")
    .Range("A1").Formula = Formule
End With
End Sub

[Philippe Tulliez]

Bonjour,
Voici un exemple d'une copie de plage issue de la feuille nommée Feuil1 avec en colonne A et B des valeurs et en colonne C les formules et collage en feuille nommée Feuil2

Code :

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

1
2
3
4
5
6
7
8
Sub CopyFormula()
 Dim rngIn As Range, rngTo As Range
 With ThisWorkbook
  Set rngIn = .Worksheets("Feuil1").Range("A2:C12")
  Set rngTo = .Worksheets("Feuil2").Range("A2:C12")
 End With
 rngIn.Copy rngTo
End Sub

[EDIT] Une autre option

Code :

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

1
2
3
4
5
6
7
8
Sub CopyFormula()
 Dim rngIn As Range, shtTo As Worksheet
 With ThisWorkbook
  Set rngIn = .Worksheets("Feuil1").Range("A2:C12")
  Set shtTo = .Worksheets("Feuil2")
 End With
 rngIn.Copy shtTo.Range("A20")
End Sub

Attention tout de même de ne pas avoir de formules avec des références absolues

[facteur]

Merci pour ces reponses.
je vais les appliquer.
Et si la feuille 2 se trouvait sur un autre classeur.*cel donnerait quoi ?

[QuestVba]

Va ici

http://www.developpez.net/forums/d80...veau-classeur/

[facteur]

merci pour ce tuto QuestVba.
J'ai encore une question, la macro fonctionne bien .
Mais j 'ai un soucis, dans la feuil1, le contenu des cellules copiées sont dans un format "code a barre". Alors que dans la feuil2, les cellules copiées sont dans un format Numérique. Comment les transformer en code à barre comme dans les cellules de la feuil1 ?