Remplissage d'un tableau suivant resultat recherche

[Peacecake]

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

 

[hoerwind]

Re : Remplissage d'un tableau suivant resultat recherche

Bonjour et bienvenue sur le forum,

Essaie en '1er tableau'!B3 :

=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'!

 

[Peacecake]

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.

 

[Bebere]

Re : Remplissage d'un tableau suivant resultat recherche

bonjour Peacecake,Hoerwind
comme suit

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

 

[Peacecake]

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 ?

 

[Bebere]

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

 

[Peacecake]

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 ?

 

[Bebere]

Re : Remplissage d'un tableau suivant resultat recherche

bonjour Peacecake
code dans module2,test
résultat provisoirement en O3
pas contrôlé
à bientôt

 

[Peacecake]

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.

 

[Bebere]

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