RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE [Résolu]

RANDRIANARISOA0 6 Messages postés mercredi 24 avril 2013Date d'inscription 2 décembre 2017 Dernière intervention - 30 nov. 2017 à 13:16 - Dernière réponse : RANDRIANARISOA0 6 Messages postés mercredi 24 avril 2013Date d'inscription 2 décembre 2017 Dernière intervention
- 2 déc. 2017 à 13:35
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
Afficher la suite 
6Messages postés mercredi 24 avril 2013Date d'inscription 2 décembre 2017 Dernière intervention

3 réponses

Répondre au sujet
Patrice33740 6306 Messages postés dimanche 13 juin 2010Date d'inscription 7 décembre 2017 Dernière intervention - 30 nov. 2017 à 13:27
0
Utile
Bonjour,

Quel est le problème ???

Note : pour plus de clarté, il faut baliser le code :


Commenter la réponse de Patrice33740
Patrice33740 6306 Messages postés dimanche 13 juin 2010Date d'inscription 7 décembre 2017 Dernière intervention - 30 nov. 2017 à 14:12
0
Utile
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 

Commenter la réponse de Patrice33740
RANDRIANARISOA0 6 Messages postés mercredi 24 avril 2013Date d'inscription 2 décembre 2017 Dernière intervention - 2 déc. 2017 à 13:35
0
Utile
Ca marche
je vais continuer à l'enrichir
merci bien,
Commenter la réponse de RANDRIANARISOA0