Remplir une feuille à partir d'une base

[alex60]

Bonjour le forum,

Afin de limiter le nombre de mes fichiers excel, je souhaiterai les regrouper sur un seul classeur qui serait composé de 3 onglets.
Un onglet Liste, un onglet Référentiel et un onglet Sélection.
A partir de l'onglet Référentiel, je voudrai remplir l'onglet Sélection en fonction de la machine sélectionné sur celui-ci.
Par exemple si je sélectionne la Machine A dans l'onglet Sélection, je voudrai que dans la colonne CONTROLE que les controle N°1, N°2 et N°5 viennent s'afficher.

Quelqu'un pourrait-il m'aider sur la formule à utiliser???

Merci d'avance.

 

[mromain]

Re : Remplir une feuille à partir d'une base

bonjour alex60,

je ne sais pas le faire avec des formules, mais je t'ai fais un exemple en macro.
regarde le fichier joint

a+

 

[alex60]

Re : Remplir une feuille à partir d'une base

Bonjour mromain,

Merci pour ta réponse. ça ne me pose pas de problème que ce soit une macro par contre je souhaiterai savoir s'il est possible de la compléter.
C'est à dire que je voudrai garder la colonne N° je voudrai garder les numéro de contrôle (dans l'exemple de 1 à 6), par contrôle si j'ai 3 contrôles, je voudrai qu'il n'y ai que les numéro de 1 à 3 afficher et pas jusque 6.

Est-ce possible???

 

[mromain]

Re : Remplir une feuille à partir d'une base

re-bonjour

C'est à dire que je voudrai garder la colonne N° je voudrai garder les numéro de contrôle (dans l'exemple de 1 à 6), par contrôle si j'ai 3 contrôles, je voudrai qu'il n'y ai que les numéro de 1 à 3 afficher et pas jusque 6.

je n'ai pas très bien compris ce que tu veux, mais à priori tout est possible.
peux-tu l'expliquer autrement ou mettre un fichier exemple stp.

a+

 

[alex60]

Re : Remplir une feuille à partir d'une base

Dans mon fichier de base, j'ai une colonne N° et une colonne CONTROLE. Dans ta macro, tu as mis le résultat dans la colonne N° alors que je préférerai qu'il soit dans la colonne CONTROLE. (jusqu'ici rien de trop compliqué)
Là où ça se gate (pour moi), c'est que je voudrai avoir la numérotation des contrôles dans la colonne N°.
Si j'ai 2 contrôles la numérotation ira de 1 à 2, si j'ai 4 contrôles la numérotation ira de 1 à 4, ...

Est-ce que c'est plus clair???

 

[mromain]

Re : Remplir une feuille à partir d'une base

re,

voici le code modifié :

Sub updateControles()
Dim referentiel As Range, controle As Range, machine As Range, valCherchee As Range, curCell As Range[COLOR="Red"][B], i As Integer[/B][/COLOR]
[COLOR="Red"][B]i = 1[/B][/COLOR]

'____________________________________________________________________
'________________variables à adapter_________________________________
'
Set referentiel = ThisWorkbook.Sheets("Référentiel").Range("A5:E11")
Set controle = ThisWorkbook.Sheets("Sélection").Range("A11")
Set machine = ThisWorkbook.Sheets("Sélection").Range("B5")
'____________________________________________________________________


Range(controle, controle.End(xlDown)[COLOR="Red"][B].Offset(0, 1)[/B][/COLOR]).ClearContents

Set valCherchee = referentiel.Find(what:=machine.Value, LookIn:=xlValues, lookat:=xlWhole)
If valCherchee Is Nothing Then Exit Sub

For Each curCell In Application.Intersect(referentiel, valCherchee.EntireColumn).Resize(referentiel.Rows.Count - 1, 1).Offset(1, 0)
    If UCase(curCell.Value) = "X" Then
        [COLOR="Red"][B]controle.Value = i
        i = i + 1
        controle.Offset(0, 1).Value = curCell.Offset(0, referentiel.Column - curCell.Column)[/B][/COLOR]
        Set controle = controle.Offset(1, 0)
    End If
Next curCell


End Sub

a+

 

[alex60]

Re : Remplir une feuille à partir d'une base

La numérotation des lignes fonctionne par contre si je sélectionne la machine A qui a 3 controles puis après je sélectionne la machine C qui a 2 controles, j'ai le troisième controle de la machine A qui reste affiché.

Sais-tu comment corriger ceci?


Merci

 

[mromain]

Re : Remplir une feuille à partir d'une base

re,

La numérotation des lignes fonctionne par contre si je sélectionne la machine A qui a 3 controles puis après je sélectionne la machine C qui a 2 controles, j'ai le troisième controle de la machine A qui reste affiché.

Sais-tu comment corriger ceci?


Merci

je viens de m'en apercevoir et de modifier mon post précédent.

a+

 

[alex60]

Re : Remplir une feuille à partir d'une base

Effectivement ça fonctionne bcp mieux...

Par contre quand je mets les bordures sur les cases et que je passe de la machine A à la machine C le contrôle manquant devient une case vide.

Serait-il possible de jouer l'ajout et la suppression de ligne afin de n'avoir que des cases remplies?

 

[mromain]

Re : Remplir une feuille à partir d'une base

re,

j'ai fait une modif sur le fichier joint.

a+

 

[alex60]

Re : Remplir une feuille à partir d'une base

Rebonjour mromain,

Désolé de ne pas avoir répondu tout à l'heure mais j'avais quelques pb de connexion.

J'ai testé ton nouveau fichier, il évite bien d'avoir des cases vides mais le problème est qu'il supprime et décale vers le haut les lignes qui se trouvent en dessous. Le problème est que je voulais mettre du texte en dessous et que ta macro me l'efface...

J'ai travaillé sur la mise en forme finale que je souhaite pour ce document comme ça ce sera plus simple pour les modifs.
Dans mon doc tu vois que si tu changes de machine le remplissage jaune du dessous monte.

As-tu une solution?

Merci d'avance

 

[PUARAI]

Re : Remplir une feuille à partir d'une base

Si ça t'interesse encore j'ai mis une formule en place si tu veux
Voice le fichier joint

 

[alex60]

Re : Remplir une feuille à partir d'une base

Merci PUARAI,

Par contre ce n'est pas exactement ce que je recherche.
Moi je veux que ce soit les contrôles qui s'affichent dans l'onglet sélection et non pas les croix.

A mon avis ça doit être difficile avec une formule non?