Discussion :

[benadry]

Bonjour le forum,

Travaillant sur un UserForm, je me demande s'il est possible d'insérer une condition.


Voici une partie de mon code :

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
Private Sub Identité_Change()
With Sheets("Base Agents")
NumLigne = Me.Identité.ListIndex + 5
Me.Coef.Value = .Cells(NumLigne, 19).Value
Me.Serv.Value = .Cells(NumLigne, 51).Value
Me.CP_Ville.Value = Right("00000" & .Cells(NumLigne, 12).Value, 5) & " " & .Cells(NumLigne, 13).Value
Me.Cptc.Value = .Cells(NumLigne, 21).Value
Me.Date_entrée.Value = .Cells(NumLigne, 27).Value
Me.Emploi.Value = .Cells(NumLigne, 14).Value
Me.Exp.Value = .Cells(NumLigne, 20).Value
Me.Horaire.Value = .Cells(NumLigne, 22).Value
Me.N°_agent.Value = .Cells(NumLigne, 1).Value
Me.Domiciliation.Value = .Cells(NumLigne, 52).Value
Me.NIR.Value = .Cells(NumLigne, 2).Value
Me.Adresse.Value = .Cells(NumLigne, 6).Value & " " & Cells(NumLigne, 7).Value
Me.Total.Value = .Cells(NumLigne, 19).Value + .Cells(NumLigne, 20).Value + .Cells(NumLigne, 21).Value
Me.Niveau.Value = .Cells(NumLigne, 32).Value
Me.Catégorie.Value = XXXXX

En fait, selon le niveau du salarié dans la grille des emplois, il sera Employé ou Cadre ou Agent de direction. Je voudrais pouvoir dire que si la valeur de la colonne 32 est 01 ou 02 ou 03, alors la valeur de la cellule "Catégorie" est "Employé". Si c'est 04, 05, 06, c'est "Cadre". Si c'est 10, 11, 12, c'est "Agent de direction".

Je suppose que c'est possible. Pour l'instant, j'ai mélangé des IF des OR ... et j'ai toujours des erreurs.

Si quelqu'un passe par là et a la répone, pourrait-il me la donner ? Ca me permettrait de l'adapter à d'autres cas similaires que je risque d'avoir.

Merci d'avance.

Bien cordialement.

[Marc-L]

Bonjour.

j'ai mélangé des IF des OR ...

Comme je ne vois aucun If dans le code (…), consulter l'aide de Select Case par exemple …

[benadry]

Bonjour Marc-L,

En fait, comme ça ne marchait, pas j'ai tout enlevé !

Ca ressemblait à quelque chose du genre :

Code :

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

1
2
Me.Catégorie.Value = IF (.Cells(NumLigne, 32).Value) = "01" OR (.Cells(NumLigne, 32).Value) = "02" OR (.Cells(NumLigne, 32).Value) = "03" Then
"Employé"

Je ne suis pas allé plus loin, car c'était déjà faux.

Merci d'avance pour toute aide.

Cordialement.

[Marc-L]

Tester avec .Text à la place de .Value sinon c'est plus simple via Select Case …


__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

[keygen08]

Bonjour
De la bonne utilisation du IF
si (.Cells(NumLigne, 32).Value) = 01 ou 02 ou 03 alors...

Code :

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

If .Cells(NumLigne, 32).Value = "01" Or .Cells(NumLigne, 32).Value = "02" Or .Cells(NumLigne, 32).Value = "03" Then Me.Catégorie.Value = "Employé"

ou bien ceci
si .Cells(NumLigne, 32).Value = "01" alors...

Code :

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

1
2
3
If (.Cells(NumLigne, 32).Value = "01"  Then Me.Catégorie.Value = "Employé"
If .Cells(NumLigne, 32).Value = "02"  Then Me.Catégorie.Value = "Cadre"
If .Cells(NumLigne, 32).Value = "03"  Then Me.Catégorie.Value = "ambassadeur"

la valeur de la colonne AF est t-elle bien egale a "01" ou est ce simplement 1 auquel cas la condition s"ecrit
If .Cells(NumLigne, 32) = 1 Then Me.Catégorie.Value = "Employé"

il n'y a pas besoin de end if car le then est sur la meme ligne.

[Marc-L]

Si c'est une valeur numérique, mieux vaut préciser quand même .Value (parfois VBA utilise .Text selon le contexte …)
et dans ce cas il n'y a besoin que d'un seul test par catégorie tel que présenté : < 4, < 6 ou > 9 …

Mais Select Case est plus adapté, surtout s'il y a d'autres catégories …


__________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !

[benadry]

Bonjour Keygen08,

Ca marche très bien.

Merci beaucoup.

Cordialement.