Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie des cellules en diagonales

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion 1ma9
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
1

1ma9

Guest
Bonjour à tous!

Alors je vous expose mon petit soucis.

j'ai un onglet de ma feuille excel qu'on va appeler A, dans cette onglet j'aimerai coller dans une colonne les donnees d'un onglet B. Cependant dans cette onglet les valeurs que je veux sont sur la diagonales. C'est a dire que je veux B2, puis C3, puis D4, puis E5.

Donc j'aimerai automatiser une copie plutot que le faire 1 à 1. n'étant pas expert dans l'outil VBA je viens à vous pour savoir par ou prendre le taureau par les cornes !

merci à tous.
 
Trier par date Trier par votes
Re : Copie des cellules en diagonales

Bonjour

A mettre dans une macro (Alt+F11, puis Insertion, puis Module)

Sub copier_diago()


For i = 2 To 100 '(100 à déterminer selon besoin)

Sheets("A").Cells(i, 1).Value = Sheets("B").Cells(i, i).Value

Next i

End Sub

C'est un début, que l'on peut agréementer de divers contrôles de cohérences, de test de fin, etc...

Cordialement
Olivier
 
Vote positif 0 Vote négatif
Re : Copie des cellules en diagonales

Bonjour le forum,
j'avais fait comme ça, chez moi ça marche mais c'est surement moins maniable que la formule d'Odesta!
Code: 
For i = 0 To 6
Sheets("feuil1").Cells(i + 1, i + 1).Copy 'copie la cellule diagonale
ActiveSheet.Range("E330").End(xlUp).Offset(1, 0).Select 'choisie où les coller:
ActiveSheet.Paste 'les coller
Next i 'passe à la cellule diagonale suivante
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
317
Nico Gre
N
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
987
Dock91
D
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
534
zendb
Z
M
  • Question Question
XL 2021 mise en forme conditionnelle des cellules quand une autre est sélectionnée
Réponses
5
Affichages
510
marco22
M
  • Résolu(e)
LibreOffice Calc Un tri qui fonctionne mais des #N/D en fin de plage de cellules
Réponses
2
Affichages
810
StephCo
M
  • Résolu(e)
XL 2016 Recopier des cellules en valeur après un clic
Réponses
10
Affichages
865
Merlin258413
M
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
706
djidji59430
S
  • Question Question
Microsoft 365 copie des cellules à partir d'une autre feuille
Réponses
1
Affichages
435
Wayki
M
  • Question Question
Microsoft 365 fusion automatique de plusieurs tableaux évolutifs sur différents onglet vers un tableau général récapitulatif
Réponses
5
Affichages
1 K
mitmit
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
E
  • Résolu(e)
Microsoft 365 Macro VBA - Fusionner des cellules
Réponses
8
Affichages
3 K
Elegancya
E
I
  • Question Question
Réorganiser des données d'une même cellule en colonne, sous une dénominateur commun
Réponses
6
Affichages
2 K
Iridium95
I
O
  • Question Question
XL 2013 MACRO : Transférer des données entre onglets
2
Réponses
20
Affichages
4 K
Omegan
O
F
  • Question Question
VBA - sumifs -somme multicriteres d un tableau
Réponses
0
Affichages
2 K
fredm
F
A
  • Question Question
Supprimer collage des 0 si cellules copiées sont vides [Résolu]
Réponses
5
Affichages
1 K
La_Mouette
S
  • Question Question
Fusion de fichiers et de classeurs en 1 seul
Réponses
0
Affichages
513
schaya
S
L
  • Question Question
Recherche formule pour transposer matrice selon des critères de dates
Réponses
8
Affichages
1 K
Dugenou
G
  • Question Question
Copie de cellules vers d'autres à partir d'une feuille correspondence
Réponses
14
Affichages
719
guigui1492
G
A
  • Question Question
probleme gestion d'absence d'onglet dans une macro
Réponses
6
Affichages
1 K
auverland
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…