Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cellules à plusieurs lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nainfa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

nainfa

XLDnaute Junior
Bonjour à tous,

Un grand merci par avance à ceux qui prendront la peine de me lire, et encore plus à ceux qui vont tenter de m'aider. 😉

Alors déjà, la version : j'utilise excel 2003.

La situation :
Je dois exploiter une base de données existante. Un exemple est joint à ce post.
La base de données existantes est située en haut à gauche, des cellules A1 à C3.

En gros, un fournisseur produit plusieurs types de produits, avec une capacité de production propre à chaque production. Comme vous le voyez, ces informations ont été entrées dans une seule cellule.
Le produit 1 a sa capacité de production associé sur la cellule d'à côté. Il en va de même pour les autres.


L'objectif :
L'objectif est d'arriver aux 4 tableaux que j'ai posé en bas à droite du fichier.
En gros, il s'agit d'un classement par produit, permettant d'identifier les fournisseurs concernés, avec leur capacité de production respective.


Désolé pour cette question qui vous paraîtra peut-être facile mais je me suis mis à manipuler excel au-delà du simple graphique il y a peu.

Voilà voilà !

Ah oui, j'y connais rien en VB et vu que la base de données est relativement réduite, j'ai tendance à préférer les formules. Après, je suis pas fermé non plus !

Guillaume
 

Pièces jointes

Trier par date Trier par votes
Re : Cellules à plusieurs lignes

Bonjour nainfa,

Bienvenue sur XLD

Pas facile en formule
Si tu séparais tes données en lignes Excel différentes en répétant le fournisseur pour chaque ligne, ce serait beaucoup plus jouable

Un essai cependant en fonction personnalisée (VBA)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Bonjour, salut tototiti,

Il y a-t-il toujours trois produits par fournisseur (colonne B) ou ce nombre peut-il varier ?

C'est faisable par formules non matricielles et tableau intermédiaire (dissocier les données en plusieurs lignes), mais ce sera une petite usine à gaz (pas facile à comprendre)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Bonjour à tous les deux,

Merci de vos réponses.

tototiti2008 :
Si tu séparais tes données en lignes Excel différentes en répétant le fournisseur pour chaque ligne, ce serait beaucoup plus jouable
Cliquez pour agrandir...
Cela ne me dérange pas du tout, c'est juste que je n'ai pas le temps matériel de le faire à la main. Donc voilà, si jamais il y a une possibilité de faire ça, je suis preneur d'autant plus que cela pourrait me servir ailleurs.
Après, je n'ai jamais utilisé VBA donc je vais regarder ton fichier de plus près.

hoerwind :
Il y a-t-il toujours trois produits par fournisseur (colonne B) ou ce nombre peut-il varier ?
Cliquez pour agrandir...
Au temps pour moi, j'aurais dû le préciser. Ce nombre est susceptible de varier.

Voilà

Guillaume
 
Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Bonjour hoerwind,
Re,

