XL 2019 Liste faisant varier des cellules : adaptation format

[nicroq]

Bonjour à tous et merci pour votre aide,

Ma problematique sera plus claire via le fichier joint...
Je bloque sur un concept peu commun auquel je ne trouve pas de solutions et ca me casse le cerveau!!!
En fait j'ai une base de donnée avec des valeurs qui varie suivant les tests appliquées colonne P & Q.

Dans l'encadré en rouge, en faisant varié le nom du test en cellule D1, cela fait changer mes cellules dans l'encadré en rouge.
Mon probleme est que les paramètres n'ont pas les memes formats ( texte, %, nombre etc....)

Serait possible par VBA ou pas, de faire correspondre le format des cellules E9:E14 en fonction du choix de la liste en D1?

Merci beaucoup

cordialement

 

[job75]

Bonjour nicroq,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D3]) Is Nothing Then Exit Sub
Dim c As Range
Application.ScreenUpdating = False
Set c = [O:O].Find([D3], , xlValues, xlWhole)
With [E9:E14]
    .ClearContents 'RAZ
    If c Is Nothing Then Exit Sub
    c(1, 3).Resize(6).Copy .Cells 'copie tout
    .Cells(0, 0).Resize(7, 2).BorderAround Weight:=xlMedium, Color:=vbRed 'pourtour
End With
End Sub

Elle se déclenche quand on modifie D3.

A+

 

[sousou]

Bonjour,
un essai en macro

 

[nicroq]

Bonjour, merci pour vos retour c est top! ca me permet d'avancer!!
Est il possible d adapter la macro avec les tableaux base de données (colonne O & Q) qui se trouve sur une autre sheet svp?
merci

 

[job75]

Il suffit de modifier Set c = [O:O].Find([D3], , xlValues, xlWhole)

en précisant la feuille devant [O:O]

 

[nicroq]

Bonjour Job75
j'ai fait une modif sur le Setc mais je ne vois pas où se trouve l'errreur.. voir fichier joint
Merci de me donner un ptit coup de main pour resoudre cela.
Cordialement

 

[job75]

Bonjour nicroq,

Set c = Sheets("Feuil2").[A:A].Find([B22], , xlValues, xlWhole)

A+

 

[nicroq]

Merci Job75
Toutefois j'ai besoin de limiter sur une range dans la colonne A car les noms de recherche du FIND apparaissent plusieurs fois dans la colonne A. D'ou mon besoin de mettre range (cells etc...)

 

[job75]

Eh bien limitez :

Set c = Sheets("Feuil2").[A154:A234].Find([B22], , xlValues, xlWhole)

Autrement dans votre fichier il fallait préciser la feuille devant chaque Cells car par défaut la feuille considérée est Feuil1 (où se trouve la macro) ce qui crée un bug.

 

[nicroq]

super ! merci beaucoup Job75