RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE Résolu/Fermé

Question

Bonjour,

je sollicite votre aide ,j'essais d'avoir cette forme dans la colonne D sauf que mon code donne cette valeur en E
			etc       p,a
				CODE

Cordialement




Sub SCRIPTER()
Dim dc As Long, i As Long
dc = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("SCR-XYZ")
    For i = 2 To dc
        Cells(i, 4) = Cells(i, 1)
        Cells(i + 1, 4) = Cells(i, 2)
        Cells(i + 2, 4) = Cells(1, 3)
    Next i
End With
End Sub

Patrice33740 · Answer

Bonjour,

Quel est le problème ???

Note : pour plus de clarté, il faut baliser le code :

Patrice33740 · Answer

Re,

Essaies :
Option Explicit
Sub SCRIPTER()
Dim r As Range
Dim c As Range
Dim d As Range

With Worksheets("SCR-XYZ")
  Set r = .Range("C2", .Range("A" & Rows.Count).End(xlUp))
  Set d = .Range("D2")
End With
For Each c In r.Cells
  d.Value = c.Value
  Set d = d.Offset(1)
Next c

End Sub

RANDRIANARISOA0 · Answer

Ca marche 
je vais continuer à l'enrichir 
merci bien,

RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE

3 réponses

Discussions similaires