Je n'arrive pas à inclure dans la sub:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
===========================
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
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" a écrit dans le message de news: 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
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" <jberti@free.fr> a écrit dans le message de news:
O2$ee9$uHHA.4332@TK2MSFTNGP06.phx.gbl...
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.
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" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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
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 NoSpam-jpmonnier@tele2.fr
"jean berti" <jberti@free.fr> a écrit dans le message de news:
O2$ee9$uHHA.4332@TK2MSFTNGP06.phx.gbl...
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.
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" a écrit dans le message de news: 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
Merci beaucoup cela fonctionne parfaitement. "l'apprentissage VBA" dur dur.... Merci aussi à Daniel
Jean Berti "JP25" a écrit dans le message de news:
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" a écrit dans le message de news: 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
Merci beaucoup
cela fonctionne parfaitement.
"l'apprentissage VBA" dur dur....
Merci aussi à Daniel
Jean Berti
"JP25" <nospam-jpmonnier@tele2.fr> a écrit dans le message de news:
uP3H03AvHHA.4540@TK2MSFTNGP05.phx.gbl...
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 NoSpam-jpmonnier@tele2.fr
"jean berti" <jberti@free.fr> a écrit dans le message de news:
O2$ee9$uHHA.4332@TK2MSFTNGP06.phx.gbl...
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 beaucoup cela fonctionne parfaitement. "l'apprentissage VBA" dur dur.... Merci aussi à Daniel
Jean Berti "JP25" a écrit dans le message de news:
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" a écrit dans le message de news: 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.