multiplier les cellules

cyriled

XLDnaute Nouveau
bonjour,
je souhaite multiplier une liste d'identifiant en multipliant chaque valeurs par 30 sur la même colonne,,a priori il faut passer par vba pour faire cela. Quelqu'un aurait=il une idée ?
 

job75

XLDnaute Barbatruc
Bonsoir cyriles, Chris24, JHA,

En VBA c'est assez simple :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim duplicateur As Range, resu As Range, n&
Set duplicateur = [C2]: Set resu = [E2]
If Intersect(Target, duplicateur) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If duplicateur Then
    For n = 2 To [A1].CurrentRegion.Count
        Cells(n, 1).Copy resu.Resize(duplicateur)
        Set resu = resu(duplicateur + 1)
    Next
End If
resu.Resize(Rows.Count - resu.Row + 1).Clear
End Sub
Le cellules sont dupliquées avec leur format.

Il y aura bug si le résultat dépasse les limites de la feuille.

Fichier joint.

A+
 

Pièces jointes

  • Dupliquer par VBA(1).xlsm
    22.4 KB · Affichages: 25

job75

XLDnaute Barbatruc
Re,

Une solution simple avec cette formule en E2 à tirer vers le bas :
Code:
=""&INDEX(A:A;2+ENT((LIGNE()-2)/C$2))
Fichier joint, j'ai mis 100 données en colonne A et la colonne E est colorée par alternance grâce à une MFC.

Bonne fin de soirée.
 

Pièces jointes

  • Dupliquer par formule(1).xlsx
    99.9 KB · Affichages: 27

job75

XLDnaute Barbatruc
Bonjour le fil, le forum,

Formule en E2 pour le cas où C2 est vide dans ce fichier (1 bis) :
Code:
=SI(C$2;""&INDEX(A:A;2+ENT((LIGNE()-2)/C$2));"")
Bonne journée.
 

Pièces jointes

  • Dupliquer par formule(1 bis).xlsx
    98.9 KB · Affichages: 25

Discussions similaires

Réponses
11
Affichages
514