case avec condition

Bonsoir

Je crois que tu devrais utiliser l'identation lorsque tu écris un prog,
c'est pratique pour pour terminer ses boucles.
Ci dessous ton code corrigé avec indentation.

Michel

"Magic-DD" <magic-dd@neuf.fr> a écrit dans le message de news:
%234jMQlEOIHA.3400@TK2MSFTNGP03.phx.gbl...

bonsoir

comment faire une condition if.... then avec un select case etcase car mon
code ne fonctionne pas dans ma feuille

le voici

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
For i = 2 To 5
If Range("c" & i) = "f" Then
Select Case Range("a1")
Case 1: Range("b" & i) = "coucou"
Case 2: Range("b" & i) = "dede"
End Select
ElseIf Range("c" & i) = "h" Then
Select Case Range("a1")
Case 1: Range("b" & i) = "voila"
Case 2: Range("b" & i) = "bien"
End Select
End If
Next i
End Sub

Bonsoir Michel et DD
Il existe un outil pour cela: Indenter97.xla il fonctionne aussi avec
XL2007
http://www.bmsltd.ie/indenter/IndentPage.asp

"Michel MORICE" <mor.mic@wanadoo.fr> a écrit dans le message de news:
47587d04$0$5114$ba4acef3@news.orange.fr...

Bonsoir

Je crois que tu devrais utiliser l'identation lorsque tu écris un prog,
c'est pratique pour pour terminer ses boucles.
Ci dessous ton code corrigé avec indentation.

Michel

"Magic-DD" <magic-dd@neuf.fr> a écrit dans le message de news:
%234jMQlEOIHA.3400@TK2MSFTNGP03.phx.gbl...

bonsoir

comment faire une condition if.... then avec un select case etcase car
mon code ne fonctionne pas dans ma feuille

le voici

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
For i = 2 To 5
If Range("c" & i) = "f" Then
Select Case Range("a1")
Case 1: Range("b" & i) = "coucou"
Case 2: Range("b" & i) = "dede"
End Select
ElseIf Range("c" & i) = "h" Then
Select Case Range("a1")
Case 1: Range("b" & i) = "voila"
Case 2: Range("b" & i) = "bien"
End Select
End If
Next i
End Sub

salut

meri pour l'indentation
cependant ce code ne fonctionne pas

incompatibilité de type 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 2 To 5
If Range("c" & i) = "f" Then
Select Case Range("a2:a5")
Case 1: Range("b" & i) = "coucou"
Case 2: Range("b" & i) = "dede"
End Select
ElseIf Range("c" & i) = "h" Then
Select Case Range("a2:a5")
Case 1: Range("b" & i) = "voila"
Case 2: Range("b" & i) = "bien"
End Select
End If
Next i
End Sub

comment estce possible

Bonsour® Magic-DD avec ferveur ;o))) vous nous disiez :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 2 To 5
If Range("c" & i) = "f" Then
Select Case Range("a" & i ) ' <===!!!!
Case 1: Range("b" & i) = "coucou"
Case 2: Range("b" & i) = "dede"
End Select
ElseIf Range("c" & i) = "h" Then
Select Case Range("a" & i ) ' <===!!!!
Case 1: Range("b" & i) = "voila"
Case 2: Range("b" & i) = "bien"
End Select
End If
Next i
End Sub




--
--
@+
;o)))

bravo!!!


c'est juste erreur d'ecriture

meci


"Modeste" <nomail@nomail.net> a écrit dans le message de
news:%235X%2360ZOIHA.5140@TK2MSFTNGP05.phx.gbl...

Bonsour® Magic-DD avec ferveur ;o))) vous nous disiez :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 2 To 5
If Range("c" & i) = "f" Then
Select Case Range("a" & i ) ' <===!!!!
Case 1: Range("b" & i) = "coucou"
Case 2: Range("b" & i) = "dede"
End Select
ElseIf Range("c" & i) = "h" Then
Select Case Range("a" & i ) ' <===!!!!
Case 1: Range("b" & i) = "voila"
Case 2: Range("b" & i) = "bien"
End Select
End If
Next i
End Sub




--
--
@+
;o)))