Bonjour à tous !
Je cherche désespéremment depuis 1h dans le forum et sur google une VBA capable de résoudre mon petit problème :
J'ai une liste de 448 valeurs différentes en colonne A.
J'aimerais que chaque ligne en deviennent 5, je m'explique :
Avant | Après
Valeur1 | Valeur1
Valeur2 | Valeur1
Valeur3 | Valeur1
Valeur4 | Valeur1
Valeur5 | Valeur1
Valeur6 | Valeur2 (x5 et ainsi de suite)
Existe-t-il une formule / VBA capable de réaliser ça ?
J'ai essayé la suivante, en vain :
Sub Lignes()
Dim c As Range
With Feuil1
For Each c In Feuil1.Range("A:A")
If c.Value <> "" Then
c.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next c
End if
End Sub
Ensuite, j'aurais rempli les cellules vides nouvellement créées avec un simple formule.
Un grand merci de votre aide !
Je cherche désespéremment depuis 1h dans le forum et sur google une VBA capable de résoudre mon petit problème :
J'ai une liste de 448 valeurs différentes en colonne A.
J'aimerais que chaque ligne en deviennent 5, je m'explique :
Avant | Après
Valeur1 | Valeur1
Valeur2 | Valeur1
Valeur3 | Valeur1
Valeur4 | Valeur1
Valeur5 | Valeur1
Valeur6 | Valeur2 (x5 et ainsi de suite)
Existe-t-il une formule / VBA capable de réaliser ça ?
J'ai essayé la suivante, en vain :
Sub Lignes()
Dim c As Range
With Feuil1
For Each c In Feuil1.Range("A:A")
If c.Value <> "" Then
c.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next c
End if
End Sub
Ensuite, j'aurais rempli les cellules vides nouvellement créées avec un simple formule.
Un grand merci de votre aide !
