XL 2019 Liste faisant varier des cellules : adaptation format

job75

XLDnaute Barbatruc

• 5 Avril 2023

• #2

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

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 5 Avril 2023

• #3

Bonjour,
un essai en macro

 

Pièces jointes

• test format.xlsm

  18.1 KB · Affichages: 1

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 5 Avril 2023

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Avril 2023

• #5

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

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

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 6 Avril 2023

• #6

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Avril 2023

• #7

Bonjour nicroq,

VB:

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

A+

 

Pièces jointes

• test format2.xlsm

  19.3 KB · Affichages: 0

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 6 Avril 2023

• #8

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...)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Avril 2023

• #9

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.

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 6 Avril 2023

• #10

super ! merci beaucoup Job75

 

Vote positif 0 Vote négatif