Répartir le contenu d'une cellule de manière égale en plusieurs cellules

Bonjour,

J'aurais aimé savoir s'il existe une formule pour répartir dans plusieurs cellules la valeur numérique d'une cellule en fonction de la valeur numérique d'une autre cellule.

Je m'explique imaginons que le contenu de la cellule A1 soit 3 et celui de la cellule A2 soit 12.

Je souhaiterais que dans la colonne B la formule/programmation me remplisse automatiquement 4 cellules avec la valeur 3. Connaissez-vous une formule/programmation permettant de faire cela ?

Merci d'avance.

Bonjour Araksi, bonjour le forum,

Essaie comme ça :

Sub ThauTheme()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim NF As Integer 'déclare la variable NF (Nombre de Fois)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O
O.Columns(2).ClearContents 'efface le contenu de la colonne 2 de l'onglet O
NF = CInt(O.Range("A2").Value / O.Range("A1").Value) 'définit le nombre de fois NF (divise A2 par A1)
For I = 1 To NF 'boucle de 1 a NF
    O.Cells(I, "B").Value = NF 'renvoie NF dans la cellule ligne I colonne "B" de l'onglet O
Next I 'prochaine ligne de la boucle
End Sub

bonjour

pour amorcer

Merci pour vos réponses.

J'avoue ne pas m'y connaitre du tout en programmation (j'aurais du préciser).

Tulipe la formule est bien mais je suis dans ce cas obliger de désigner le nombre lignes dans la colonne B pour effectuer l'action alors que j'aimerais qu'il répartisse automatiquement dans le nombre de lignes pour que le compte soit bon.

TauThème je place où dans excel ta programmation ? Merci.

Bonsoir à tous !

Une proposition ? En B1 (à étirer vers le bas) :

=SI(LIGNES($A$1:A1)<=ENT($A$2/$A$1);$A$1;"")

Re,

Pourtant tu disais, par formule/Programmation, cela paraissait évident que tu savais utiliser VBA. Il te faut donc :

1. Copier le code que je t'ai proposé
2. Ouvrir l'éditeur VBA avec le raccourci clavier [Alt]+[F11]
3. Cliquer sur le menu Insertion/Module
4. Coller le code là où le curseur clignote
5. Fermer l'éditeur VBA avec le même raccourci clavier [Alt]+[F11]

Pour le lancer :

1. Dans Excel, raccourci clavier[Alt]+[F8] pour ouvrir la boîte de dialogue Macros
2. Doube-clique dans la liste sur la macro ThauTheme.

Merci, la formule marche super bien par contre elle n'est pas transposable lors d'un copier collé (je suppose que c'est à cause des $ qui doivent figer les cellules dans la formule (ce qui fait qu'elle fonctionne).

Y-a-t'il une solution pour qu'elle se transpose correctement lors d'un copier collé?

J'ai essayé la programmation qui marche aussi très bien mais ça doit être complexe de faire en sorte que ça marche à chaque fois que je copie un tableau ?

Merci en tous cas expérience probante

Bonjour à tous !

Une proposition amendée ?

=SI(LIGNES($A$1:$A1)<=ENT(A$2/A$1);A$1;"")

Boonjour,

Merci j'ai testé, ça marche très bien quant tu copies colle d'une colonne à l'autre mais pas quand tu copie colle d'une ligne à l'autre

Bonjour à tous !

Excel 2019 n'intègre pas les nouvelles fonctions matricielles dynamiques (365, 2021 et +).

Figer les cellules qui servent à déterminer le nombre de lignes est donc une nécessité.

Je vous laisse entre les mains des spécialistes es VBA !

Merci beaucoup pour votre aide. J'ai réorganiser mon excel pour ne pas changer les ligne mais travailler en colonne, votre formule marche donc parfaitement.

Bonjour à tous !

Formidable !

Je vous remercie de ce retour !

Ne pas oubliez de passer le sujet en mode résolu !