si les données de ta base en Feuil1 colonnes A à C (comme dans le fichier exemple, cette macro devrait te les reformater "par ligne" dans la Feuil2 (doit être vide)

Code: 
Sub Conv()
Dim TabloProduit, TabloProduction, Ligne As Long, i As Long, j As Long
    With Sheets("Feuil1")
    For i = 2 To .Range("A65536").End(xlUp).Row
        TabloProduit = Split(.Range("B" & i).Value, Chr(10))
        TabloProduction = Split(.Range("C" & i).Value, Chr(10))
        For j = LBound(TabloProduit) To UBound(TabloProduit)
            Ligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
            Sheets("Feuil2").Range("A" & Ligne).Value = .Range("A" & i).Value
            Sheets("Feuil2").Range("B" & Ligne).Value = TabloProduit(j)
            Sheets("Feuil2").Range("C" & Ligne).Value = CDbl(TabloProduction(j))
        Next j
    Next i
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Je viens d'essayer et merci, ça fonctionne bien !

Peux-tu prendre une ou deux minutes pour m'expliquer tes boucles? Même de façon superficielle. Juste que je comprenne le raisonnement.


Comment effectuer maintenant le classement par produits comme dans mon exemple par la suite?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Re,

Voila le code commenté

Code: 
Sub Conv()
Dim TabloProduit, TabloProduction, Ligne As Long, i As Long, j As Long
    With Sheets("Feuil1")
    For i = 2 To .Range("A65536").End(xlUp).Row 'Pour chaque ligne de la base en Feuil1
        TabloProduit = Split(.Range("B" & i).Value, Chr(10)) 'On récupère la liste des produits existants en colonne B dans le tableau TabloProduit
        TabloProduction = Split(.Range("C" & i).Value, Chr(10)) 'On récupère la liste des productions correspondantes en colonne C dans le tableau TabloProduction
        For j = LBound(TabloProduit) To UBound(TabloProduit) 'Pour chaque case du tableau TableauProduit
            Ligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1 '1ère ligne vide de la Feuil2
            Sheets("Feuil2").Range("A" & Ligne).Value = .Range("A" & i).Value 'Ecriture du nom du fournisseur en colonne A de Feuil2
            Sheets("Feuil2").Range("B" & Ligne).Value = TabloProduit(j) 'Ecriture du nom du produit en colonne B de Feuil2
            Sheets("Feuil2").Range("C" & Ligne).Value = CDbl(TabloProduction(j)) 'Ecriture de la production en colonne C (convertie en numérique) de Feuil2
        Next j
    Next i
    End With
End Sub

Un fichier exemple pour les calculs sur une liste de ce type
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Cellules à plusieurs lignes

Re,

tout se passe dans la partie là :


Pour chaque colonne qui contient plusieurs lignes, tu pourras ajouter une variable TabloQQchose, comme TabloProduction
Pour celles qui ne contiennent qu'une ligne, tu recopie seulement leur valeur comme en vert
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
202
ChTi160
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
A
  • Question Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
1 K
alexga78
A
P
  • Question Question
Microsoft 365 Créer un tableau à partir de données entre deux dates
Réponses
6
Affichages
606
Pat-Sib
P
P
  • Question Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
2 K
pouetpouetlagalette
P
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
873
salma_hayek
S
S
  • Question Question
Microsoft 365 VBA Copie lignes automatique avec conditions
Réponses
2
Affichages
519
Zon
Z
M
  • Résolu(e)
XL 2021 calcul : Somme des quantités de chaque produit à fabriquer
Réponses
3
Affichages
857
MinstrelL
M
B
  • Question Question
XL 2019 Création d'une base de données à partir de plusieurs fichiers Excel
Réponses
5
Affichages
2 K
battijo
B
A
  • Résolu(e)
XL 2019 Créer une base de données à partir de plusieurs fichiers excel source
Réponses
7
Affichages
1 K
adrien786
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
1 K
albuqs
S
  • Question Question
XL 2019 Formule liée à une base de donnée pour un suivi de cadence
Réponses
7
Affichages
1 K
Samulo
S
M
  • Résolu(e)
Microsoft 365 Reporter certaines cellules d'une feuille à l'autre selon une date
Réponses
6
Affichages
985
masrino
M
C
  • Résolu(e)
XL 2019 Chercher chaine de caractères excel
Réponses
3
Affichages
932
Bernard_XLD
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
W
  • Question Question
XL 2019 Peupler une listbox à partir de plusieurs feuilles ayant un nom spécifique.
Réponses
7
Affichages
1 K
WG95
W
K
  • Résolu(e)
XL 2013 Fusion de données identiques (texte)
Réponses
5
Affichages
870
JHA
J
C
  • Question Question
Microsoft 365 Suivi du Chiffre d'affaire sur plusieurs années grace à un graphique
Réponses
2
Affichages
2 K
chris
R
  • Question Question
XL 2010 RESOLU / Menu en cascade et recherche multi texte dans cellules avec correspondances dans un tableau
2
Réponses
18
Affichages
3 K
richard31
R
J
  • Résolu(e)
XL 2016 RESOLU Saisie intuitive TextBox vers ListBox
2
Réponses
25
Affichages
4 K
jorge1201
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…