case avec condition

Le
Magic-DD
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"

ElseIf Range("c" & i) = "h" Then

Select Case Range("a1")
Case 1
Range("b" & i) = "voila"
Case 2
Range("b" & i) = "bien"

End If

End Select

End Sub
merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel MORICE
Le #5084781
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" %
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

Fredo P.
Le #5385781
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" 47587d04$0$5114$
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" %
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






Magic-DD
Le #5385201
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
Modeste
Le #5385181
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)))
Magic-DD
Le #5385171
bravo!!!


c'est juste erreur d'ecriture

meci


"Modeste" news:%235X%
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)))




Publicité
Poster une réponse
Anonyme