Poignée de recopie

Question

Je bloque sur un Pb. Je vais essayer d'être clair. Dans la feuil1 j'ai des nombres différents en B70, C70, D70 etc... Je souhaiterais que ces nombres s'affichent dans la feuil2 en D4, D5, D6 etc... Quelle formule dois-je appliquer ? Car quand je tire la poignée de recopie de la cellule D4 vers D30 de la feuil2, ça m'affiche les nombres des cellules de la feuil1 B71, B72, etc... et non ceux de C70, B70, C70, etc... Merci pour votre aide...

Amadéus · Answer

Formule en D4 de Feuil2 à incrémenter vers le bas: =SI(LIGNES($D$4:D4)&lt;26;INDIRECT("Feuil1!"&amp;CAR(64+LIGNE()-2)&amp;70);INDIRECT("Feuil1!A"&amp;CAR(64+MOD(LIGNE();28))&amp;70)) Passée la ligne 54, cette formule ne marche plus et il faut ajouter une nouvelle condition (Mais comme tu parles de ligne 30, je me suis arrêté là, fais signe si tu veux poursuivre) Cordialement...

Raja · Answer

Essaye copie et collage spécial et choisi l'option "transposé" ou bien il y a la formule TRANSPOSE. Procède ainsi : 1) En Feuil2 Sélectionne le bloc complèt pour recevoir les données( D4:D30 plage de 27 cellules dans la colonne D) 2) inscrit cette formule : =TRANSPOSE(plage_à_transposer) B70:AB70 (plage de 27 cellules aussi mais dans la ligne 70) par exemple. 3) valide impérativement avec les touches CTRL + MAJ + ENTREE...

Raja · Answer

Re,

Pour la copier CTRL+C suffit, mais pour le collage spécial CTRL+V ne suffit pas comme pour un collage normal. Il faut faire clique droit de la souris et sélectionner l'option "Collage spécial". Essaye aussi la 2è solution que j'ai proposé par la formule TRANSPOSE.

Raja · Answer

Re, Sans ton fichier, il m'est impossible de répondre favorablement à ta question...

Amadéus · Answer

Ton fichier n'est pas passé (tu dois copier le lien et le coller dans ton message) Pour plus de 150 ou 200 valeurs à transposer, ma formule est inopérante, et deviendrait trop compliquée. La Formule de Raja est peut être délicate à manipuler, mais fonctionne parfaitement. Pour te faciliter le travail, tu peux y arriver en suivant le schéma suivant: Exemple tu veux transposer tes données qui sont ligne 70 à partir de B70 1) Commande de menu "Insertion" "Nom" "Définir" Dans "Nom dans le classeur", tu tapes MaPlage Dans "Fait référence à:" tu tapes le signe = Tu sélectionnes ta plage (qui s'inscrit automatiquement) et tu valides 2) Tu fais Alt+F11 (Touches Alt et touche F11) L'éditeur VBA s'ouvre Dans la fenêtre de l'Editeur VBA, commande "Insertion" "Module" Tu copies ce qui suit et tu le colle dans la fenêtre de droite de l'Editeur vBA Sub Transpose() Range("MaPlage").Select Selection.Copy Sheets("Feuil2").Select Range("D4").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False Selection.FormulaArray = "=TRANSPOSE(MaPlage)" Range("D4").Select End Sub Tu fermes l'Editeur VBA; tu te retrouves devant ton fichier. Menu "Outils" 'Macro" "Macros" tu cliques sur le bouton exécuter. La macro opére la transposition et installe les formules. Cordialement...

Raja · Answer

Re,

Amadéus,

Juste une suggestion. Dans ton code, tu n'aurait pas besoin de la ligne suivante, par conséquent peut être supprimée :

Selection.FormulaArray = "=TRANSPOSE(MaPlage)"

puisque, dans le collage (spécial) tu fais déjà cette transposition en mettant le paramètre Transpose:=true .

Comme j'ai indiqué dans mon précédent message, soit le collage spécial avec l'option "Transpose" soit la formule TRANSPOSE peut faire ce que l'auditeur veut réaliser.

Amadéus · Answer

Merci pour ton indication. J'ai utilisé l'enregistreur, d'où, cette ligne en plus. Je sais, je ne brille pas trop en VBA, mais, ma spécialité était XL4 (affaire de génération et de langue) Cordialement...

Raja · Answer

Re Amadéus,

Moi non plus, je ne brille pas en VBA, mais en tant qu'apprenti programmeur dans d'autres langages que VBA et tant que étudiant informatique (et oui je continue mes études au cours du soir à IUT informatique de LYON toujours et encore) , j'essaie toujours d'optimiser le code. Sinon, j'ai, en excel, une toute petite préférence, pour les formules. Mais j'avoue que, quand je parcours ce forum, et d'autres aussi de temps en temps, je suis épaté de ce qui est réalisé par les spécialistes VBA.

En ce qui concerne, l'enregistreur de code du VBA, c'est grâce à cet outil, j'ai véritablement découvert le VBA et ainsi que le programmation tout court. Donc, il n'y a aucun complexe à avoir pour pouvoir l'utiliser. D'ailleurs, je suis persuadé que tous les programmeurs VBA l'utilise encore pour pouvoir retrouver un certain nombre de détails utiles.

Je donne, on ne sait jamais, le code que j'ai pu réaliser à partir de ton code mais qui pourra être optimisé encore par les spécialistes VBA .

Sub Transpose()
  [Feuil2].Select
  [D4].Select
  [MaPlage].Copy
  Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
  Application.CutCopyMode = False
End Sub

Raja · Answer

Re,

C'est sûrement à cause de la taille de ton fichier. Essaye de le zipper et retourner. Quand ton fichier est accepté d'être transféré, tu vois afficher un lien. Tu copies ce lien et colle dans ton message. Si le fichier ne passe pas, réduis le en supprimant les feuilles de calcul qui ne sont pas nécessaires ou les données qui ne sont pas probant pour comprendre ton souci.