transposer une colonne en ligne avec un critère

[Francis]

Bonjour le forum
J’essaie de transposer une colonne en ligne avec un critère : toutes les cellules non vides.
J’ai fais ces quelques lignes, et ça na marche pas.
Elle recopie la colonne indépendamment du critère

Maligne = 90
valtest = ""
For i = 2 To Sheets.Count - 1
For j = 11 To 64
With Sheets(i)
For Each c In .Range(.Cells(11, 3), .Cells(64, 3))
If c <> valtest Then
.Range(.Cells(Maligne, j - 10), .Cells(Maligne, j - 10)) = "X"
End If
Next
End With
Next j
Next i.

Où est l’erreur?
Merci de votre aide
Francis

 

[Spitnolan08]

Re : transposer une colonne en ligne avec un critère

Bonjour,
avec

Sub test()
Maligne = 90
valtest = ""
For i = 2 To Sheets.Count - 1
For j = 11 To 64
With Sheets(i)

If Cells(j, 3) <> valtest Then
[COLOR=Red] .Range(.Cells(Maligne, j - 10), [/COLOR].Cells(Maligne, j - 10)[COLOR=Red])[/COLOR] = "X"
End If

End With
Next j
Next i
End Sub

Ca devrait mieux fonctionner😉
Cordialement

Edit : supprimer les parties en rouge qui n'apportent rien...

 

[ERIC S]

Re : transposer une colonne en ligne avec un critère

Bonjour

a essayer, non testé

Maligne = 90
valtest = ""
For i = 2 To Sheets.Count - 1
k=1
With Sheets(i)
For Each c In .Range(.Cells(11, 3), .Cells(64, 3))
If c <> valtest Then
.Cells(Maligne, k).value=c.value
k=k+1
End If
Next
End With
Next i.

 

[Francis]

Re : transposer une colonne en ligne avec un critère

Bonjour Spitnolan08, Eric S et le forum
Merci pour vos réponses, cela marche très bien.
Cordialement
Francis