Recuperer les données d'un formulaire dans un tableau

Résolu/Fermé

howiz Messages postés 20 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 août 2015 - Modifié par howiz le 7/04/2015 à 17:12
howiz Messages postés 20 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 août 2015 - 8 avril 2015 à 11:27

Bonjour;

Je souhaite, à partir d'un formulaire, récupérer les donnees de l'utilisateur et les inscrire à la suite d'un tableau (pour au final obtenir une base de donnée) qui se situe dans une autre feuille (je compte par la suite le mettre meme dans un autre fichier si c'est possible).
Lors de l'inscription des données (nom, adresse, tel), je voudrais par la même occasion trier par ordre alphabétique le tableau selon la première colonne.

Je suis débutant en VBA.

Merci pour votre aide

A voir également:

Recuperer les données d'un formulaire dans un tableau
Tableau croisé dynamique - Guide
Comment recuperer un message supprimé sur whatsapp - Guide
Comment récupérer un compte facebook piraté - Guide
Comment faire un tableau - Guide
Tableau ascii - Guide

1 réponse

Réponse 1 / 1

ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
7 avril 2015 à 21:57

Salut,

As-tu un début de classeur à partager pour que je puisse avoir quelques bases avant de voir ce qui est faisable ?

howiz Messages postés 20 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 août 2015
8 avril 2015 à 11:27

Bonjour ozone. J'ai reussi à trouver une réponse à mon problème :

Private Sub valider_Click()

'--------------------- Lieu d'envoi ------------------------

'On va chercher la premiere ligne vide pour l'ajouter à la suite de la base de donnée
NLign = Sheets("Entreprises").Range("A1").End(xlDown).Row + 1

If IsError(Sheets("Entreprises").Range("A1").End(xlDown).Row) Then
NLign = 2
Else
NLign = Sheets("Entreprises").Range("A1").End(xlDown).Row + 1
End If

'---------- VERIFICATION DES DONNEES + TRANSFERT -----------

'On oblige l'utilisateur à renseigner ces donnees (nom, adresse, numero de tel)
If Len(Nom) = 0 Then
MsgBox ("Vous devez entrer le nom de l'entreprise")
Cancel = True
Exit Sub
End If
If Len(Tel) = 0 Then
MsgBox ("Vous devez entrer le numéro de l'entreprise")
Cancel = True
Exit Sub
End If
If Len(Adresse) = 0 Then
MsgBox ("Vous devez entrer l'adresse de l'entreprise")
Cancel = True
Exit Sub
End If

'verifie que le numero est bien un numero puis lance la copie
If IsNumeric(Tel.Value) And (IsNumeric(FaxTxt.Value) Or IsEmpty(FaxTxt.Value)) Then 'SI valeur numérique ...

'Transfert des donnees dans la base
Sheets("Entreprises").Cells(NLign, 1) = Nom
Sheets("Entreprises").Cells(NLign, 2) = Adresse
Sheets("Entreprises").Cells(NLign, 4) = FaxTxt
Sheets("Entreprises").Cells(NLign, 3) = Tel

'mise en forme des cellule copiées
Dim i As Integer
i = 1

While i < 5
Cells(NLign, i).HorizontalAlignment = xlCenter
Cells(NLign, i).VerticalAlignment = xlCenter
Cells(NLign, i).Borders.Value = 1
Cells(NLign, i).WrapText = True
i = i + 1
Wend

'Trier la base de donnee
Macro3

'fermeture du formulaire
Unload Me

'affiche un message de confirmation
MsgBox "L'entreprise a bien été ajouté à la base de donnée Entreprises."

Else 'SINON ...
MsgBox "Valeur incorrecte"
End If

End Sub

Merci pour votre réponse rapide.

Discussions similaires

Je n'arrive plus à récuperer mon compte Outlook

Tableau croisé dynamique avec plusieurs en-têtes identiques

Bibliothèque