Petit problème sur cette macro

[excelJL]

Bonjour

Je crois que là je suis dépassé et que mes compétences s'arrêtent.


Sub Macro2()

Dim zone As Range
Dim cellule As Range
Set zone = Range("a1:a1100")
cell = [N°clients]
For Each cellule In zone
Select Case cellule
Case Is = cell
Selection.Copy
Sheets("Ficher clients").Select
Range("A19").Select
ActiveSheet.Paste
Case Else

End Select
Next

End Sub

Le but de cette macro en théorie, devrait récupérer un code client dans une feuille , puis aller chercher tous les enregistrements correspondants à ce client dans une base de données, afin de les copier dans la fiche client pour consulter toutes les transactions du client.

Merci d'avance si vous pouvez quelque chose pour moi

 

[pierrejean]

Re : Petit problème sur cette macro

bonjour excelJL

sans avoir testé
il y a au moins ceci a changer

Sub Macro2()
 
Dim zone As Range
Dim cellule As Range
Set zone = Range("a1:a1100")
cell = [N°clients]
[COLOR=red]ligne=19[/COLOR]
For Each cellule In zone
Select Case cellule
Case Is = cell
Selection.Copy
Sheets("Ficher clients").Select
[COLOR=red]Range("A" & ligne).Select[/COLOR]
ActiveSheet.Paste
[COLOR=red]ligne=ligne+1[/COLOR]
Case Else
 
End Select
Next
 
End Sub

 

[excelJL]

Re : Petit problème sur cette macro

Merci de tout intéressé à mon problème

En pièce jointe le fichier où j'ai essayé d'implanter la macro mais ça ne marche pas, apparemment je ne remplis pas la condition.


Regarde la pièce jointe DB.xls

 

[bqtr]

Re : Petit problème sur cette macro

Bonjour excelJL, pierrejean

Essaye comme ceci :

Sub Macro2()
 
Dim zone As Range
Dim cellule As Range
Dim ligne As Long, cell

Set zone = Sheets("db").Range("a2:a1100")
cell = [N_clients]
ligne = Sheets("Ficher clients").Range("A65536").End(xlUp).Row

For Each cellule In zone
 If cellule = cell Then
    Range(cellule, cellule.Offset(0, 3)).Copy Sheets("Ficher clients").Range("A" & ligne + 1)
    ligne = ligne + 1
 End If
Next
 
End Sub

Il y a une erreur sur ta cellule nommée, Excel n'accepte pas N°clients, il faut N_clients.

A+

 

[pierrejean]

Re : Petit problème sur cette macro

re
salut bqtr

un peu comme les carabiniers

 

[excelJL]

Re : Petit problème sur cette macro

Merci pour ton code qui est très clair.
Cependant en intégrant sous Excel il m'indique une erreur d'incompatibilité de type à la ligne 13

merci

 

[Cousinhub]

Re : Petit problème sur cette macro

Re-, bonjour bqtr,
une autre approche, dès que tu modifies le numéro de client, sa fiche se met à jour automatiquement par filtre élaboré.

Sub extract()
Application.ScreenUpdating = False
Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C3:C4"), CopyToRange:=Range("A88"), Unique:=False
Application.ScreenUpdating = True
End Sub

la zone nommée base est automatiquement mise à jour dans l'onglet ("db")

 

[excelJL]

Re : Petit problème sur cette macro

Vous êtes trop génial. merci à vous trois d'une situation désespérée vous avez trouvé trois solutions superbes.
Merci 1000 fois