Problème formulaire intégration sur BDD

[GuillaumA]

Bonjour ou re-bonjour,
J'ai juste le petit soucis suivant:

Sub transpose_dans_tableau()
' Cette macro assume que la base de donnée comporte une ligne d'entêtes
Dim rngFormulaire As Range
Dim wksBD As Worksheet

Set rngFormulaire = Worksheets("Feuil1").Range("K21:K21,K24:K24,K27:27,K30:K30")
Set wksBD = Worksheets("Feuil2")

' Copier les données du formulaire
rngFormulaire.Copy
' Coller avec transposition dans la base de données
wksBD.Cells(wksBD.UsedRange.Rows.Count + 1, 3).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

End Sub

Le problème vient du fait que les cellules ne sont pas reconnus si plus d'une foi K..:K.. .
Il faut surement utiliser une autre fonction pour qu'il intègre la notion de plusieurs cellules d'entrée ne se suivant pas mais je ne sais laquelle utiliser.

Quelqu'un saurait m'aider?

PS: A noter que l'intégration commence à la colonne 3 soit C, et je voudrais que les quatres critères soient en C D E F soit 3,4,5 et 6

Cordialement,
Guillaume A.

 

[kjin]

Re : Problème formulaire intégration sur BDD

Bonjour,

Set rngFormulaire = Worksheets("Feuil1").Range("K21,K24,K27,K30")

A+
kjin

 

[GuillaumA]

Re : Problème formulaire intégration sur BDD

...





Je manque de vacance cette année.............

Merci.

Guillaume A.