Code VBA pour format et la valeur de cellule

[archi]

Bjr,


j'aimerai connaitre le code VBA pour copier seulement le format et les valeurs de certaines cellules contenant des formules.

Merci de votre aide

 

[dg62]

Bonjour Archi, le Forum

Un bon moyen d'apprendre et d'utiliser l'enregistreur de macros.

Tu lances l'enregistreur (outils macros nouvelle macro) et tu effectues les actions que tu souhates réaliser.

Pour ton problème tu dois utiliser collage spécial et sélectionner les options qui t'interessent.

Si ces explications ne suffisent pas, nous sommes toujours là.


Cordialement

 

[archi]

Justement,

j'ai une macro réalisé par CBernardT:

Sub macro1()
Application.ScreenUpdating = False
With Sheets('Saisie par équipe')
Nom = Left(.Range('C2'), Application.Find(' ', .Range('C2'), 1) - 1)
End With
With Sheets(Nom)
Lig1 = .Range('A10000').End(xlUp).Row
Range(.Range('H' & Lig1 + 1), .Range('H' & Lig1 + 3)).Clear
End With
With Sheets('Saisie par équipe')
i = Application.CountA(.Range('D58'))
Range(.Range('B5'), .Range('I' & 4 + i)).Copy
End With
Windows('Test_BDV3.xls').Activate
With Sheets(Nom)
.Paste Destination:=.Range('A65536').End(xlUp).Offset(1, 0)
Lig1 = .Range('A65536').End(xlUp).Row
Lig2 = .Range('J65536').End(xlUp).Row + 1
Range(.Range('A' & Lig2), .Range('H' & Lig1)).Validation.Delete
Range(.Range('A' & Lig2), .Range('H' & Lig1)).Value = Range(.Range('A' & Lig2), .Range('H' & Lig1)).Value
Range(.Range('A3'), .Range('H' & Lig1)).Sort Key1:=.Range('A3'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(.Range('J' & Lig2 - 1), .Range('M' & Lig2 - 1)).AutoFill _
Destination:=Range(.Range('J' & Lig2 - 1), .Range('M' & Lig1)), Type:=xlFillDefault
End With
Sheets('Saisie par équipe').Range('C2').Select
Application.ScreenUpdating = True
End Sub

-------------------

le problème, c que elle ne copier pas correctement les valeurs de mon tableau
nottamment la colonne I ??

que faire ?

 

[archi]

pour plus de comprehension je vous joint mon fichier

merci de votre aide

@+ [file name=Test_BDV5.zip size=38964]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV5.zip[/file]

 

[Bebere]

bonjour

la macro est bonne
la formule colonne h pas bonne je l'ai corrigée
compare avec ton fichier
éviter fusion de cellules
employer centrer sur plusieurs colonnes

au revoir

[file name=Testretour.zip size=39121]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testretour.zip[/file]

 

[archi]

merci bebere, mais le problème reste entier ???

je ne pense pas que la formule (colonne I feuille 'Saisie par équipe' ) dont tu parles soit fausse

si l'on pouvait simplement copier vers les feuilles 'Neef' ou 'Zieger' le format et la valeur des cellules (en supprimant également les menu déroulants).
je pense que tout s'arangerait (enfin je l'espère)

comment insérer le code du collage spécial
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

à la place du copier coller classique ??


je ne sais pas comment faire ??


merci de m'aider

Message édité par: archi, à: 27/06/2005 18:39

Message édité par: archi, à: 27/06/2005 18:45