Discussion :

[mdambreville]

bonjour,
j'ai un usf avec des cases à cocher(qui correspondent à des "oui"quand c'est coché, et "non" quand ça ne l'est pas)
Je voudrais que lorsque j'enregistre,ces données aillent dans un tableau excel et quand je rouvre l'usf avec le nom du client toutes les "oui" du tableau se recoche dans mon usf

je sais pas si c'est très clair

Merci en attendant

[AlainTech]

Ce genre de question (et surtout la façon dont elle est présentée) me fait fortement penser à "donnez-moi une solution toute faite".

Qu'as-tu déjà fait?

Qu'as-tu déjà à nous montrer?

[MiXinG]

Bonjour,
Comme a dit AlainTech, on ne va pas tout te faire.
Voici quelques pistes:

Je voudrais que lorsque j'enregistre,ces données aillent dans un tableau excel

Pour cela il faut que quand tu valides ton userform tu enregistres les données dans ton tableau excel.
Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (checkbox1.Value) Then
     Range("A1").Value = "oui"
Else
     Range("A1").Value = "non"
End If

et quand je rouvre l'usf avec le nom du client toutes les "oui" du tableau se recoche dans mon usf

Pour ça il faut que tu ailles rechercher la valeur de ta checkbox dans le tableau excel et que tu initialises tes checkbox dans la procédure Userform.initialize() de ton userform.

[laetitia]

bonjour le fil on peut simplifier si tu as beaucoup de CheckBoxs on peut faire une boucle ou un module de classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
 If [b2] = "oui" Then CheckBox2 = True
End Sub
Private Sub CheckBox2_Click()
[b2] = IIf(CheckBox2, "oui", "non")
End Sub

[mdambreville]

bonjour,

merci pour les infos, je vais mettre en place ces données ce soir.

Pour repondre à alaintech, je suis débutante en vba et je suis en train de faire un programme de gestion pour son boulot (pour lui sa gestion d'atelier)
Je veux juste avoir des conseils de personnes plus expertes que moi car j'ai débuté en vba il y a 2 mois. Donc j'apprends sur le tas.
Voici mon début de programme.

[mdambreville]

sur mon fichier joint, j'ai un problème quand je veux modifier un client et enregistrer. Il m'enregistre comme si c'était un nouveau client , je veux modifier et enregistrer les modifications (et que ça remplace mes anciennes données)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
Private Sub Commandvalider_Click()
Dim iLigne As Integer
Sheets("clients").Activate
Societeconverti = Application.WorksheetFunction.Proper(Me.clnomsociete.Text)
Villeconverti = Application.WorksheetFunction.Proper(Me.ComboBoxville.Text)
Contactconverti = Application.WorksheetFunction.Proper(Me.Combocontact.Text)
iLigne = LigneRechercher("Ma référence")
Range("A" & iLigne) = clnomsociete.Value
Range("B" & iLigne) = adresse.Value
Range("C" & iLigne) = adress1.Value
Range("D" & iLigne) = ComboBoxcp.Value
Range("E" & iLigne) = ComboBoxville.Value
Range("F" & iLigne) = Combotitre.Value
Range("G" & iLigne) = Combocontact.Value
Range("H" & iLigne) = TextBoxtel.Value
Range("I" & iLigne) = TextBoxport.Value
Range("J" & iLigne) = TextBoxfax.Value
Range("K" & iLigne) = TextBoxmail.Value
Range("L" & iLigne) = TextBoxsiteweb.Value
Unload Me
End Sub
Function LigneRechercher(sTexteCherche As String) As Integer
Dim c As Object
With Worksheets(1).Range("a1:a65536")
    Set c = .Find(sTexteCherche, LookIn:=xlValues)
    If Not c Is Nothing Then
        LigneRechercher = c.Row
    Else
        LigneRechercher = Range("A65536").End(xlUp).Offset(1, 0).Row
    End If
End With
End Function

C'est mon bouton enregistrer

Et dans mon formulaire "spécificités"
j'ai le même souci, sauf en plus j'ai des checkbox dont voici le code que j'ai mis dans enregistrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
 
Dim iLigne As Integer
Sheets("clients").Activate
 
iLigne = LigneRechercher("Ma référence")
If (CheckBox1.Value) Then
Range("N" & iLigne) = CheckBox1.Value = "oui"
Else
Range("N" & iLigne) = CheckBox1.Value = "non"
End If
Unload Me
End Sub
End Sub

Quand je remplis mon formulaire spécificités, dès que j'enregistre j'ai "faux" qui s'inscrit en colonne"N" mais pas avec le nom du client ou dans sa ligne
Que dois je changer au code pour que ca marche
merci de votre aide

[ucfoutu]

Bonjour,

Je n'ai pas (je ne le fais jamais) ouvert ton fichier mais me suis contenté de parcourir ton code ...

B = C = D attribue la valeur True (Vrai) ou False (Faux) à B selon que C = D ou non.

Essaye, comprends et corrige-toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Dim toto As String, titi As String
   toto = "n 'importe quoi"
   titi = toto = "oui"
   MsgBox titi
   toto = "oui"
   titi = toto = "oui"
   MsgBox titi

EDIT :
1) ouvre ton aide en ligne pour y lire ce que sont les opérateurs de comparaison et comment on les utilise ==>> tu auras la confirmation de ce que je t'ai dit
2) intéresse-toi aux expressions conditionnelles (toujours ton aide en ligne) et à leur utilisation. C'est ce dont tu as besoin et cela fait partie des tous premiers pas dans le développement, quel que soit le langage de développement.

[mdambreville]

bonjour ucfoutu,

je vais essayer de plancher là dessus
merci en attendant