Discussion :

[boxtom]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

à l'aide d'un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boxtom]

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

Bonne journée