Validation des données USERFORM

[azalf]

Bonjour à Tous,

Je me permets de solliciter votre expertise sur VBA. Je me suis lancé mais là, je bloque. J'ai vraiment besoin d'aide.
Voilà mon Problème:

J'ai crée un userform pour remplir un classeur excel, mais impossible de pouvoir affecter les données après saisi. je souhaite mettre une condition à toutes les cases pour obliger à remplir de la manière la plus complète possible. Pour le Frame "réso", je souhaite que l'utilisateur ait la possibilité de choisir soit F,M ou E mais pas les trois en même temps et ce pour le coût que pour la technicité. Concernant les cases à cocher, je souhaite que la valeur "oui" soit affectée à la cellule correspondante.

Je compte vraiment sur vous

PJ: fichier

Merci d'avance

 

[laetitia90]

Re : Validation des données USERFORM

bonjour azalf il faut mettre des optionbutton dans des frames a la place des CheckBox un seule choix possible dans RESO

 

[mapomme]

Re : Validation des données USERFORM

Bonjour azalf, laetitia90 🙂,

Uniquement pour les choix de coût et de technicité. J'ai ôté tout le code qui ne concerne pas ces choix. On utilise un module de classe nommé class_MesChekBox.

Il y a néanmoins une astuce: les chekbox ont été toutes renommées de la manière suivante:

• De 100 à 129 (checkbox100 à chekbox129)
• Les numéros des trois chekbox F,M,E "d'un même pseudo groupe" ont des numéros consécutifs (ex: checkbox100, checkbox101, checkbox102)
• Le numéro des checkbox de la colonne F est un (multiple de 3) +1

Les codes utiles (finalement assez concis) se trouvent dans le module du userform COTATION_PN:

Option Explicit

Dim TableMesCheckbox() As New class_MesChekBox

Private Sub UserForm_Initialize()
Dim ctrl As Control, i As Long
  For i = 100 To 129
    Set ctrl = Me.Controls("CheckBox" & i)
    ReDim Preserve TableMesCheckbox(1 To i)
    Set TableMesCheckbox(i).CheckBoxEvents = ctrl
  Next i
End Sub

Ainsi que dans le module de class_MesChekBox:

Option Explicit

Public WithEvents CheckBoxEvents As msforms.CheckBox

Private Sub CheckBoxEvents_click()
Dim i As Long, j As Long, i0 As Long

If CheckBoxEvents.Value Then
  i0 = Right(CheckBoxEvents.Name, 3)
  Select Case i0 Mod 3
    Case 0
      i = i0 - 2: j = i0 - 1
    Case 1
      i = i0 + 1: j = i0 + 2
    Case 2
      i = i0 - 1: j = i0 + 1
  End Select
  COTATION_PN.Controls("CheckBox" & i).Value = False
  COTATION_PN.Controls("CheckBox" & j).Value = False
End If
End Sub

 

[azalf]

Re : Validation des données USERFORM

Bonjour, Mapomme, Laetitia90,

Merci pour votre contribution,
Laetitia90, j'avais déjà essayé la solution de "optionbutton" mais j'avais une seule possibilité par colonne. La solution de mapomme marche sans soucis.

Merci à vous. Cependant pourrions nous passer à l'étape sup s'il vous plait. L'affectation des données aux cellules correspondes. Désolé de vous embêter, je suis novice dans VBA.

Merci d'avance