Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA_Syntaxe

VBA_Syntaxe

3 réponses
Avatar
jean berti
Bonjour à tous

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.

Merci d'avance

Jean Berti
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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





Avatar
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





Avatar
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