copie série cellule selon choix menu déroulant

[lologarnier]

Bonjour,

Je souhaite que excel copie un série de cellules en fonction du choix d'une cellule sur un menu déroulant.

fichier joint :
onglet reporting, en G4 : choix dans une liste de "job number", correspondant a une liste de job ("jobnumber") sur l'onglet joblist

je souhaite que l'ensemble des cellules B à J de l'onglet joblist liés à un job soient copiées dans les cellules H à P de l'onglet reporting.

merci pour votre aide

Laurent

 

[Robert]

Re : copie série cellule selon choix menu déroulant

Bonjour Laurent, bonjour le forum,

À l'ouverture de ton fichier j'ai me message suivant :

du coup, j'ai pas ouvert... Tu devrais remettre un fichier en pièce jointe.

 

[lologarnier]

Re : copie série cellule selon choix menu déroulant

Merci Robert,

J'ai joint à nouveau le fichier à la question - dis-moi si cela ne fonctionne pas

Laurent

 

[Robert]

Re : copie série cellule selon choix menu déroulant

Bonjour Laurent, bonjnour le forum,


Je confime ça marche maintenant mais il n'y a pas de liste de choix en G4 de l'onglet Reporting...

 

[lologarnier]

Re : copie série cellule selon choix menu déroulant

Robert,

Merci pour le retour, document inital corrigé.

Laurent

 

[Robert]

Re : copie série cellule selon choix menu déroulant

Bonjour Laurent, bonjour le forum,

Ton fichier modifié avec le code ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans une cellule
Dim r As Range 'déclare la variable r (Recherche)
'si le changement à lieu ailleurs que dans la plage G4:G29, sort de la procédure
If Application.Intersect(Target, Range("G4:G29")) Is Nothing Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
Set r = Sheets("Job List").Columns(1).Find(Target.Value, , xlValues, xlWhole) 'définit la recherche r (Recherche la valeur de la cellule modifiée dans la colonne A de l'onglet "Job List")
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
    'copie et colle la plage correspondante
    Sheets("Job List").Range(r.Offset(0, 1), r.Offset(0, 9)).Copy Target.Offset(0, 1)
End If 'fin de la condition
End Sub

 

[lologarnier]

Re : copie série cellule selon choix menu déroulant

mille mercis

comment puis-je intégrer cette formule dans mon fichier d'origine, avec les vrais noms des managers et les vais jobs (tout le tableau reste identique) ?

Laurent

 

[Robert]

Re : copie série cellule selon choix menu déroulant

Bonsoir Laurent, bonsoir le forum,

Tu copies le code que je t'ai donné. Tu ouvres ton fichier original. Tu cliques avec le bouton droit de la souris sur l'onglet Reporting (en bas) et tu choisis l'option Visualiser le code. Ça ouvre VBE (Visual Basic Editor). Dans le grand cadre à droite, tu colles le code. Tu fermes VBE ([Alt]+[F4]). Tu sauves... Ça devrait fonctionner.

Par rapport à l'exemple que tu as fourni, j'ai considéré que seule la plage G4:G29 était réactive (même si tu n'as mis la liste de choix que dans G4).
Modifie cette partie du code :

'si le changement à lieu ailleurs que dans la plage G4:G29, sort de la procédure
If Application.Intersect(Target, Range("G4:G29")) Is Nothing Then Exit Sub

si tu veux agrandir ou diminuer la plage...