Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 000 fois - Téléchargée 35 fois
Sub Bascule() Application.ScreenUpdating = False For i = 1 To 99 For j = 1 To 30 ' Copie les colonnes sur les lignes Sheets("1").Cells(j, i) = Sheets("2").Cells(i, j) Next j Next i Range("A1").Select End Sub
Le code de ce snippet fonctionne bien évidemment sans aucun problème
Mais pourquoi faire cette double boucle pour transposer, alors que VBA/Excel offre du tout cuit et sans passer par du "pastespecial"
Il suffit de déterminer la plage à transposer, comme par exemple :
puis, cette plage ayant été ainsi déclarée, d'en "envoyer" la "transposition" où on le souhaite (comme ici, par exemple en Feuil3, à partir de la cellule A1
Le traitement en sera beaucoup plus rapide.
Une véritable "vedette", celui-là, tiens !
(je suppose que son niveau en développement sous VBA/Excel est proportionnel à celui de sa correction et inversement proportionnel à ce qu'il pense valoir).
Je viens de le tester, parce quand même, en lisant et relisant ce snippett je ne voyais pas ce qui pouvait boguer... Et pour cause, il fonctionne très bien, alors, avant de critiquer amèrement achètes toi un peu de jugeote, cherche à comprendre ce qu'il fait, y a 10 lignes un peu d'aide en ligne sur les fonctions ça va pas prendre 10 jours...
Et tant que tu es au magasin (pour la jugeote) prends un bescherelle aussi.
Sinon c'est tout simple mais efficace.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.