Création de base de données

[Lucius.K]

Bonjour,

Voici mon problème,

Je doit faire d'une série de tableaux une base de données complete qui doit, si possible être modifiable sur simple modification des tableaux.
Les tableaux sont remplis/copiés dans la premieres page et doivent être transposé dans la seconde par simple clic.

Voici un fichier joint qui résume bien la situation.

La taille des tableaux est fixe.
Le nombre d'agence est en réalité bien plus grand et on devrait atteindre un total de 15.000 lignes, donc toute manipulation manuelle est impossible.

Un grand merci à tout ceux qui se pencheront sur mon cas.

 

[BOISGONTIER]

Re : Création de base de données

Bonjour,

Sub essai()
  Set temp = Sheets("base").[A:A].Find(what:=[A6])
  If Not temp Is Nothing Then
    [B5:G18].Copy temp.Offset(-1, 1)
  Else
    MsgBox [A6] & " Inconnu"
  End If
End Sub

JB
Formation Excel VBA JB

 

[Lucius.K]

Re : Création de base de données

Mon héro!

Merci beaucoup, cela fonctionne à la perfection.

En espérant te recroiser sur ce forum.