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

Remplir une feuille à partir d'une base

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion alex60
  • 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
A

alex60

XLDnaute Occasionnel
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.
 

Pièces jointes

Trier par date Trier par votes
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???
 
Vote positif 0 Vote négatif
Re : Remplir une feuille à partir d'une base

re-bonjour


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+
 
Vote positif 0 Vote négatif
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???
 
Vote positif 0 Vote négatif
Re : Remplir une feuille à partir d'une base

re,

voici le code modifié :
Code: 
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+
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Remplir une feuille à partir d'une base

re,


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

a+
 
Vote positif 0 Vote négatif
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?
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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?
 
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

  • Résolu(e)
XL 2016 remplir automatiquement un onglet
2
Réponses
17
Affichages
602
ARRU
  • Question Question
XL 2021 Remplir plusieurs onglet à partir de mon USERFORM
Réponses
1
Affichages
168
chris
  • Question Question
XL 2016 A partir USERFORM remplir plusieurs onglets
Réponses
10
Affichages
474
fanfan38
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
734
Jaykerz
J
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
711
Cousinhub
M
  • Résolu(e)
Microsoft 365 Somme d'une donnée spécifique, dans une Colonne spécifique dans chaque Onglet
Réponses
2
Affichages
288
Lolote83
L
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
324
Bodin44
B
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
446
nightswan
F
  • Question Question
Microsoft 365 Tableau Excel mettre une couleur
Réponses
11
Affichages
365
chris
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
R
  • Résolu(e)
XL pour MAC Créer un sous groupe à partir d'un groupe
2 3 4
Réponses
48
Affichages
2 K
rtlv17
R
E
  • Question Question
Microsoft 365 trier plusieurs colonnes simultanément sur onglets différents
2 3
Réponses
30
Affichages
964
EBE27
E
Y
  • Question Question
Microsoft 365 Nommer des onglets (dates) à partir d'une cellule
Réponses
14
Affichages
747
fanch55
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
Y
  • Résolu(e)
XL 2016 Evaluation sur des imposés
Réponses
6
Affichages
279
YGU1
Y
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
435
MATLEA
M
R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
520
Rosario.
R
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
329
vgendron
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
872
Nino63
N
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
840
MBax
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…