Débutant VB cherche solution

Question

J'ai créé cet userform me permettant d'alimenter une BD XL toutefois je n'arrive pas :
1 a dégriser les cases à coché je les voudrai blanches
2 a faire une saisie multiple sans être obligé de resaisir touts les champs de l'userform. je veus saisir plusieur nom en 2 sans retoucher aux cases déja remplies mais quand je clic OK seul la case Nom est alimenté dans ma BD excel.

quelqun peut il m'aider....

hamster man · Answer

je pe suremen taider mais faudrait que tu me fil ton code car moi recement g fai un report de donné de ma form ver fichier csv (en gro excel) g eu d souci ke g regler alors peu etre ke c ca pour toi ossi...

envoi le et je verrai ton pb si je pe!

mortalino · Answer

Salut,

883437  fracamelky : soit plus précis, pour ton 1, précise à quel moment tu veux qu'ils se dégrisent !(essaie NomCheck.Value  vbUnchecked ou NomCheck.Value  False)
Pour ton 2, montre nous ta requête sql, et indique nous les noms des champs, & table

hamster man : Evite le langage sms s'il te plaît, merci.

@++ 

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

fracamelky · Answer

Déja merci de m'avoir répondu c'etait la première fois que je me connectais sur un forum. je t'adresse donc mon modeste code car je suis novice en la matière (1 mois d'utilisation seulement).

la question est dans le code:

Sur ma feuille xl base donnée


Private Sub quitter_eng_Click()
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
End Sub
______________________________________________________
Private Sub SAISIE_Click()
'Ouvrire le formulaire
Worksheets("Acceuil").Rows(6).Select
With UserForm1
    '.date_jour.Text = Now (a réactiver en 2007 + userform)
    .NOM.Texte = ""
    .SERVICE.Text = ""
    .FORMATEUR1.Texte = ""
    .FORMATEUR2.Texte = ""
    .OBSERVATION.Texte = ""
    .EN_SERVICE.Value = False
    .FEU_REEL.Value = False
    .ESI.Value = False
    .ADS.Value = False
    
End With
UserForm1.Show
End Sub
_____________________________________________________





sur mon UserForm1




Private Sub ANNULER_Click()
UserForm1.Hide
Worksheets("Acceuil").Rows(6).Select
Selection.Delete
End Sub


______________________________________________________
Private Sub OK_Click()
'FORMULAIRE RESTE APPARENT


UserForm1.Hide
Worksheets("Acceuil").Rows(6).Select
Selection.Insert


'copie formules


Range("C5").Select
    Selection.Copy
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
'VALIDER CASE A COCHE
If Range("E7") = True Then
Range("E7") = "X"
Else
Range("E7") = ""
End If
If Range("F7") = True Then
Range("F7") = "X"
Else
Range("F7") = ""
End If
If Range("G7") = True Then
Range("G7") = "X"
Else
Range("G7") = ""
End If
If Range("H7") = True Then
Range("H7") = "X"
Else
Range("H7") = ""
End If



******************c'est ici que je veux recharger mon UserForm1 avec les champs préremplis
hors mis le champs NOM*************


'Ouvrire le formulaire
Worksheets("Acceuil").Rows(6).Select
'Selection.Insert
With UserForm1
    .date_jour.????????????????
    .NOM.????????????????
    .SERVICE.??????????????
    .FORMATEUR1.???????????????
    .FORMATEUR2.???????????????
    .OBSERVATION.??????????????
    .EN_SERVICE.Value = False
    .FEU_REEL.Value = False
    .ESI.Value = False
    .ADS.Value = False
    
End With
UserForm1.Show


End Sub
______________________________
Il y a certainement des choses pas trés fine mais ça a le mérite de marcher.
@+ FG

fracamelky · Answer

Merci également à hamsterman je pense que tu liras la réponse que j'ai faite à mortalino.Pour la récupération du code.

@+FG

fracamelky · Answer

Mortalino et hamstermanje m'aperçois en relisant mon texte que je n'ai pas précisé que le UserForm doit être préremplis avec les champs précédant. le but de la manoeuvre étant d'évité une saisi des éléments similaires d'un nom à l'autre.

Fracamelky

Débutant VB cherche solution

5 réponses

Votre réponse

Discussions similaires