Excel avancé debutant

bonjours, je suis un débutant sur excel avancé en fait je suis sur un projet mais j'ai des problèmes

j'ai un formulaire qui me permette d'alimenter les tableaux issu de différente feuilles

j'ai regrouper les pages dans un liste déroulante, je veux que quand je choisie un page après validation du formulair tous les donnée seront stocké laba. mais a mon niveau ça ne passe pas donc je voulais un aide pour résoudre ce problème.

je pense que vous allez me comprendre

Merci d'avance

voici le code

Option Explicit
Sub addinfo(pages, lignes)

Dim dl As Long
Dim page As String

page = pages

' trouver la dernière ligne du tableau
If Sheets(page).Range("b7") = Empty Then
dl = 7
Else
Sheets(page).ListObjects(1).ListRows.Add
dl = Sheets(page).Range("b6").End(xlDown).Row + 1
End If

' placer dans le journal specifique

With Sheets(page)
.Range("b" & dl) = .Range("A1") ' numero d'operation
.Range("C" & dl) = Range("d5") ' la date
.Range("D" & dl) = Range("c" & lignes) ' numero de facture
.Range("E" & dl) = Range("d" & lignes) ' reference
.Range("F" & dl) = Range("e" & lignes) ' N° DE COMPTE GENERAL
.Range("G" & dl) = Range("f" & lignes) ' DESCRIPTION
.Range("H" & dl) = Range("g" & lignes) ' COMPTE THIERS
.Range("I" & dl) = Range("h" & lignes) ' LIBELLE
.Range("J" & dl) = Range("i" & lignes) ' COMMENTAIRE
.Range("K" & dl) = Range("j" & lignes) ' DATE ECHEANCE
.Range("L" & dl) = Range("k" & lignes) ' POSITION JOURNAL
.Range("M" & dl) = Range("l" & lignes) ' debit
.Range("N" & dl) = Range("m" & lignes) ' creit
End With

If pages = "GrandJournal" Then
Sheets("GrandJournal").Range("i" & dl) = Range("c3") & Range("a1")


End If

End Sub

Bonjour,

Pas sur de comprendre. tu entends quoi par Pages ? le nom de tes onglets excel ? page = pages ??? c'est pas plutôt le nom de feuille que tu cherches ?

Pourquoi faire un bouton de validation avant la sélection de la feuille concernée ? tu ne peux pas ajouter directement ton selecteur de feuille dans ton

userform ?

Un exemple avec une macro qui recherche la liste des noms des feuilles. et un userform qui utilise cette liste pour activer la feuille choisie :

merci j'ai visualiser votre fichier mais c'est différent avec ce que je veux

le formulaire je l'ai fait sans userform

mais il ya un bouton registre quand vous cliquez les informations doit être enregistré dans le feuille concerné

voici le document

ça va vous permettre de mieux savoir ce que je parle

merci

Ok , çà ne change pas le fait que je ne comprend pas votre codification avec Page ?

Quand on lance le Bouton "registre" : ---> page = Pages = "Journal" ??? c'est quoi Journal un nom de feuille car cette feuille n'existe pas.

Donc la suite du code listobjet...add chargement de list ne risque pas de fonctionner.

Pour faire çà autant ouvrir aprés clic sur votre bouton registre un userform avec la liste des feuilles selectionnable pour la validation.

c'est bon je vais essayer ça

merci