Code vba plus court

Fermé

PATRICK5555 Messages postés 1 Date d'inscription lundi 15 juin 2009 Statut Membre Dernière intervention 28 juin 2009 - 28 juin 2009 à 15:12
xmoix Messages postés 36 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 29 juin 2009 - 28 juin 2009 à 23:30

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

A voir également:

Code vba plus court
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 juin 2009 à 15:56

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éponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 juin 2009 à 18:33

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

Réponse 3 / 3

xmoix Messages postés 36 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 29 juin 2009 2
28 juin 2009 à 23:30

ton prénom c patrick ?!

Discussions similaires

court circuit LNB " apparaît.

Code de renvoi d'appel : Ooredo, Mobilis...

code d'activation GTA 5 steam

Acces à snapchat temporairement désactivé

Discussions similaires

Newsletters