Formulaire personnalisé avec bcp de problèmes

Bonjour

merci pour votre retour rapide

en effet en modifiant le nom des colonnes ca fonctionne très bien, je ne sais pas pourquoi le nom des colonnes a changé

Re Bonjour Thev

c'est la journée ou je vous embete

dans mon formulaire:

il y a 3 pages, les données saisies sur les 2 premières pages sont transfeérées dans un meme onglet excel

par contre poue la 3e page je souhaiterai transferer les données ver un autre onglet excel mais du meme classeur

j'ai essayé plusieurs options mais cela plante à chaque fois (type erreur: run time error 9 subscript out of range)

est ce possible de le faire sinon dois je pensais créer un autre formulaire ?

en gras mes ajouts

Option Explicit

'variables du module

Dim F_base As Worksheet

Dim G_base As Worksheet

Dim ligne_sel As Integer

Dim liste As Object

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()

'assignation base de données

Set F_base = Sheets("database GVA")

Set G_base = Sheets("database Group")

'chargement IstMyData

With F_base.ListObjects(1)

IstMyData.List = .DataBodyRange.Value

End With

'chargement IstMyData2

With F_base.ListObjects(1)

IstMyData2.List = .DataBodyRange.Value

End With

End Sub

'chargement IstMyData3

With G_base.ListObjects(1)

IstMyData3.List = .DataBodyRange.Value

End With

End Sub

encore merci si vous avez le temps (désolée de vous ennuyer!!)

Bonsoir,

Elodie2018 a écrit :

j'ai essayé plusieurs options mais cela plante à chaque fois (type erreur: run time error 9 subscript out of range)

est ce possible de le faire sinon dois je pensais créer un autre formulaire ?

Il est pas nécessaire de créer un autre formulaire. Je vois 2 sources d'erreur possibles :

1- un "End Sub" en trop

2- Votre base dans la feuille "database Group" est-elle bien un objet Tableau ?

Pour créer un objet Tableau :

a- sélectionner une plage minimum de 2 lignes avec les entêtes de colonne

b- menu Insertion --> cliquer sur le bouton Tableau

Paramétrage objet Tableau :

a- cliquer sur n'importe quelle cellule du tableau

b- cliquer sur le bouton "Outils de Tableau" apparaissant tout en haut au milieu de la fenêtre Excel

ci-dessous code avec suppression du "End Sub" en trop

Option Explicit

'variables du module
Dim F_base As Worksheet
Dim G_base As Worksheet
Dim ligne_sel As Integer
Dim liste As Object

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
    'assignation base de données
    Set F_base = Sheets("database GVA")
    Set G_base = Sheets("database Group")

    'chargement IstMyData
    With F_base.ListObjects(1)
        IstMyData.List = .DataBodyRange.Value
    End With

    'chargement IstMyData2
    With F_base.ListObjects(1)
        IstMyData2.List = .DataBodyRange.Value
    End With

    'chargement IstMyData3
    With G_base.ListObjects(1)
        IstMyData3.List = .DataBodyRange.Value
    End With

End Sub

NB : utiliser le 5ème bouton HTML "</>" pour afficher le code indenté après l'avoir sélectionné.

Vous etes brillantissime merci

je n'avais pas mis en format tableau ma base de données Group

Bonjour

Elodie2018 a écrit :

ce sera tjs un bon apprentissage pour moi

Je comprends mais Thev vous donne ce que vous attendez.

Au vu des réponses, vous proposer autre chose imposerait de probablement recommencer à zéro et au final vous embrouiller et de passer du temps sans que vous preniez au final cette solution.

Bien cordialement

Oui tout à fait d'accord.

merci de vous etre penché sur mon cas et désolée que vous ayez travaillé dans le vide.

Thev a juste été formidable

merci aux bonnes ames que vous etes de nous aider

excellente journée