RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE

Résolu

RANDRIANARISOA0 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
RANDRIANARISOA0 Messages postés 16 Date d'inscription Statut Membre 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

A voir également:

RENVOYER LES VALEURS D'UNE LIGNE SUR UNE COLONNE
Déplacer une colonne excel - Guide
Comment trier une colonne sur excel - Guide
Partager photos en ligne - Guide
Colonne word - Guide
Formule somme excel colonne - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour,

Quel est le problème ???

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

Réponse 2 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Réponse 3 / 3

RANDRIANARISOA0 Messages postés 16 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

Votre réponse

Discussions similaires