Modif code userform Résolu/Fermé

Question

Bonjour, 
Dans mon fichier j'ai ajouté une colonne en A.
Ce qui fait que mes colonnes  sont décalées de 1.
Depuis cette modif mon user form ne fonctionne plus.
Ci-dessous dans la rubrique "on remplit les données du tableau"
j'ai fait la modif  A devient B       B devient C ainsi de suite....
Que faut-il modifier pour que mon userform refonctionne normalement
Cordialement

Private Sub UserForm_Activate()
' Combobox
   For L = 1 To F02.Range("A" & Rows.Count).End(xlUp).Row
      Cmb_Nom.AddItem F02.Range("A" & L)
   Next

   For L = 6 To F02.Range("N" & Rows.Count).End(xlUp).Row
      Cmb_Paiement.AddItem F02.Range("N" & L)
   Next
   TxtDate.Locked = True
End Sub

Private Sub CmdDate_Click()
   U_Calandar.Show 1
End Sub

Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
   If Cmb_Nom.Text = "" Then
      MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
         Cmb_Nom.SetFocus
      Exit Sub
   End If
Nlig = F01.Range("A" & Rows.Count).End(xlUp).Row + 1
'    on remplit les données dans le tableau
   F01.Range("B" & Nlig).Value = DateValue(TxtDate.Text)
   F01.Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
   F01.Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
   F01.Range("E" & Nlig).Value = TxtEntrée.Text
   F01.Range("F" & Nlig).Value = TxtSortie.Text
   F01.Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)
' on efface le formulaire et on replace le curseur sur la case ( Nom )
   TxtDate.Text = ""
   Cmb_Nom.Text = ""
   Cmb_Paiement.Text = ""
   TxtEntrée.Text = ""
   TxtSortie.Text = ""
   TxtCommentaire.Text = ""
   TxtDate.SetFocus

Configuration: Windows 7 / Firefox 21.0

WeaponEDGE · Answer

Bonjour,

Qu'est ce que vous entendez par ne fonctionne plus ?

Est ce qu'il démarre mais les combo box ne se remplisse pas ?

Est ce qu'il fait un débugage et ce cas sur quelle ligne bug t'il ?

Affiches t'il un autre message d'erreur ?

jc80 · Answer

bonjour
merci pour votre réponse
Les combos box se remplissent bien le problème survient au moment ou je valide.
toutes les combos s'effacent comme prévu mais rien ne s'inscrit dans les cellules
concernées.
Il n'a pas de messages d'erreur ni de bugs
Cordialement

jc80 · Answer

Bonjour

Il n'y a personne qui peut m'aider à solutionner mon problème?

Cordialement

pijaku · Answer

Bonjour,

Peut être ne connait-il pas FO1...
D'ailleurs, qu'est ce que FO1? Une feuille? Si oui, procédez comme ceci, en adaptant le nom de votre feuille, bien sur :

Private Sub CmdAjouter_Click()
Dim FO1 As Worksheet

'on vérifie que les champs sont bien remplis
If Cmb_Nom.Text = "" Then
    MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
    Cmb_Nom.SetFocus
    Exit Sub
End If 

'A ADAPTER : le nom de la feuille de restitution au lieu de Feuil1
Set FO1 = Sheets("Feuil1")

With FO1
    Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    ' on remplit les données dans le tableau
    .Range("B" & Nlig).Value = DateValue(TxtDate.Text)
    .Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
    .Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
    .Range("E" & Nlig).Value = TxtEntrée.Text
    .Range("F" & Nlig).Value = TxtSortie.Text
    .Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)
End With
' on efface le formulaire et on replace le curseur sur la case ( Nom )
TxtDate.Text = ""
Cmb_Nom.Text = ""
Cmb_Paiement.Text = ""
TxtEntrée.Text = ""
TxtSortie.Text = ""
TxtCommentaire.Text = ""
TxtDate.SetFocus
End Sub

WeaponEDGE · Answer

Bonjour,

A quoi corresponde F01 et F02, ce sont le nom de tes feuilles 1 et  2 ?

Si oui

Remplace FO1 par sheets("FO1") et FO2 par sheets("FO2")

Modif code userform

5 réponses

Discussions similaires