Discussion :

[Gautier Prosper]

Bonjour le forum
J'ai un userform que j'aimerais utiliser pour valider les valeurs dans les cellules en fonction des options choisies.
Seulement, il se trouve que lorsque je valide ces données, elles se décalent d'une colonne. J'ai besoin d'aide pour solutionner ce problème. Voici mon code.
Merci d'avance

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
Private Sub CommandButton1_Click()
 
Dim macellule As Range
 
If UserForm2.Label10.Caption <> "" Then
    If UserForm2.TextBox2.Value <> "" And IsNumeric(TextBox2) And UserForm2.TextBox2.Value <= 10 Then
 
 
        Set macellule = Application.WorksheetFunction.Index(Range("PLAGE"), Application.WorksheetFunction.Match(UserForm2.Label10.Caption, _
        Range("nom"), 0), Application.WorksheetFunction.Match(UserForm2.Label7.Caption, Range("ENTETE"), 0))
        Sheets("Feuil1").Select
        macellule.Value = UserForm2.TextBox2.Value
 
 
    Else: MsgBox "Veuillez saisir une note comprise entre et 10 "
        TextBox2.SetFocus
    End If
Else: MsgBox "Veuillez préciser le Nom "
    TextBox1.SetFocus
End If
End Sub

[Invité]

Bonjour,

Quelles sont les adresses de vos zones PLAGE et ENTETE ?

[Gautier Prosper]

Bonjour Eric. Merci pour ta réaction.
Je me suis servi de la fonction DECALER.
ENTETE:

Code formule :

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

= DECALER(feuil1!$C$1;0;0;NBVAL(feuil1!$C$1);NBVAL(feuil1!$1:$1)-2)

nom:

Code formule :

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

= DECALER(feuil1!$C$1;0;0;NBVAL(feuil1!$C:$C);1)

PLAGE:

Code formule :

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

= DECALER(feuil1!$C$1;1;0;NBVAL(feuil1!$C:$C)-1;NBVAL(feuil1!$1:$1)-2)

Je précise que le formulaire puise ses données dans la feuil2.

[Invité]

La cellule jaune en A4 contient la formule Index Equivalent, la cellule ocre en A5 contient le résultat de la procédure Test ci-dessous. Test est lancé par l'événement change dans Feuil2.
Pièce jointe 591796


Dans le module 1

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
 
Sub Test()
 
Dim MaCellule As Range
 
    With Sheets("Feuil2")
 
         Set MaCellule = .Range("A5")
         MaCellule.Value = WorksheetFunction.Index(Range("PLAGE"), WorksheetFunction.Match(.Range("A1"), Range("nom"), 0), WorksheetFunction.Match(.Range("A2"), Range("ENTETE"), 0))
         Debug.Print MaCellule.Value
         Debug.Print "Plage : " & Range("PLAGE").Address & ", ENTETE : " & Range("ENTETE").Address & ", nom : " & Range("nom").Address
         Set MaCellule = Nothing
 
    End With
 
End Sub

[Gautier Prosper]

Bonsoir Eric
Merci pour ton orientation car grâce à toi j'ai compris que le problème provenais du décallage d'une ligne que j'avais prévu dans la plage excluant ainsi l'entête.
La fonction decaler finale de "PLAGE " est donc la suivante:
PLAGE:

Code formule :

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

= DECALER(feuil1!$C$1;0;0;NBVAL(feuil1!$C:$C);NBVAL(feuil1!$1:$1)-2)

Merci et bonne soirée