XL 2019 Liste faisant varier des cellules : adaptation format

nicroq

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

Pièces jointes

  • test format.xlsx
    12.2 KB · Affichages: 4

job75

XLDnaute Barbatruc
Bonjour nicroq,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille :
VB:
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+
 

Pièces jointes

  • test format.xlsm
    17.8 KB · Affichages: 3

nicroq

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

Pièces jointes

  • test format2.xlsm
    19.3 KB · Affichages: 4

job75

XLDnaute Barbatruc
Eh bien limitez :
VB:
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.
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof