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

Remplissage d'un tableau suivant resultat recherche

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

Peacecake

Guest
Bonjour

Cela fait un bon moment que je cherche mais sans résultat voilà pourquoi je me tourne vers vous.
Je recherche à remplir le tableau se trouvant sur la feuille "Test Alarme" en fonction du tableau se trouvant sur la feuille "extraction IADR". "Tableau 1" et "Tableau 2" sont les résultats que j'aimerais avoir à la fin du traitement.

Merci
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Remplissage d'un tableau suivant resultat recherche

Bonjour et bienvenue sur le forum,

Essaie en '1er tableau'!B3 :
Code: 
=SI(SOMMEPROD((GAUCHE('extraction IADR'!$S$2:$S$502;NBCAR($A3))=$A3)*('extraction IADR'!$E$2:$E$502=$B$1)*('extraction IADR'!$F$2:$F$502=B$2));"OK";"NOK")
Cette formule peut être copiée vers le bas et vers la droite jusqu'à la colonne F.
A partir de la colonne G il faut remplacer dans cette formule $B$1 par $G$1.

Même principe pour le '2ème tableau'!
 
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

Bonsoir hoerwind

Merci pour le cadeau de bienvenue cela fonctionne parfaitement !!

Edit:

Dans la formule le fichier extraction IADR a 502 lignes, mais cela est variable.
Est-il possible que le nombre de lignes se modifie tout seul. J'ai intégré ta formule dans une macro. De là j'ai essayé la modifier pour qu'elle récupère le nombre de lignes de l'extraction mais cela ne fonctionne pas. Si tu pouvais m'éclairer un peu plus, cela serait fort sympathique.
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

bonjour Peacecake,Hoerwind
comme suit
Code: 
Sub RemplissageTableau(NbElement As Integer)
    
    Dim DerniereLigne As Integer
    
    DerniereLigne = Worksheets("extraction IADR").Range("F65536").End(xlUp).Row

    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT((LEFT('extraction IADR'!R2C19:R" & DerniereLigne & "C19,LEN(RC1))=RC1)*('extraction IADR'!R2C5:R" & DerniereLigne & "C5=R1C2)*('extraction IADR'!R2C6:R" & DerniereLigne & "C6=R2C)),""OK"",""NOK"")"
    Range("B3").Select
    Selection.AutoFill Destination:=Range("B3:F3"), Type:=xlFillDefault
    Range("B3:F3").Select
    Selection.AutoFill Destination:=Range("B3:F" & NbElement + 1), Type:=xlFillDefault
    Range("G3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT((LEFT('extraction IADR'!R2C19:R" & DerniereLigne & "C19,LEN(RC1))=RC1)*('extraction IADR'!R2C5:R" & DerniereLigne & "C5=R1C7)*('extraction IADR'!R2C6:R" & DerniereLigne & "C6=R2C[-5])),""OK"",""NOK"")"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:K3"), Type:=xlFillDefault
    Range("G3:K3").Select
    Selection.AutoFill Destination:=Range("G3:K" & NbElement + 1), Type:=xlFillDefault
    Range("A1").Select
    
End Sub

dans le code du bouton tu peux ajouter
Application.ScreenUpdating = False
supprimer les select pour accélérer le code
à bientôt
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

Bonjour Bebere, Hoerwind

Merci pour ta réponse Bebere ,cela fonctionne.
En ce qui concerne la rapidité d'execution de la macro y aurait-il encore d'autre moyen de l'augmenter ?
 
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

Peacecake
dans la feuille test alarme pas de formules,pas de mfc
code avec un tableau ,mondico pour sans doublons

si tu gardes les formules tu peux ajouter
dans le code du bouton
Application.Calculation = xlCalculationManual'début
Application.Calculation = xlCalculationAutomatic'fin
 
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

Bonjour Bebere

Comment je peux faire sans formules pour avoir le même résultat ?

mondico ? Qu'est ce que c'est ?
 
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

Bonjour
j'ai essayé ton code mais il ne m'affiche pas la totalité des sites. est ce normal ?? Mais je vais retravailler mon code pour travailler avec des tableaux comme tu me l'as montré. Je reviendrais vers toi si besoin.
 
Vote positif 0 Vote négatif
Re : Remplissage d'un tableau suivant resultat recherche

bonjour
mis dans le code
'sans doublon,si site existe dans extraction IADR
cad si les sites de préventives existent dans extraction IADR ils sont ajoutés
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
560
Yogean
Y
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
786
ORL
O
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
1 K
jeff1494
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
313
evindi
E
POWERQUERY :: Combinaison de tableaux structurés Excel pouvant être issus de répertoires différents avec des noms de tableaux structurés différents
Réponses
0
Affichages
298
oguruma
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
711
Phil69970
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
830
fanfan38
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
707
jeff1494
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
646
Linda42
L
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
1 K
Chris Linefield
C
Z
  • Question Question
Microsoft 365 Copier valeur cellule suivant le resultat d'une autre
Réponses
13
Affichages
882
Cousinhub
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
664
Chaton77
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
850
Lu76Fer
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
810
p56
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
883
NONO14
N
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
630
Dubuyz1
D
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
T
  • Résolu(e)
XL 2013 Affichage Dynamique des Tolérances via Listes Déroulantes
Réponses
5
Affichages
582
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…