user form et base de donnee

rainbow69006 · 2 Janvier 2008

Bonjour

J'ai un user form avec 3 text box : "tbA" "tbB" "tbC"
J'ai 2 feuilles de donnes qui sont identiques : Feuille1 et feuille2
Dans ces feuilles j'ai des donnes dans les colonnes A, B et C

par exemple quand je rentre dans ma text box 'tbA' le mot avions,dans ma text box 'tbb' le mot voiture et dans ma textbox 'tbc' le mot camion et quand je valide, je souhaiterais que ces 3 mots apparaissent sur mes 2 feuilles, sur la derniere ligne non utiliser, avec avions dans la colonne A, voiture dans la colonne B et Camion dans la colonne C.

Merci de votre aide

bqtr · 4 Janvier 2008

Re : user form et base de donnee

Re bonjour,
Bonjour Dull,

Tu peux donner plus de précisions.
Tu ne veux pas de doublon dans la colonne C de tes deux feuilles (feuilles où sont reportées les données du Userform ?)
Quel type de donnée tu places dans ton TextBox ?

Je pense que le mieux serait de tester le contenu des colonnes avant le transfert dans les feuilles. Pas besoin de rajouter une procédure événementielle sur les feuilles.

Bonne journée

bqtr · 4 Janvier 2008

Re : user form et base de donnee

Re,

Essaye avec ce code:

Code:

Private Sub CommandButton1_Click()

If Application.WorksheetFunction.CountIf(Sheets("Sheet2").Range("C6:C" & Sheets("Sheet2").Range("C65536").End(xlUp).Row), TextBox1.Value) > 0 Then
 MsgBox "Doublon détecté: " & " " & TextBox1.Value & " " & vbCrLf & "Modifier cette valeur.", vbInformation, "Doublon:"
 TextBox1.SetFocus
 Exit Sub
End If

 For Each Ws In Sheets(Array("Sheet2", "Sheet3"))
   With Ws
     .Range("A65536").End(xlUp).Offset(1, 0) = ComboBox1.Value
     .Range("B65536").End(xlUp).Offset(1, 0) = ComboBox2.Value
     .Range("C65536").End(xlUp).Offset(1, 0) = TextBox1.Value
   End With
 Next
 
 ComboBox1 = ""
 ComboBox2 = ""
 TextBox1.Value = ""
 
End Sub

Le test s'effectue avant le transfert des données dans les deux feuilles.

A+

rainbow69006 · 4 Janvier 2008

Re : user form et base de donnee

Super c'est exactement sa.

C'est possible aussi d'avoir un message d'erreur si on ne remplie pas les 2 combobox et la text box?

merci

bqtr · 4 Janvier 2008

Re : user form et base de donnee

Re,

Modifie le début du code comme ceci:

Code:

Private Sub CommandButton1_Click()

If ComboBox1 = "" Or ComboBox2 = "" Or TextBox1 = "" Then
  MsgBox "Tous les champs doivent être renseignés", vbInformation, "Erreur:"
  Exit Sub
End If

.../....

Bonne fin de soirée

rainbow69006 · 4 Janvier 2008

Re : user form et base de donnee

Un grand merci bqtr.
C'est exactement ce que je voullais faire. la partie1 (la plus facile) de mon logiciel et enfin fini et hop on passe a la suite

Encore merci

user form et base de donnee

rainbow69006

XLDnaute Occasionnel

bqtr

XLDnaute Accro

bqtr

XLDnaute Accro

rainbow69006

XLDnaute Occasionnel

bqtr

XLDnaute Accro

rainbow69006

XLDnaute Occasionnel

Discussions similaires

user form et base de donnee

rainbow69006

XLDnaute Occasionnel

bqtr

XLDnaute Accro

bqtr

XLDnaute Accro

rainbow69006

XLDnaute Occasionnel

bqtr

XLDnaute Accro

rainbow69006

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency