Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Code vba plus court

Dernière réponse le 28 jun 2009 à 23:30:50 PATRICK5555, le 28 jun 2009 à 15:12:32

Signaler ce message aux modérateurs

Bonjour,
VOICI UN CODE POUR UN DEBUTANT COMME MOI
PEUT T ON FAIRE PLUS COURT
CODE VALABLE DE LA 6° FEUILLE A LA DERNIERE FEUILLE
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("c2").Value = 1 Then
jour1
End If
If Range("c2").Value = 2 Then
JOUR2
End If
If Range("c2").Value = 3 Then
JOUR3
End If
If Range("c2").Value = 4 Then
JOUR4
End If
If Range("c2").Value = 5 Then
JOUR5
End If
If Range("c2").Value = 6 Then
JOUR6
End If
If Range("c2").Value = 7 Then
JOUR7
End If
If Range("c2").Value = 8 Then
JOUR8
' MsgBox "Bonjour" ' ou le nom de te macro
End If
If Range("c2").Value = 9 Then
JOUR9
End If
If Range("c2").Value = 10 Then
JOUR10
End If
If Range("c2").Value = 11 Then
JOUR11
End If
If Range("c2").Value = 12 Then
JOUR12
End If
If Range("c2").Value = 13 Then
JOUR13
End If
If Range("c2").Value = 14 Then
JOUR14
End If
If Range("c2").Value = 15 Then
JOUR15
End If
If Range("c2").Value = 16 Then
JOUR16
' MsgBox "Bonjour" ' ou le nom de te macro
End If
If Range("c2").Value = 17 Then
JOUR17
End If
If Range("c2").Value = 18 Then
JOUR18
End If
If Range("c2").Value = 19 Then
JOUR19
End If
If Range("c2").Value = 20 Then
JOUR20
End If
If Range("c2").Value = 21 Then
JOUR21
End If
If Range("c2").Value = 22 Then
JOUR22
End If
If Range("c2").Value = 23 Then
JOUR23
End If
If Range("c2").Value = 24 Then
JOUR24
' MsgBox "Bonjour" ' ou le nom de te macro
End If
If Range("c2").Value = 25 Then
JOUR25
End If
If Range("c2").Value = 26 Then
JOUR26
End If
If Range("c2").Value = 27 Then
JOUR27
End If
If Range("c2").Value = 28 Then
JOUR28
End If
If Range("c2").Value = 29 Then
JOUR29
End If
If Range("c2").Value = 30 Then
JOUR30
End If
If Range("c2").Value = 31 Then
JOUR31
End If
' MsgBox "Bonjour" ' ou le nom de te macro

Range("c2").Value = 99

End Sub
MERCI A TOUS

Configuration: Windows XP Internet Explorer 8.0

Posez votre question Répondre

michel_m, le 28 jun 2009 à 15:56:38

Bonjour
"un tout petit peu" plus court

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
if target.address=$C$2 then
   'appel de la macro jourX
    Application.Run "jour" & target
end if
End Sub
--

Cordialement, Michel

Répondre à michel_m

michel_m, le 28 jun 2009 à 18:33:58

Peut-^tre que....
en cliquant n'importe où dans la feuille on déclenche:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.Run "jour" & range("C2")
End Sub

s'il s'agit de déclencher uniquement dans une plage de la feuille, par ex: C4:M9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C4:M9")) Is Nothing Then: Exit Sub
Application.Run "jour" & Range("C2")
End Sub

Cordialement, Michel

Répondre à michel_m

xmoix, le 28 jun 2009 à 23:30:50

Ton prénom c patrick ?!

Répondre à xmoix

Posez votre question Répondre