Copie des cellules en diagonales

[1ma9]

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.

 

[Odesta]

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

 

[titiborregan5]

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!

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

 

[1ma9]

Bonjour, Olivier

Ta macro me fait prendre que la ligne A... ! je crois qu'il y a un soucis... ! 🙂

en tout cas merci de ton aide.. !

 

[1ma9]

Re : Copie des cellules en diagonales

je raconte des bétises !!

tu as tout a fait raison !!!

merci encore