multiplier les cellules

Chris24

XLDnaute Impliqué

• 21 Janvier 2018

• #2

Bonjour

Tu inscris 30 dans une cellule

Sélection de cette cellule -> Edition Copier.
Sélection de ta colonne de valeurs-> Edition ->Collage spécial->Multiplication

Cdt

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 21 Janvier 2018

• #3

Bonjour à tous,

Si ta liste de nom n'est pas très grande, par formule

JHA

 

Pièces jointes

• incrementer.xlsx

  12.2 KB · Affichages: 41

Vote positif 0 Vote négatif

C

cyriled

Guest

• 21 Janvier 2018

• #4

déjà merci pour votre réponse qui répond à un besoin de liste courte, mais effectivement la liste de cellules à dupliquer est de plus de 100 items, c'est pourquoi j'image que vba est nécessaire. Qu'en pensez ?

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 21 Janvier 2018

• #5

RE

Multiplier une valeur et la dupliquer ce n'est pas la même opération....
Bravo à JHA qui a bien compris le problème

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2018

• #6

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2018

• #7

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2018

• #8

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

Vote positif 0 Vote négatif