Discussion :

[eliot.raymond]

Bonsoir a toutes et tous, forum bonsoir,


Voila je suis a la recherche SVP de quelques exemples de programmation en vba excel 2007 sur les if then else imbriquée

je n'ai rien trouver d'exploitable ou de compréhensible pour mon faible niveau

Merci a vous et de votre temps, bonne soirée bonnes vacances aux juilletistes

Raymond

[laetitia]

salut raymond le forum regarde dans les archives du forum pas mal d'exemples
if else then tu as aussi ElseIf plusieurs conditions. aussi regarde du côte de select case eventuellement IIf

autrement dit nous ce que tu veus faire!!! cela sera plus simple.

[eliot.raymond]

Bonsoir Laetitia, forum

Merci pour la réponse j'ai regarder la ou tu me conseilles pour un test ca va mais apres ca se complique.

je voulais rajouter des messages au code que tu m'a fait hier, j'ai chercher d'abord comment faire et j'ai modifier mais ca ne va pas comme je veux.

j'apprends aussi par la meme occasion

merci a toi tres bonne soirée

voici un bout de code qui marche pas du feu de zeus
les messages restent afficher ou s'efface trop vite

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 Worksheet_SelectionChange(ByVal Target As Range)
With Target
Dim Lig: Lig = .Row
 
If .Column = 5 And Cells(Lig, 1) = "" And Cells(Lig, 2) = "" And Cells(Lig, 3) = "" And _
    Cells(Lig, 4) = "" Then [F28] = "Autorisé" Else [F28] = "interdit": [F28] = ""
 
 
If Not Application.Intersect(Target, [H2:H27]) Is Nothing Then
If .Offset(0, -1) <> "" Then [H28] = "Interdit": Sleep 1000: .Offset(0, -1).Activate _
    Else [H28] = "Autorisé": [H28] = ""
End If
 
End With

Raymond

[Krovax]

Bonjour,
Ton code me fait penser a ceux de laetitia qui sont toujours très dense. IDéale quand ton maitrise bien. Pas évident quand on débute. Essaye de l'ecrir sur plusieurs ligne, ca te permettra également d'utilisé le mode pas a pas plus facilement

Pour la première boucle

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig as long 'c'est bien de préciser le type ca évite de n'avoir que des variant
 
With Target
 
 Lig = .Row
 
If .Column = 5 And Cells(Lig, 1) = "" And Cells(Lig, 2) = "" And Cells(Lig, 3) = "" And  Cells(Lig, 4) = "" Then 
   [F28] = "Autorisé" 
Else 
   [F28] = "interdit"
 
[F28] = "" 'la tu efface directement ce que tu viend d'ecrir c'est toi qui voit
'mais a mon avis ton souci viens de la ;)
end if

Tu as l'équivalent dans la deuxième boucle

[eliot.raymond]

Bonjour Krovax bonjour forum

Merci beaucoup pour les conseils, j'ai essayer en faisant comme ci dessous, ca marche
SAUF que "Interdit" ne s'efface pas lorsque je ne suis plus dans les conditions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long
With Target
Lig = .Row
If .Column = 5 And Cells(Lig, 1) = "" And Cells(Lig, 2) = "" And Cells(Lig, 3) = "" And _
                  Cells(Lig, 4) = "" Then
    [F28] = "Retrait autorisé"
Else
    [F28] = "Interdit"
End If
 
End With
End Sub

Bonne après midi a toi et merci

Raymond

[Krovax]

Oui il ne va pas s'effacer tu dit a ton programme d'écrire quelque chose dans une cellule tu ne lui dit pas de l'effacer par la suite.
Mais meme si a la fin de ta boucle tu met
[F28]=""
pour effacer.
Le code va se dérouler si rapidement que tu n'auras absolument pas le temps de le lire.
Je pense que tu devrais essayer de voir pour un évènement qui va effacer la cellule. (un bouton reset, le changement de sélection/clique sur une cellule, la modification de sélection,...)

Tu pourrais mettre une temporisation pour que cela s'affiche X secondes mais c'est pas évident a mettre en place si tu veux que l'utilisateur puisse quand même avoir accès au fichier (mais c'est faisable).