Création de base de données

Lucius.K · 13 Juin 2008

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 · 13 Juin 2008

Re : Création de base de données

Bonjour,

Code:

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 · 13 Juin 2008

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.

Création de base de données

Lucius.K

XLDnaute Nouveau

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lucius.K

XLDnaute Nouveau

Discussions similaires