[XL-2007] Ajout de données par userform dans une feuille excel [Résolu]

[Marc31]

Bonjour,

Je fais actuellement une base de données avec une interface (userform) en vba.
Jusque là tous va bien! Quand je rentre les données concernant des personnes dans l'userfom je veux envoyer les données sur une feuille excel.
Donc j'aimerais savoir comment faire pour envoyer les données sur une ligne vierge?

voici ce que j'ai fait mais ceci permet de cibler une ligne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton2_Click()
 
    Sheets("BDD").Range("B2823").Value = TextBox1.Value 'nom
    Sheets("BDD").Range("B2823").Value = TextBox2.Value 'prenom
    Sheets("BDD").Range("B2823").Value = CheckBox1.Value 'genre homme
    Sheets("BDD").Range("B2823").Value = CheckBox2.Value 'genre femme
    Sheets("BDD").Range("B2823").Value = TextBox3.Value 'fonction
    Sheets("BDD").Range("B2823").Value = TextBox4.Value 'adresse
    Sheets("BDD").Range("B2823").Value = TextBox5.Value 'code postal
    Sheets("BDD").Range("B2823").Value = TextBox6.Value 'ville
    Sheets("BDD").Range("B2823").Value = TextBox7.Value 'telephone perso
    Sheets("BDD").Range("B2823").Value = TextBox8.Value 'email perso
    Sheets("BDD").Range("B2823").Value = TextBox9.Value 'nom structure
    Sheets("BDD").Range("B2823").Value = TextBox10.Value 'type structure
    Sheets("BDD").Range("B2823").Value = TextBox11.Value 'adresse pro
    Sheets("BDD").Range("B2823").Value = TextBox12.Value 'code postal pro
    Sheets("BDD").Range("B2823").Value = TextBox13.Value 'ville pro
    Sheets("BDD").Range("B2823").Value = TextBox14.Value 'tel pro
    Sheets("BDD").Range("B2823").Value = TextBox15.Value 'email pro
    Sheets("BDD").Range("B2823").Value = CheckBox3.Value 'envois formation oui
    Sheets("BDD").Range("B2823").Value = CheckBox4.Value 'envois formations non
    Sheets("BDD").Range("B2823").Value = CheckBox5.Value 'dsi oui
    Sheets("BDD").Range("B2823").Value = CheckBox6.Value 'dsi non
    Sheets("BDD").Range("B2823").Value = TextBox16.Value 'dispositif
    Sheets("BDD").Range("B2823").Value = TextBox17.Value 'statut
    Sheets("BDD").Range("B2823").Value = CheckBox7.Value 'participations formations oui
    Sheets("BDD").Range("B2823").Value = CheckBox8.Value 'participations formations non
    Sheets("BDD").Range("B2823").Value = CheckBox9.Value 'usagers cdr oui
    Sheets("BDD").Range("B2823").Value = CheckBox10.Value 'usagers cdr non
 
End Sub

Si quelqu'un vois comment faire, je suis preneur....Merci et bonne journée

[Cocotte278]

Peter,

Je te propose ce bout de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Nom = UserForm3.ComboBox2.Value
Type1 = UserForm3.ComboBox1.Value
Type2 = UserForm3.ComboBox3.Value
 
Worksheets(14).Select
 
'Inscrit les données dans la feuille Base de Données
v_adresse = Range("A3").End(xlDown).Offset(1, 0).Address 'trouve la dernière ligne
Range(v_adresse) = Nom
Range(v_adresse).Offset(0, 1).Value = Type1
Range(v_adresse).Offset(0, 2).Value = Type2
Range(v_adresse).Offset(0, 3).Value = DateDebut

Cdt

[Marc31]

Merci et j'ai essayé le code je n'arrive pas à le faire fonctionner!
Je rajoute des images de ma base de données et de mon formulaire pour faciliter la compréhension de mon probléme!!

[MarcelG]

Bonjour à vous deux,

Si je peux me permettre.

Pour ce genre d'action, il vaut mieux
- détecter la dernière cellule en partant de la dernière ligne de la feuille
- affecter une variable à cette cellule et informer les cellules correspondantes

Soit (à adapter)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub essai()
 
'Déclaration variable
Dim v As Range
 
With UserForm3
        Nom = .ComboBox2.Value
        Type1 = .ComboBox1.Value
        Type2 = .ComboBox3.Value
End With
 
