VBA_Syntaxe

Le
jean berti
Bonjour à tous

Je n'arrive pas à inclure dans la sub:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Copy _
Sheets("Cours").[A65000].End(xlUp).Offset(1, 0)
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub

Dans la selection A3:M3 il ya des formules et je souhaiterai n'avoir que les
valeurs.

Merci d'avance

Jean Berti
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4906381
Bonsoir.

Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Copy _
Sheets("Cours").[A65000].End(xlUp).Offset(1, 0)
' les fourmis (qui tournent autour de la plage) ont disparu !
With Selection
.HorizontalAlignment = xlCenter
End With
Range("A3:M3").Copy
' les fourmis réapparaissent !
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

"jean berti" O2$ee9$
Bonjour à tous

Je n'arrive pas à inclure dans la sub:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse
========================== > Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Copy _
Sheets("Cours").[A65000].End(xlUp).Offset(1, 0)
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub
============================= > Dans la selection A3:M3 il ya des formules et je souhaiterai n'avoir que
les
valeurs.

Merci d'avance

Jean Berti





JP25
Le #4906371
Bonsoir Jean
J'ai testé ceci, est-ce que ça te convient ?

Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Select
Selection.Copy
Sheets("Cours").Activate
[A65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub

--
Cordialement
JP25


"jean berti" O2$ee9$
Bonjour à tous

Je n'arrive pas à inclure dans la sub:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse
========================== > Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Copy _
Sheets("Cours").[A65000].End(xlUp).Offset(1, 0)
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub
============================= > Dans la selection A3:M3 il ya des formules et je souhaiterai n'avoir que
les
valeurs.

Merci d'avance

Jean Berti





jean berti
Le #4906321
Merci beaucoup
cela fonctionne parfaitement.
"l'apprentissage VBA" dur dur....
Merci aussi à Daniel

Jean Berti
"JP25"
Bonsoir Jean
J'ai testé ceci, est-ce que ça te convient ?

Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Select
Selection.Copy
Sheets("Cours").Activate
[A65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub

--
Cordialement
JP25


"jean berti" O2$ee9$
Bonjour à tous

Je n'arrive pas à inclure dans la sub:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
========================== >> Sub Transpose()
Selection.NumberFormat = "0.00"
Range("A3:M3").Copy _
Sheets("Cours").[A65000].End(xlUp).Offset(1, 0)
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub
============================= >> Dans la selection A3:M3 il ya des formules et je souhaiterai n'avoir que
les
valeurs.

Merci d'avance

Jean Berti









Publicité
Poster une réponse
Anonyme