code vba pour construire un panel a la feuille2

[hpa]

bonjour
comment faire une code vba pour construire le panel qui se trouve a feuille 2 source des données feuille 1

 

[exene]

Re : code vba pour construire un panel a la feuille2

Bonjour,

Sous réserve d'avoir compris la demande et sans VBA, voir fichier joint.

@+

 

[Robert]

Re : code vba pour construire un panel a la feuille2

Bonjour Hpa, Exene, bonjour le forum,

Une autre proposition avec une liste de validation dans la cellule A2 (créée avec la fonction Decaler voir Bandeau : Formules / Gestionnaire de noms) et le code VBA ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans une cellule de l'onglet
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim COL As Byte 'déclare la variable COL (COLonne)

If Target.Address <> "$A$2" Then Exit Sub 'si le changement a lieu ailleurs qu'en A2, sort de la procédure
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Range("A1").CurrentRegion.Offset(1, 2).ClearContents 'efface d'éventuelles anciennes données
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière3 ligne éditée DL de la colonne 2 (=B)
Set PL = Range("B2:B" & DL) 'définit la plage PL
LI = Sheets("Feuil1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Row 'définit la ligne du pays LI
For Each cel In PL 'boucle sur toutes les cellules CEL de la plage PL
    COL = Sheets("Feuil1").Rows(1).Find(cel.Value, , xlValues, xlWhole).Column 'définit la colonne COL
    cel.Offset(0, 1).Value = Sheets("Feuil1").Cells(LI, COL).Value 'récupère la valeur de la cellule LI, COL de l'onglet "Feuil1
    cel.Offset(0, 2).Value = Sheets("Feuil1").Cells(LI + 1, COL).Value 'récupère la valeur de la cellule LI+1, COL de l'onglet "Feuil1
Next cel 'prochaine cellule de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Le fichier :

 

[hpa]

Re : code vba pour construire un panel a la feuille2

bonjour
@exene j'ai fait comme toi avec le tableau a la feuille 3 mais a la feuille 4 j'ai reçu que des zéro svp tu peux m'aider . merci d'avance

 

[Robert]

Re : code vba pour construire un panel a la feuille2

Bonjour le fil, bonjour le forum,

Ha Pascal, tu aurais pu me le dire sur le post de José que je sentais l’ail... Je me serais lavé les dents avant de venir ici...

 

[exene]

Re : code vba pour construire un panel a la feuille2

Bonjour le fil, bonjour le forum,

Salut Robert, j'allais justement répondre au demandeur d'examiner ton code car par formule l'ordinateur rame.😡

@+

 

[exene]

Re : code vba pour construire un panel a la feuille2

Re,
hpa, as tu pris le temps de regarder le code de Robert qui fonctionne parfaitement ?. Il faudrait l'adapter pour répondre à ta nouvelle demande. Avec des formules, le traitement va être long.
Un essai cependant pour trois pays car cela rame déjà.

En A2, une liste de validation pour choisir le pays

P.S : tu dois avoir un problème de format des données pour que la formule retourne 0 (données importées ?)