Remplissage auto d'un tableau

thomas83400

XLDnaute Nouveau
Bonjour,

J'aimerai que le tableau dans l'onglet "cuves" se remplisse automatiquement en fonction des données rentrée dans l'onglet "programme mcu" et "base"

Je voudrais que les colonnes "ref mcu", "ref cuve", "opérateur" et "priorité" se remplissent seules

Merci d'avance pour votre aide
 

Fichiers joints

bbb38

XLDnaute Accro
Bonjour thomas83400, le forum,
Sauf erreur ou omission de ma part, je n’ai pas trouvé les données pour les « Réf Cuve » et les « Qté ».
Un essai pour les autres données trouvées.
Cordialement,
Bernard
 

Fichiers joints

thomas83400

XLDnaute Nouveau
Bonjour thomas83400, le forum,
Sauf erreur ou omission de ma part, je n’ai pas trouvé les données pour les « Réf Cuve » et les « Qté ».
Un essai pour les autres données trouvées.
Cordialement,
Bernard
Salut bbb38 merci c'est exactement ce que je voulais, les références de cuves se trouvent dans l'onglet base, colonne G. Et il me faudrait Qté = 1 en face de chaque ligne qui possède une cuve.

Merci !
 

bbb38

XLDnaute Accro
Bonjour thomas83400, le forum,
Une solution par boucles, valable uniquement si la quantité des données est faible.
Le code ne gère pas les colonnes F et G de la feuille « cuves ».
Cordialement,
Bernard
 

Fichiers joints

thomas83400

XLDnaute Nouveau
bbb38,

J'ai mis en forme mon fichier comme je souhaite qu'il soit au final, j'ai complété ma base de donnée sauf que maintenant la macro n'arrive plus à retrouver les valeurs. Est ce que lorsque je vais insérer de nouvelles lignes dans la base de données la macro ira chercher automatiquement les nouvelles références ?

Merci
A+
 

Fichiers joints

bbb38

XLDnaute Accro
Bonjour thomas83400, le forum,
Corrections effectuées. Tu peux insérer de nouvelles lignes dans la feuille « Base », la macro les prendra en compte.
Par contre, tu ne dois pas modifier la structure de la feuille « Programme MCU » (nombres de lignes, de colonnes), et les entêtes de colonnes.
Il n’y a pas de formules dans les cases de la colonne G de la feuille «cuves ».
Cordialement,
Bernard
 

Fichiers joints

thomas83400

XLDnaute Nouveau
Bonjour thomas83400, le forum,
Corrections effectuées. Tu peux insérer de nouvelles lignes dans la feuille « Base », la macro les prendra en compte.
Par contre, tu ne dois pas modifier la structure de la feuille « Programme MCU » (nombres de lignes, de colonnes), et les entêtes de colonnes.
Il n’y a pas de formules dans les cases de la colonne G de la feuille «cuves ».
Cordialement,
Bernard
Salut Bernard,

Merci pour ces modifications, en testant le fichier je me suis rendu compte que la macro n'allait pas chercher les données de l'opérateur "YANNICK" dans l'onglet cuves. Mes faibles connaissances en macro ne m'ont pas permis de comprendre pourquoi.

De plus, exactement dans la même idée que la macro faite pour l'onglet "cuves" j'aimerai que les colonnes A et D de l'onglet "test" se remplissent en auto en fonction de ce qui est renseigné dans l'onglet "programme MCU" est-ce possible ?

Merci d'avance pour ton aide

Thomas
 

Fichiers joints

bbb38

XLDnaute Accro
Bonjour Thomas, le forum,
Merci pour ces modifications, en testant le fichier je me suis rendu compte que la macro n'allait pas chercher les données de l'opérateur "YANNICK" dans l'onglet cuves. Mes faibles connaissances en macro ne m'ont pas permis de comprendre pourquoi.
Nouvelle version à tester (le code prend en compte le nombre de lignes). Le nombre de lignes du Programme MCU n’était pas identique (48 pour le premier fichier, puis 51 - mes remarques fil #6).
De plus, exactement dans la même idée que la macro faite pour l'onglet "cuves" j'aimerai que les colonnes A et D de l'onglet "test" se remplissent en auto en fonction de ce qui est renseigné dans l'onglet "programme MCU" est-ce possible ?
Je vais rectifier le code pour répondre à ta demande. Pour la feuille Test, les noms des Testeurs correspondent aux opérateurs de la feuille Programme MCU.
Cordialement,
Bernard
 

Fichiers joints

thomas83400

XLDnaute Nouveau
Bonjour Thomas, le forum,

Nouvelle version à tester (le code prend en compte le nombre de lignes). Le nombre de lignes du Programme MCU n’était pas identique (48 pour le premier fichier, puis 51 - mes remarques fil #6).

Je vais rectifier le code pour répondre à ta demande. Pour la feuille Test, les noms des Testeurs correspondent aux opérateurs de la feuille Programme MCU.
Cordialement,
Bernard
Effectivement je me suis rendu compte qu’il y avait des lignes en plus.
En ce qui concerne la feuille test, il faut uniquement remplir la colonne A et D de l’onglet et trier de A à Z les données. La colonne « testeur » est rempli après coup et ne dépend pas de la feuille « programme mcu » mais d’autres données.

Merci
Thomas
 

bbb38

XLDnaute Accro
Bonjour Thomas, le forum,
Nouvelle version à tester (le code prend en compte le nombre de lignes). Si tu le souhaites, tu peux supprimer le message en début de code. Je n’ai pas bloqué l’écran pendant l’exécution du code.
Cordialement,
Bernard
 

Fichiers joints

thomas83400

XLDnaute Nouveau
Bonjour Thomas, le forum,
Nouvelle version à tester (le code prend en compte le nombre de lignes). Si tu le souhaites, tu peux supprimer le message en début de code. Je n’ai pas bloqué l’écran pendant l’exécution du code.
Cordialement,
Bernard
Bonsoir Bernard,

C'est exactement ça qu'il me fallait sauf que la macro ne va pas chercher le numéro de série (qui est dans l'onglet programme mcu colonne E) pour le remplir automatiquement dans l'onglet test, est ce possible de le rajouter ?
Merci d'avance
 

thomas83400

XLDnaute Nouveau
Salut Bernard,
Je ne comprend pas qu'elle partie du code va chercher les infos des temps test et des références produits de la feuille programme MCU pour les transposer dans la feuille test ?


End With
' Remplir le tableau tbloTEST
ReDim tbloTEST(xnblgntbloMCU, 5)
xlgn = 1
For i = LBound(tbloMCU, 1) To UBound(tbloMCU, 1)
If tbloMCU(i, 1) <> "" Then
tbloTEST(xlgn, 1) = tbloMCU(i, 1)
tbloTEST(xlgn, 2) = " "
tbloTEST(xlgn, 3) = " "
tbloTEST(xlgn, 4) = tbloMCU(i, 11)
tbloTEST(xlgn, 5) = " "
xlgn = xlgn + 1
End If
Next i
' recopie de tableau tbloTEST dans la feuille TEST
With Sheets("Test")
.Activate
.Range("A4").Resize(UBound(tbloTEST, 1), UBound(tbloTEST, 2)) = tbloTEST
' Trie les données de la feuille Test
xdlgn = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A3:E" & xdlgn)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange Range("A3:E" & xdlgn)
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
Set plage = Nothing
.Range("A2").Select
End With
End Sub
 

Discussions similaires


Haut Bas