UserForm Formumaire pour plusieurs feuilles
E
Bonjour à tous,
Nouvelle sur le forum car besoin d'aide, également débutante en VBA.
Jje dois dans le cadre de mon travail créer un fichier excel de suivi de bon de commande pour différentes opérations.
J'ai créer un formulaire, et j'aimerais suivant la saisi dans le conbobox TRANCHE que les données du formulaire se mettent dans l'onglet "suivi" et dans chaque feuille correspondante à la tranche choisie dans le formulaire.
Pouvez-vous m'aider ?
Ci-joint le fichier
Bonsoir,
un essai de modification de votre code de validation d'un BDC :
'ajouter dans suivi bdc'
Private Sub AJOUT_Click()
' dimensionnement d'une variable en Long pour la futur recherche de dernière ligne
Dim Derligne As Long
' test s'il y a bien une tranche de choisie
If Tranche.Value = "" Then MsgBox ("pas de tranche sélectionnée !"): Exit Sub
' pas besoin d'activer une feuille pour écrire dedans
'Sheets("SUIVI BDC").Activate
With Sheets("SUIVI BDC")
' recherche de la première ligne vide du tableau
Derligne = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
' sur cette ligne et avec des décalages de colonnes on inscrit les données
.Cells(Derligne, 1) = TextBox1.Value
.Cells(Derligne, 1).Offset(0, 1).Value = tranches
.Cells(Derligne, 1).Offset(0, 2).Value = fournisseurs
.Cells(Derligne, 1).Offset(0, 3).Value = TextBox2
.Cells(Derligne, 1).Offset(0, 4).Value = Objet1
' on a fini de jouer avec la feuille
End With
' saisie sur la feuille "tranche" sélectionnée
With Sheets(Tranche.Value)
' ici le code permettant d'enregistrer les données du USF dans les bonne colonnes
' comme pour la partie ci dessus
End With
Unload Me
End SubComme vous pouvez le voir je n'ai seulement indiqué l'endroit où il faut écrire le code, je n'ai pas cherché à savoir dans quelles colonnes il fallait écrire telle ou telle donnée du USF.
@ bientôt
LouReeD