With Worksheets(14)
        'Affectation d'une variable à la 1ère cellule vide
        Set v = .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1) 
End With
 
With v
    .Value = Nom
    .Offset(0, 1).Value = Type1
    .Offset(0, 2).Value = Type2
    .Offset(0, 3).Value = DateDebut
End With
 
'Réinitialisation de la variable
Set v = Nothing
 
End Sub

[Marc31]

Merci mais je comprends pas le code!
A quoi correspond With Worksheets(14) parce qu'il e trouve pas l'indice apparemment.....

[Cocotte278]

Bonjour tous les deux,

With Worksheets(14)

signifie que tu travailles avec ce qui se trouve dans ta feuille n°14.

Dans ton cas, cela donne :

Code :

With Worksheets("BDD")

[MarcelG]

Bonjour Peter11, Bonjour le Forum,

Comme indiqué, le code indiqué reste à adapter.
C'est en le comprenant mot par mot et en l'adaptant que les notions évoquées deviendront familières.
Ici,

Code :

Worksheets(14)

signifie la feuille de calcul indicée 14 dans ton éditeur VBE.
Une autre manière de procéder consiste à nommer la feuille
Exemple

Code :

Worksheets("nomdelafeuille")

[Marc31]

C'est bon j'ai trouvé worksheet c'est le numéro de la feuille!
Par contre quand je rentre un nom dans mon formulaire et que je valide, il me l'enregistre sur la premiere ligne de mon tableau alors que j'aimerais qu'il trouve la derniere et qu'il l'enregistre dedans....

[MarcelG]

Salut Peter

Ajoute à ce code cette nouvelle ligne (Debug.Print...) à cet endroit et retourne le résultat affiché dans ta fenêtre Exécution (visible par le menu VBE ou par combinaison des touches CTRL + G)

Code :

1
2
3
4
5
6
With Worksheets(14)
        'Affectation d'une variable à la 1ère cellule vide
        Set v = .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1) 
End With
 
Debug.Print v.Address

[Marc31]

Je m'escuse ça marche mais par contre quand je rentre le nom d'une personne il me là place bien à la fin du tableau par contre si je rentre une seconde personne apres il m'efface le premier rentré pour mettre le second alors que le but est de mettre les personnes les unes apres les autres!
Encore merci aux personnes qui prennet du temps pour m'aider!!

[MarcelG]

Salut Peter11,

Code :

1
2
3
4
With Worksheets(14)
        'Affectation d'une variable à la 1ère cellule vide
        Set v = .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1) 
End With

Ici, on considère la 1ère ligne vide en colonne A (argument 1 de l'Objet Cells).

En quelle colonne, le nom figure-t-il ? Si celle-ci est différente de A (la première), alors il te faut adapter le code et toutes les occurences de la méthode

Code :

Offset

.

Vérifie également le retour de la méthode

Code :

Debug.Print

évoquée ci-dessus en observant si la cellule v se décale bien d'une ligne à la fois.

[Marc31]

alors en colonne A j'ai un numéro d'identifiant et en colonne B j'ai le nom de la personne!
en ce qui concerne le debug print il m'affiche la derniere valeur du tableau....

[redstoff]

Bonjour,

je viens de voir ton probleme.
Je pense que le plus simple et que tu fasses une base de données directement avec un Access ou similaire tu gagneras ton temps.

et par la suite dit toi que si tu as une modification a faire sur ta BD, genre un truc que tu n'as pas encore pensé, bah pour le mettre en place tu vas t'embeter à tout refaire.

a voir ^^
Je pense que si tu es partie sur excel c'est que tu ne connais pas encore Access.

[Marc31]

En fait c'est au niveau du boulot on m'impose excel car tout le monde c'est l'utiliser alors que access c'est moins évident....

[MarcelG]

J'avais inversé ligne et colonne dans la méthode suivante.

Corrige :

Code :

1
2
3
4
With Worksheets(14)
        'Affectation d'une variable à la 1ère cellule vide
        Set v = .Cells(.Rows.Count, 1).End(xlUp).Offset(1,0) 
End With

Et reviens si nécessaire.

[Marc31]

Bravo et Merci beaucoups ça marche!!!!
Bonne journée et surement à bientôt

[MarcelG]

Extrait des Règles du Forum

Quand votre problème est résolu, pensez à cliquer sur le bouton [Résolu] en bas de la discussion !

à voir sur le lien suivant

Les Règles du Forum