Réalisation d'une macro

[liloo972]

Bonsoir,

Je suis toute nouvelle sur ce forum. Et je m'excuse d'avance si ce post n'est pas là où il doit être...
Je me permet de vous adresser ce message parce que je travaille depuis ce matin, sur une macro, je n'en ai jamais fais c'est ma première que je réalise grâce à l'aide de tuto etc... seulement voila... après avoir suivi toute les étapes... celle ci ne fonctionne pas... je souhaite transférer des données qui sont inscrite sur la 1ere feuille d'un classeur, sur une 3ème... qui sera ma base de données.

Je pense avoir suivi toutes les étapes mais je me retrouve un un code erreur 400...

Que dois-je faire... ?
Je dois rendre ce travail pour lundi et je suis en panique... Je join le fichier....

Quelqu'un peut m'aider ?

 

[laurent950]

Re : Réalisation d'une macro

Bonsoir,

J'ai fait le code en faite c'est assez simple, je me suis servis d'excel voir la feuille 3 du classeur joint et la feuille 1 pour la constitution des codes.

Je ne suis pas passer par une boucle cela est plus simple pour vous et la compréhenssion

je joint le fichier

Il vous sera très facile de comprendre le fonctionnement
' Zone 1 Formulaire
TF = Fform.Range(Fform.Cells(11, 3), Fform.Cells(40, 3))
c'est un tableau je range cette zone dans un tableau qui s'appelle TF

TF a des cases en mémoire ( comme si une cellule excel est une case) et pour lire cette case c'est comme cela
TF(1, 6) soit 1 le numéro de ligne et 1 de colonne [Pour lire le contenu de la case 1 er ligne 6éme colonne]

' Cela pour passage en mémoire des feuilles du classeur
Dim Fbased As Worksheet
Set Fbased = Worksheets("Base de donnée Client")

Idem pour l'autre feuille formlaire


' Ici
Fbased.Cells(x, 1)

C'est la cellule d'une feuille excel est en faite la feuille de cette cellule est la feuille base de données donc l'inscription de Fbased devant cells et le point entre les deux
Fbased.cells
x = une variable qui définit le numéro de la cellule excel pour sa position de ligne
et le 1 qui est le numéro de la colonne

Ainsi vous pouvez adapter très facillement cette macro avec les méthodes que je vous ai laisser en feuilles 3 pour la correspondance

et en feuille 1 la méthode pour passer les valeur du tableau TF vers la feuille de calcule excel en fonction de mon explication


code :

Sub test()
'Remplissage feuilles
Dim Fform As Worksheet
Set Fform = Worksheets("Formulaire")
Dim Fbased As Worksheet
Set Fbased = Worksheets("Base de donnée Client")

' Zone 1 Formulaire
TF = Fform.Range(Fform.Cells(11, 3), Fform.Cells(40, 3))

' Transfert
' x position de la ligne vides a remplire dans la feuilles base donnée
x = Fbased.Cells(65536, 1).End(xlUp).Row + 1

Fbased.Cells(x, 1) = TF(1, 1)
Fbased.Cells(x, 2) = TF(2, 1)
Fbased.Cells(x, 7) = TF(3, 1)
Fbased.Cells(x, 3) = TF(4, 1)
Fbased.Cells(x, 4) = TF(5, 1)
Fbased.Cells(x, 5) = TF(6, 1)
Fbased.Cells(x, 8) = TF(7, 1)
Fbased.Cells(x, 9) = TF(8, 1)
Fbased.Cells(x, 10) = TF(9, 1)
Fbased.Cells(x, 11) = TF(10, 1)
Fbased.Cells(x, 6) = TF(11, 1)
Fbased.Cells(x, 12) = TF(14, 1)
Fbased.Cells(x, 13) = TF(20, 1)
Fbased.Cells(x, 14) = TF(21, 1)
Fbased.Cells(x, 16) = TF(22, 1)
Fbased.Cells(x, 17) = TF(23, 1)
Fbased.Cells(x, 18) = TF(24, 1)
Fbased.Cells(x, 19) = TF(26, 1)
Fbased.Cells(x, 23) = TF(27, 1)
Fbased.Cells(x, 20) = TF(28, 1)

End Sub

laurent