Menu

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

Messages postés
6
Date d'inscription
mercredi 24 avril 2013
Statut
Membre
Dernière intervention
2 décembre 2017
-
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 

3 réponses

Messages postés
7722
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
23 avril 2019
1156
0
Merci
Bonjour,

Quel est le problème ???

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


Messages postés
7722
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
23 avril 2019
1156
0
Merci
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 

Messages postés
6
Date d'inscription
mercredi 24 avril 2013
Statut
Membre
Dernière intervention
2 décembre 2017
0
Merci
Ca marche
je vais continuer à l'enrichir
merci bien,