Excel 2003 -

Bonjour à tous,

Encore novice en VBA, j'ai un souci lorsque j'essaie de transposer des valeurs depuis un formulaire de saisie vers une base de données. Les valeurs renseignées depuis le formulaire viennent écraser l'enregistrement précédent dans la base de données. Par avance merci à tous.
Voici le code (c'est un code que j'ai récupéré en l'adaptant un peu) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub alimentation BDD() Dim rngFormulaire As Range Dim wksBD As Worksheet Set rngFormulaire = Worksheets("Formulaire").Range("B1:B8") Set wksBD = Worksheets("Base de données") ' Copier les données du formulaire rngFormulaire.Copy ' Coller avec transposition dans la base de données wksBD.Cells(wksBD.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True ' Enlever l'indicateur d'opération copier/coller Application.CutCopyMode = False ' Effacer les données dans le formulaire rngFormulaire.ClearContents ' Afficher la base de données wksBD.Activate End Sub

à l'aide d'un tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub alimentation_BDD()
Dim tblFormulaire
Dim NewLig As Long
 
With Worksheets("Formulaire").Range("B1:B8")
  tblFormulaire = .Value
  .ClearContents
End With
 
With Worksheets("Base de données")
  NewLig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
  .Range("A" & NewLig & ":H" & NewLig).Value = Application.Transpose(tblFormulaire)
  .Activate
End With
End Sub

Un grand merci Mercatog
Les subtilités du VBA m'échappent encore....

Bonne journée