Ajouter et modifier dans un userform

[Tophe2]

Bonsoir le forum

---> J'ai un fichier ou j'essai d'ajouter un "candidat" en cliquant sur le bouton désiré cependant j'essai de trouver l'écriture qui permet de demander aux textbox de se vider à l'endroit voulu ainsi que les chekboxs et combobox, un peu sur le même principe que sur l'affichage des textboxs.

---> Puis je connaitre également l'écriture pour modifier un candidat ?

---> Comment peut on entrée une date pour qu'elle calcule l'âge automatiquement en vba avec l'affichage commeil est là.

Ceci est une base de départ pour un travail à venir.

Ci joint le fichier en cours de travail

Merci pour votre aide concernant les questions.

Cordialement
Christophe.

 

[Tophe2]

Re : Ajouter et modifier dans un userform

Bonsoir le forum et Bebere

Je suis dans l'adaptation du code (au début)
Pour enlever l'entête 6 tu as écrit :
--------------------------------
Private Sub UserForm_Initialize()

Dim entête As Integer, Lig As Long, Plg As Range

For entête = 1 To 9
If entête <> 6 Then
Me.Controls("label" & entête).Caption = Cells(1, entête)
End If
Next entête
--------------------------------
maintenant pour enlever en plus l'entête 7 et 12 comment dois je m'y prendre ?

Merci
Christophe.

 

[Tophe2]

Re : Ajouter et modifier dans un userform

Bonsoir le forum

------> J'essai d'avancer avec l'aide de beaucoup d'entre vous entre autre.

------------> Voilà toujours le même fichier je suis à l'étape de la commune, code postal, département et canton cela est placé sur la feuille 4 de la cellule B2 à E? car la liste peut évoluer j'ai écrit :

ComboBox3.RowSource = "Feuil4!B2:B1000"

Mais pour afficher le code postal correspondant à la commune je ne sais pas

----------->> J'aimerai savoir comment alimenter le combo pour les communes tout en ayant les codes postaux qui s'affiche dans un élément et qui se vide dans ma feuil1 à lafin de la saisie.


------> et je ne connait pas l'écriture lorsque j'ouvre l'userform et que je saisie un nom pour qu' il m'affiche le canton uniquement sur l'userform en plus du reste ci dessus mais présent cela également sur la feuil1

J'ai mis le fichier en pièce jointe c'est celui du départ qui évolue petit à petit.

Merci pour votre aide
Cordialement
Christophe.

 

[Bebere]

Re : Ajouter et modifier dans un userform

bonjour Tophe,le Forum
code complété et corrigé(sauf oubli)
dans module2 tu as du code pour effacer le contenu des contrôles de l'userform
à bientôt

 

[Tophe2]

Re : Ajouter et modifier dans un userform

Bonjour bebere et le forum

Voilà je suis toujours en train d'avancer sur le fichier et avec votre collaboration et aide sur les codes.

----> J'ai ceci pour rechercher en lien avec la textbox et la question enà la suite.

Private Sub TextBox3_Change()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Range
Dim data As New Collection
Dim I As Integer

If datum.Count > 0 Then
For I = 1 To datum.Count
datum.Remove 1
Next
End If

Recherche = TextBox3.Value
Ligne = Range("J" & "65536").End(xlUp).Row
Set Plage = Range("J1:J" & Ligne)
ListBox3.Clear
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
On Error Resume Next
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then

data.Add Item:=C.Value & " " & C.Offset(0, -8)
datum.Add C.Row
End If
On Error GoTo 0
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
For I = 1 To data.Count
ListBox3.AddItem data(I)
ListBox3.List(ListBox3.ListCount - 1, 1) = datum(I)
Next I

End Sub

---------> Mais j'aimerai savoir comment faire dans le code pour dire si le textbox est vide alors la listbox aussi.

Merci
Christophe.

 

[Tophe2]

Re : Ajouter et modifier dans un userform

Bonjour le forum

----> J'ai essayé de changer le code (ci dessus) mais je n'arrive pas à la solution c'est à dire si textbox vide (après avoir saisie un nom) alors listbox vide.

Merci pour votre aide
Cristophe.

 

[Tophe2]

Re : Ajouter et modifier dans un userform

Bonsoir le forum

----> Suite à la réalisation du fichier j'avais une question concernant les labels:

--------------> J'ai 60 labels qui renvoient à une cellule différente de la 1er ligne =====> label1 = cellule 1, label2=cellule2 etc...

--------------> J'aimerai savoir comment adapter le code ci dessous pour permettre à un textbox de reprendre la valeur avec un décallage dans la cellule, je m'explique après le label 60 je créer 4 labels que j'identifie comme je le souhaite das mon userform et le label65 reprends avec la valeur de la cellule 61 de la 1er ligne.

Ci joint le code de proposé par bebere pour m'avancer dans mon travail.

Dim Zc As Integer, I As Integer

For Zc = 1 To 60
        Select Case Zc
        Case 1 To 60
            I = I + 1
            Me.Controls("label" & Zc).Caption = Cells(1, Zc)
        End Select
    Next Zc

Merci par avance pour l'aide que vous pouvez m'apporter.
Christophe.

 

[julberto]

Re : Ajouter et modifier dans un userform

Bonjour Tophe2 & le forum

Pourquoi ne pas renommer tes labels gênants (61 à 64) pour que ton code soit plus simple, plus concis et plus clair ?
Rien ne t'empêche de redéfinir ces 4 labels avec des numéros autres (pourvu qu'il n'y ait pas de doublon).
Ces numéros ne représentent que l'ordre chronologique de leur création....rien de plus

Donc redéfinis les labels "label61" à "label64" en "label87" à "label90"
Puis redéfinis "label65" en "label61" ... etc ....
Ainsi ton code serait :

Dim Zc As Integer, I As Integer
For Zc = 1 To 86 'si 90 labels ??
      Me.Controls("label" & Zc).Caption = Cells(1, Zc)
Next Zc 
Me.Controls("label87").Caption = "ton choix 61"
Me.Controls("labe88").Caption = "ton choix 62"
Me.Controls("label89").Caption = "ton choix 63"
Me.Controls("label90").Caption = "ton choix 64"

Si l'opération te rebute, il reste à modifier ton code comme suit par exemple, pour rester dans le même esprit :

Dim Zc As Integer, I As Integer

For Zc = 1 To 90 'si 90 labels ??
   Select Case Zc
   Case 1 To 60
      I = I + 1
      Me.Controls("label" & Zc).Caption = Cells(1, Zc)
   Case 61
      Me.Controls("label" & Zc).Caption = "ton choix 61"
   Case 62
      Me.Controls("label" & Zc).Caption = "ton choix 62"
   Case 63
      Me.Controls("label" & Zc).Caption = "ton choix 63"
   Case 64
      Me.Controls("label" & Zc).Caption = "ton choix 64"
   Case Is > 64
      Me.Controls("label" & Zc).Caption = Cells(1, Zc - 4)
   End Select
Next Zc

Bon courage.