BOUCLE TRANSPOSANT VALEURS ENTRE DEUX FEUILLES

cs_laestrella Messages postés 93 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 27 juin 2003 - 25 juin 2003 à 12:31
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 26 janv. 2016 à 10:33

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7611-boucle-transposant-valeurs-entre-deux-feuilles

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
26 janv. 2016 à 10:33

Bonjour,
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 :

Dim plage As Range
  Set plage = Worksheets("Feuil1").Range("A6:C7")

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


With Worksheets("Feuil3")
    .Range(.Cells(1, 1), .Cells(plage.Columns.Count, plage.Rows.Count)).Value = Application.Transpose(plage)
End With

Le traitement en sera beaucoup plus rapide.

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
Modifié par ucfoutu le 25/01/2016 à 16:59

Qui peut bien être ce guignol dont le pseudo est "moi" ????
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).

Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 656
Modifié par Whismeril le 25/01/2016 à 16:32

Bonjour

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.

moi
25 janv. 2016 à 13:50

C'est grave les mecs je viens de voir par curiosité que sur 20 macros que je viens de tester, les 20 ne fonctionnent pas. C'est nul arrêter de balancer vos codes à la noix, arrêtez de vous prendre pour Bill Gates....Vous faites perdre du temps à tout le monde, TESTEZ VOS MERDES AVANT DE LES METTRE EN LIGNES..!

cs_laestrella Messages postés 93 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 27 juin 2003
25 juin 2003 à 12:31

C'est plus facile dans un zip pour archiver direct
Sinon c'est tout simple mais efficace.

Discussions similaires

Calculer le nombre de jour entre deux dates

interval entre deux date en mois seulement

Access, calcul entre deux dates

Interval précis entre deux dates

Différence entre deux dates

Votre réponse

Discussions similaires