Recherche données dans un tableau.

[TheProdigy]

Bonjour,

Je cherche à automatiser la recherche de données correspondant à la formule dans le fichier ci-joint.


Merci.

 

[Robert]

Re : Recherche données dans un tableau.

Bonjour Adil, bonjour le forum,

En pièe jointe ton fichier modifié avec le code ci-dessous :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim col As Integer 'déclare la variable col (COLonne)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)

dl = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne de la colonne B (B=2)
For Each cel In Range("R9:R" & Cells(Application.Rows.Count, 18).End(xlUp).Row) 'boucle sur toutes les cellule éditées cel de la colonne R (en partant de la ligne 9)
    Set r = Rows(4).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r (recherche la valeur de la cellule dans la ligne 4)
    If Not r Is Nothing Then col = r.Column 'si il existe au moins une occurrence trouvée
    'place la formule dans la cellule de la colonne S
    cel.Offset(0, 1).Formula = "=+COVAR(" & Range(Cells(5, col), Cells(dl, col)).Address(0, 0) & "," & Range(Cells(5, col), Cells(dl, col)).Address(0, 0) _
        & ")*COUNTA(" & Range(Cells(5, col), Cells(dl, col)).Address(0, 0) & ")"
    cel.Offset(0, 1).NumberFormat = "0.00%" 'définit la format de la cellule de la colonne S
Next cel
End Sub

Le fichier :

 

[TheProdigy]

Re : Recherche données dans un tableau.

Merci,

Est-ce possible avec une formule tirée?

 

[Robert]

Re : Recherche données dans un tableau.

Bonjour Adil, bonjour le forum,

Je comprend plus là !! Tu veux automatiser quoi , le tirage de la formule vers le bas ?
Il faudrait que tu sois un peu plus explicite alors, ça nous éviterait de perdre du temps :

adilprodigy

Recherche données dans un tableau.
Bonjour,
Je cherche à automatiser la recherche de données correspondant à la formule dans le fichier ci-joint.
Merci.​

 

[TheProdigy]

Re : Recherche données dans un tableau.

D'abord merci pour votre effort, plus explicite:

a) Cherche la colonne qui corespond à la vleur M ici c'est la 9ème colonne

9 =+EQUIV(Q9;$A$4:$M$4;0)

b) Calculer la covariance de la plage qui correspond à la colonne M c'est ici où réside la difficulté

=+COVARIANCE(I5:I31;I5:I31)

Je suis à votre disposition pour autre clarification.

 

[JBOBO]

Re : Recherche données dans un tableau.

Bonjour,

Un essai avec :

=COVARIANCE(INDIRECT(ADRESSE(5;EQUIV(Q9;$A$4:$Z$4;0))&":"&ADRESSE(31;EQUIV(Q9;$A$4:$Z$4;0)));INDIRECT(ADRESSE(5;EQUIV(Q9;$A$4:$Z$4;0))&":"&ADRESSE(31;EQUIV(Q9;$A$4:$Z$4;0))))*NBVAL(INDIRECT(ADRESSE(5;EQUIV(Q9;$A$4:$Z$4;0))&":"&ADRESSE(31;EQUIV(Q9;$A$4:$Z$4;0))))

 

[TheProdigy]

Re : Recherche données dans un tableau.

Bonjour,

Waoo quelle complexité!!! Super, cela fonctionne!!!!!!!

Merci infiniment.

 

[TheProdigy]

Re : Recherche données dans un tableau.

Rebonjour,

Je voudrais l'adapter avec une insertion de colonne.

Cordialement.

 

[JBOBO]

Re : Recherche données dans un tableau.

re,

Remplace B4 par A4 dans la formule

 

[TheProdigy]

Re : Recherche données dans un tableau.

ça marche pas 🙁

 

[JBOBO]

Re : Recherche données dans un tableau.

Bonjour,

Pas sur d'avoir compris mais tu peux essayer en S9 :

=COVARIANCE(INDIRECT(ADRESSE(5;EQUIV(R9;INDIRECT("$A$4:$AA$4");0))&":"&ADRESSE(31;EQUIV(R9;INDIRECT("$A$4:$AA$4");0)));INDIRECT(ADRESSE(5;EQUIV(R9;INDIRECT("$A$4:$AA$4");0))&":"&ADRESSE(31;EQUIV(R9;INDIRECT("$A$4:$AA$4");0))))*NBVAL(INDIRECT(ADRESSE(5;EQUIV(R9;INDIRECT("$A$4:$AA$4");0))&":"&ADRESSE(31;EQUIV(R9;INDIRECT("$A$4:$AA$4");0))))

ou en U9 :

="$A$4:"&ADRESSE(4;COLONNE()-4)

et en S9 :

=COVARIANCE(INDIRECT(ADRESSE(5;EQUIV(R9;INDIRECT($U$9);0))&":"&ADRESSE(31;EQUIV(R9;INDIRECT($U$9);0)));INDIRECT(ADRESSE(5;EQUIV(R9;INDIRECT($U$9);0))&":"&ADRESSE(31;EQUIV(R9;INDIRECT($U$9);0))))*NBVAL(INDIRECT(ADRESSE( 5;EQUIV(R9;INDIRECT($U$9);0))&":"&ADRESSE( 31;EQUIV(R9;INDIRECT($U$9);0))))

PS : Supprimer les espaces qui se sont glisser dans les formules.