Copier coller des données d'une feuille vers une autre sous condition

[zombe]

Bonjour à tous

J'ai un fichier contenant 2 feuilles (ETAT, FICHE).
Les données de la feuille "ETAT" devront être copiées et collées sur les données de la feuille "FICHE" en respectant les conditions de collage ci-dessous:
- la base de collage commence par la colonne "CLIENT" (colonne C de chaque feuille).
- le collage ne doit se faire que si le client correspondant a été trouvé.
- les données du fichier de départ (C, D, E, F, G, H, I) doivent être collées respectivement (et sur la ligne correspondante) en C, D, E, H, J, L et N.
NB: l'objet de se projet est de mettre à jour les données des clients chez qui il y'a eu un changement

Merci pour vos contributions

 

[job75]

Re : Copier coller des données d'une feuille vers une autre sous condition

Bonjour zombe,

Placez cette macro dans le code de la feuille "FICHE" :

Private Sub Worksheet_Activate()
Dim t, source, nlig&, i&, client$, j&
t = [A1].CurrentRegion
source = Feuil2.[C4].CurrentRegion
nlig = UBound(source)
For i = 2 To UBound(t)
  client = CStr(t(i, 3))
  For j = 2 To nlig
    If client = CStr(source(j, 1)) Then
      t(i, 4) = source(j, 2)
      t(i, 5) = source(j, 3)
      t(i, 8) = source(j, 4)
      t(i, 10) = source(j, 5)
      t(i, 12) = source(j, 6)
      t(i, 14) = source(j, 7)
      Exit For
    End If
Next j, i
[A1].CurrentRegion = t
End Sub

Elle se déclenche quand on active la feuille.

A+

 

[zombe]

Re : Copier coller des données d'une feuille vers une autre sous condition

Salut Job75

merci pour l'intérêt accordé à mon besoin.
Je viens de le tester mais je ne sens pas de collage.
Suivant mon souhait, les données des clients ci-dessous devraient être copiées et collées sur les lignes correspondantes de la feuille "FICHE":
125000
126000
301252
401520
452000
471000
Je constate qu'il n’y a pas de changement lorsque j'active la feuille "FICHE".
Si possible de revoir la ou ça coince.
Encore merci

 

[gosselien]

Re : Copier coller des données d'une feuille vers une autre sous condition

Si les numéros de client se retrouvent sur les 2 feuilles, ça fonctionne parfaitement ...