Modif code userform

Résolu/Fermé

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 17 juin 2013 à 13:37
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 21 juin 2013 à 18:14

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

A voir également:

Modif code userform
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

5 réponses

Réponse 1 / 5

WeaponEDGE
17 juin 2013 à 13:46

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 ?

Réponse 2 / 5

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
17 juin 2013 à 18:50

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

Réponse 3 / 5

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
18 juin 2013 à 10:01

Bonjour

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

Cordialement

Réponse 4 / 5

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 juin 2013 à 15:13

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

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
18 juin 2013 à 17:55

bonsoir
merci pour la réponse
J'ai essayé mais le résultât est toujours pareil
Cordialement

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 juin 2013 à 08:40

Salut,
Dans le code donné ci-dessus, as tu bien changé cette ligne :

'A ADAPTER : le nom de la feuille de restitution au lieu de Feuil1
Set FO1 = Sheets("Feuil1")

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
21 juin 2013 à 11:03

Bonjour
je te joins un exemplaire
fais un essai avec l'userform tu verras qu'il y a un problème
que je n'arrive pas àrésoudre.
Cordialement

https://www.cjoint.com/?CFvlaVxUxor

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 juin 2013 à 16:27

Tu n'as rien?
Sur?
Même pas en ligne 1000???

1- va en ligne 1000 et efface les données qui se sont stockées là "par hasard",
2- dans ta macro remplace :

Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1

par :

Nlig = .Range("C" & Rows.Count).End(xlUp).Row + 1

En fait, ta colonne A est complète jusqu'en ligne 1000, donc ta macro écrit par en dessous.......

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
21 juin 2013 à 18:14

re bonjour

Merci pour ta réponse
C'est de ma faute quand j'ai rajouté la colonne A ,j'ai glissé la formule jusqu'aux environs de la ligne 1000.sans changer Range A par Range C
Cordialement

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

WeaponEDGE
20 juin 2013 à 10:32

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")

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Erreur 80072EFE windows update

Discussions similaires

Newsletters