Données Userform dans un tableau

Bonjour je fais encore appel à vous, je me suis engagé sur une voie sans issue et j'ai vraiment besoin d'aide.

J'ai un Userform avec des donnés à renseigner

Dés que tout est renseigné et que j'appuie sur "Enregistre"

Je voudrais que les données viennent s'inscrire dans les premières cellules vides (B: G)du tableau.

Et si en plus je pouvais mettre la datte du jour dans "Date entrée"

Merci pour votre aide

Bonjour,

Voici un exemple pour commencer

A+

Frangy Merci

Un petit pas pur l'humanité un pas de géant pour moi.

Je ne peux plus m’arrêter en si bon chemin.

Voici mon problème.

Il faudrait que toutes les cellules de ma UserForm soient remplies (sauf commentaires) avant pour permettre la "validation STX".

Si non Je ferait un Userform "pour demander de remplir"

Si oui la validation fermera la fenêtre

De pour compliquer un peu il faudrait que

la date Prév. Fin soit supérieur à la date de début.

Ci-joint mon fichier

Bonjour,

Tu peux verrouiller le bouton de commande tant que les conditions pour permettre la validation ne sont pas remplies.

Me.Validation.Enabled = False
Me.Validation.Locked = True 

Ensuite, tu fais les tests

Exemple :

Dim Test As Boolean
Test = CmBoxSociete.value <> ""
Test = Test And ComBoxSite.value <> ""
Test = Test And ComBoxTrade.value <> ""
Test = Test And Tescrib.value <> ""
Test = Test And date Prév. Fin >  date de début.
Etc.

Enfin, tu effectues le traitement en fonction du résultat de ton test

If Test Then
   Me.Validation.Enabled = True  
   Me.Validation.Locked = False
   <Traitement si Test=True >
Else
   <Message pour demander de remplir correctement>
End if

A+

Merci pour l'aide,

J'ai fais une petite variante, je ne savais pas ou faire démarrer le test

Encore besoin d'aide.

Sur mon UserForm "Demarrage Tx"

Je récupère la référence dans la colonne "X" (Ref.fourniseur)

Il faudrait que cette référence me serve de repère pour saisir les cellules définies dans UserForm .

Je ne sais pas comme donner la plage ou remplir les cellules.

En fait c'est une rechercheV

(Si dans "X" la valeur = "FerfF.Value" alors

Copier la valeurs de "AT" dans la colonne "AD" même ligne

A+

Bonjour,

La propriété ListIndex de la ComboBox permet de connaitre l'élément sélectionné.

La première ligne de la liste est zéro, la valeur de la deuxième liste est 1, et ainsi de suite.

Tu peux donc établir une correspondance entre l’index de la ligne sélectionnée dans ta liste et la ligne dans la feuille "Tableau de Bord".

Ligne = Me.RefF1.ListIndex + 5

Et pour copier la valeur de "AT" dans la colonne "AD" il te suffira d’écrire

Sheets("Tableau de Bord").Range("AD" & Ligne).Value = Me.AT.Value

A+

Super ça tourne

Merci

A bientôt (il me reste du chemin à faire) !!!