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
Patrick BASTARD
Bonjour, "Albert"
Données, Trier sur la première colonne, en ordre croissant, après avoir sélectionné ta plage, devrait le faire. Tu peux ensuite déplacer ta première colonne vers la 4°. Ok ?
-- Bien ,
Patrick patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Bonjour, "Albert" <albert@invalid.com>
Données, Trier sur la première colonne, en ordre croissant, après avoir
sélectionné ta plage, devrait le faire.
Tu peux ensuite déplacer ta première colonne vers la 4°.
Ok ?
--
Bien amicordi@lement,
Patrick BAST@RD
patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Données, Trier sur la première colonne, en ordre croissant, après avoir sélectionné ta plage, devrait le faire. Tu peux ensuite déplacer ta première colonne vers la 4°. Ok ?
-- Bien ,
Patrick patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Fredo P.
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
http://cjoint.com/?lhsESFWTno
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Application.CountA(Plg) - 1
ReDim Plgd(i)
For Each C In Plg
Plgd(i) = C
i = i - 1
Next
i = 0
For Each C In Plg
C = Plgd(i)
i = i + 1
Next
' Plg.Value = Plgd() 'ubound(plgd),plgd(0)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Albert
Bonsoir ou bonjour selon
Patrick c'est trop simple, je me botte le xxx... Merci de m'avoir réveillé. Albert
"Patrick BASTARD" a écrit dans le message de news:%
Bonjour, "Albert"
Données, Trier sur la première colonne, en ordre croissant, après avoir sélectionné ta plage, devrait le faire. Tu peux ensuite déplacer ta première colonne vers la 4°. Ok ?
-- Bien ,
Patrick patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Bonsoir ou bonjour selon
Patrick c'est trop simple, je me botte le xxx...
Merci de m'avoir réveillé.
Albert
"Patrick BASTARD" <patrick.bastard@dbmail.com.invalid> a écrit dans le
message de news:%23vVdYH8XKHA.5368@TK2MSFTNGP02.phx.gbl...
Bonjour, "Albert" <albert@invalid.com>
Données, Trier sur la première colonne, en ordre croissant, après avoir
sélectionné ta plage, devrait le faire.
Tu peux ensuite déplacer ta première colonne vers la 4°.
Ok ?
--
Bien amicordi@lement,
Patrick BAST@RD
patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Patrick c'est trop simple, je me botte le xxx... Merci de m'avoir réveillé. Albert
"Patrick BASTARD" a écrit dans le message de news:%
Bonjour, "Albert"
Données, Trier sur la première colonne, en ordre croissant, après avoir sélectionné ta plage, devrait le faire. Tu peux ensuite déplacer ta première colonne vers la 4°. Ok ?
-- Bien ,
Patrick patrick.bastardchezdbmail.com
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Albert
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Merci Fredo P.
Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que
j'ai besoin.
Et je n'ai pas d'excuse pour ne pas y avoir pensé.
Albert
"Fredo P." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le message
de news:eM%23BxA9XKHA.4816@TK2MSFTNGP06.phx.gbl...
http://cjoint.com/?lhsESFWTno
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Application.CountA(Plg) - 1
ReDim Plgd(i)
For Each C In Plg
Plgd(i) = C
i = i - 1
Next
i = 0
For Each C In Plg
C = Plgd(i)
i = i + 1
Next
' Plg.Value = Plgd() 'ubound(plgd),plgd(0)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Fredo P.
Une petite amélio
http://cjoint.com/?lhtdhGpkwu
Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, J#, JJ#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Plg.Rows.Count - 1: J = Plg.Columns.Count - 1 JJ = J ReDim Plgd(i, J) For Each C In Plg Plgd(i, J) = C J = J - 1 i = i + (J < 0) J = J + (J < 0) * -JJ Next Plg = Plgd() Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Une petite amélio
http://cjoint.com/?lhtdhGpkwu
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, J#, JJ#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Plg.Rows.Count - 1: J = Plg.Columns.Count - 1
JJ = J
ReDim Plgd(i, J)
For Each C In Plg
Plgd(i, J) = C
J = J - 1
i = i + (J < 0)
J = J + (J < 0) * -JJ
Next
Plg = Plgd()
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, J#, JJ#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Plg.Rows.Count - 1: J = Plg.Columns.Count - 1 JJ = J ReDim Plgd(i, J) For Each C In Plg Plgd(i, J) = C J = J - 1 i = i + (J < 0) J = J + (J < 0) * -JJ Next Plg = Plgd() Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Fredo P.
Ce sont les données de ton tableau n'étant pas en ordre décroissant sur toutes les colonnes qui m'ont poussé à voir une autre solution, la transposition sans tri préalable. Bon!, que cela serve pour le moins d'école.
"Albert" a écrit dans le message de news: %
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Ce sont les données de ton tableau n'étant pas en ordre décroissant sur
toutes les colonnes qui m'ont poussé à voir une autre solution, la
transposition sans tri préalable. Bon!, que cela serve pour le moins
d'école.
"Albert" <albert@invalid.com> a écrit dans le message de news:
%23riP0R9XKHA.4068@TK2MSFTNGP06.phx.gbl...
Merci Fredo P.
Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce
que j'ai besoin.
Et je n'ai pas d'excuse pour ne pas y avoir pensé.
Albert
"Fredo P." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le
message de news:eM%23BxA9XKHA.4816@TK2MSFTNGP06.phx.gbl...
http://cjoint.com/?lhsESFWTno
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Application.CountA(Plg) - 1
ReDim Plgd(i)
For Each C In Plg
Plgd(i) = C
i = i - 1
Next
i = 0
For Each C In Plg
C = Plgd(i)
i = i + 1
Next
' Plg.Value = Plgd() 'ubound(plgd),plgd(0)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Ce sont les données de ton tableau n'étant pas en ordre décroissant sur toutes les colonnes qui m'ont poussé à voir une autre solution, la transposition sans tri préalable. Bon!, que cela serve pour le moins d'école.
"Albert" a écrit dans le message de news: %
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Fredo P.
Si en + je mets des trucs qui m..!
http://cjoint.com/?lhtzmUWICC --
Fredo P.
"Albert" a écrit dans le message de news: %
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Si en + je mets des trucs qui m..!
http://cjoint.com/?lhtzmUWICC
--
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
%23riP0R9XKHA.4068@TK2MSFTNGP06.phx.gbl...
Merci Fredo P.
Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce
que j'ai besoin.
Et je n'ai pas d'excuse pour ne pas y avoir pensé.
Albert
"Fredo P." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le
message de news:eM%23BxA9XKHA.4816@TK2MSFTNGP06.phx.gbl...
http://cjoint.com/?lhsESFWTno
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Application.CountA(Plg) - 1
ReDim Plgd(i)
For Each C In Plg
Plgd(i) = C
i = i - 1
Next
i = 0
For Each C In Plg
C = Plgd(i)
i = i + 1
Next
' Plg.Value = Plgd() 'ubound(plgd),plgd(0)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
garnote
Ave,
Et pour le plaisir :
Sub Rotation_Plage_180() Set p = Selection NC = p.Columns.Count Set p1 = p.Offset(0, NC + 1) n = p.Count For i = 1 To n p1(i) = p(n + 1 - i) Next i End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés à droite de la plage initiale. Choix arbitraire.
Serge
Ave,
Et pour le plaisir :
Sub Rotation_Plage_180()
Set p = Selection
NC = p.Columns.Count
Set p1 = p.Offset(0, NC + 1)
n = p.Count
For i = 1 To n
p1(i) = p(n + 1 - i)
Next i
End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés
à droite de la plage initiale. Choix arbitraire.
Sub Rotation_Plage_180() Set p = Selection NC = p.Columns.Count Set p1 = p.Offset(0, NC + 1) n = p.Count For i = 1 To n p1(i) = p(n + 1 - i) Next i End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés à droite de la plage initiale. Choix arbitraire.
Serge
Albert
Merci Fredo P. démonstrations très intéressantes, j'espère avoir le courage de me mettre bientôt au VBA merci Albert
"Fredo P." a écrit dans le message de news:
Si en + je mets des trucs qui m..!
http://cjoint.com/?lhtzmUWICC --
Fredo P.
"Albert" a écrit dans le message de news: %
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
Merci Fredo P.
démonstrations très intéressantes,
j'espère avoir le courage de me mettre bientôt au VBA
merci Albert
"Fredo P." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le message
de news:e2bo4f9XKHA.4688@TK2MSFTNGP06.phx.gbl...
Si en + je mets des trucs qui m..!
http://cjoint.com/?lhtzmUWICC
--
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
%23riP0R9XKHA.4068@TK2MSFTNGP06.phx.gbl...
Merci Fredo P.
Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce
que j'ai besoin.
Et je n'ai pas d'excuse pour ne pas y avoir pensé.
Albert
"Fredo P." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le
message de news:eM%23BxA9XKHA.4816@TK2MSFTNGP06.phx.gbl...
http://cjoint.com/?lhsESFWTno
Sub Trans_Trans()
'
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim Plg As Range, C As Object, i#, Plgd()
Set Plg = Range("B2:G4") 'plage à traiter
i = Application.CountA(Plg) - 1
ReDim Plgd(i)
For Each C In Plg
Plgd(i) = C
i = i - 1
Next
i = 0
For Each C In Plg
C = Plgd(i)
i = i + 1
Next
' Plg.Value = Plgd() 'ubound(plgd),plgd(0)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Fredo P.
"Albert" <albert@invalid.com> a écrit dans le message de news:
u6Fggh7XKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une plage de chiffres sur 6 colonnes
qui va de 75 à 1 en descendant
je voudrais la transposer pour avoir de 1 à 75
Merci Fredo P. démonstrations très intéressantes, j'espère avoir le courage de me mettre bientôt au VBA merci Albert
"Fredo P." a écrit dans le message de news:
Si en + je mets des trucs qui m..!
http://cjoint.com/?lhtzmUWICC --
Fredo P.
"Albert" a écrit dans le message de news: %
Merci Fredo P. Mais la réponse de Patrick me satisfait pleinement, c'est exactement ce que j'ai besoin. Et je n'ai pas d'excuse pour ne pas y avoir pensé. Albert
"Fredo P." a écrit dans le message de news:eM%
http://cjoint.com/?lhsESFWTno Sub Trans_Trans() ' On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False Dim Plg As Range, C As Object, i#, Plgd() Set Plg = Range("B2:G4") 'plage à traiter i = Application.CountA(Plg) - 1 ReDim Plgd(i) For Each C In Plg Plgd(i) = C i = i - 1 Next i = 0 For Each C In Plg C = Plgd(i) i = i + 1 Next ' Plg.Value = Plgd() 'ubound(plgd),plgd(0) Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Fredo P.
"Albert" a écrit dans le message de news:
Bonjour
J'ai une plage de chiffres sur 6 colonnes qui va de 75 à 1 en descendant je voudrais la transposer pour avoir de 1 à 75
dans le moment je ne peux que transposer de vertical à horizontal, ou vice versa. ce qui me redonne la disposition originale. merci
-- albertri-at-videotron.ca.invalid
garnote
Et pour une rotation "sur place" :
Sub Rotation_Plage_180_Sur_Place() Dim v() Set p = Selection n = p.Count ReDim v(1 To n) For i = 1 To n v(i) = p(i) Next i For j = 1 To n p(j) = v(n + 1 - j) Next j End Sub
Ne reste plus qu'à trouver un truc pour des rotations de 90 et 270 degrés ;-)
Serge
"garnote" a écrit dans le message de news:
Ave,
Et pour le plaisir :
Sub Rotation_Plage_180() Set p = Selection NC = p.Columns.Count Set p1 = p.Offset(0, NC + 1) n = p.Count For i = 1 To n p1(i) = p(n + 1 - i) Next i End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés à droite de la plage initiale. Choix arbitraire.
Serge
Et pour une rotation "sur place" :
Sub Rotation_Plage_180_Sur_Place()
Dim v()
Set p = Selection
n = p.Count
ReDim v(1 To n)
For i = 1 To n
v(i) = p(i)
Next i
For j = 1 To n
p(j) = v(n + 1 - j)
Next j
End Sub
Ne reste plus qu'à trouver un truc pour
des rotations de 90 et 270 degrés ;-)
Serge
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
evF0m99XKHA.5368@TK2MSFTNGP02.phx.gbl...
Ave,
Et pour le plaisir :
Sub Rotation_Plage_180()
Set p = Selection
NC = p.Columns.Count
Set p1 = p.Offset(0, NC + 1)
n = p.Count
For i = 1 To n
p1(i) = p(n + 1 - i)
Next i
End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés
à droite de la plage initiale. Choix arbitraire.
Sub Rotation_Plage_180_Sur_Place() Dim v() Set p = Selection n = p.Count ReDim v(1 To n) For i = 1 To n v(i) = p(i) Next i For j = 1 To n p(j) = v(n + 1 - j) Next j End Sub
Ne reste plus qu'à trouver un truc pour des rotations de 90 et 270 degrés ;-)
Serge
"garnote" a écrit dans le message de news:
Ave,
Et pour le plaisir :
Sub Rotation_Plage_180() Set p = Selection NC = p.Columns.Count Set p1 = p.Offset(0, NC + 1) n = p.Count For i = 1 To n p1(i) = p(n + 1 - i) Next i End Sub
J'ai choisi d'installer la plage pivotée de 180 degrés à droite de la plage initiale. Choix arbitraire.
