Recuperation donnee
s
bonjour,
j'ai un tableau avec des donnée en diagonale et je souhaiterais récupérer dans une seule colonne les données qui ce trouve dans les cellules
b2
c3
d4
e5
etc...
dans une colonne comme la colonne HY par exemple ou une autre page colonne A
mon tableau est grand il fais 280 colonnes sur 280 lignes
merci d'avance de vos réponses
swordsman94
bonsoir
ci joint une proposition a placer dans un module
Nom des feuilles et début fin de colonne/lignes a adapter en conséquence
fred
Sub une_colonne()
Dim wsS As Worksheet
Dim wsD As Worksheet
Dim i, j As Integer
Dim finL, debL, finC, debC As Integer
'nom de la feuille contenant les données en diagonale
Set wsS = Worksheet("Feuil1")
'nom de la feuille ou sera stockée le resultat
Set wsD = Worksheet("Feuil2")
'premiere ligne
debL = 1
'dernière ligne
finL = 280
'premiere colonne
debC = 1
'dernière colone
finC = 280
For i = debL To finL
For j = debC To finC
If wsS.Cells(i, j) <> "" Then wsD.Cells(i, "A") = wsS.Cells(i, j): Exit For
Next j
Next i
End Subg