Macro sous condition

Le 23/05/2011 à 13:50

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("J1")) Is Nothing Then
    Run "Evt_Dpt" & Format(Range("J1"), "00") & "_Sel"
  End If
End Sub

ce code est exélent mais je voudrais lancer les macro de Evt_Dpt_Sel (1) à Evt_Dpt_Sel (19) et de Evt_Dpt_Sel (21) à Evt_Dpt_Sel (95)

car j'ai besoin de cette cellule pour éventuellement écrire d'autre chose eventuellement

actuellement ci je tape 0 ou 98 monaco ou autre il me met une erreur macro

merci de votre patience et de votre aide

il est parfois difficile de rester patient devant des questions évidente

Le 23/05/2011 à 14:37

Bonjour

Solution

- Tu testes ce qu'il y a dans cette cellule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("J1")) Is Nothing Then
    If Val(Target) > 0 And Val(Target) < 96 And Val(Target) <> 20 Then
      Run "Evt_Dpt" & Format(Range("J1"), "00") & "_Sel"
    End If
  End If
End Sub

Le 23/05/2011 à 15:23

c'est parfais banzaï

pour finir de vous embeter

je voudrais que les anciens menus déroulant sois des menus fixe (juste afficher les infos sur les département )

comment modifier mes macros pour cela

code feuille:

Private Sub Cbx_Dpt_Click()

Evt_Dpt_Sel (Cbx_Dpt.ListIndex + 1)

End Sub

Private Sub Cbx_Rgn_Click()

For Each Row In Sheets("Départements").Range("Table_Départements").Rows

If Int(Row.Cells(1, 4).Value) = Cbx_Rgn.ListIndex + 1 Then

Evt_Dpt_Sel (Int(Row.Cells(1, 2).Value))

Exit For

End If

Next Row

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("J1")) Is Nothing Then

If Val(Target) > 0 And Val(Target) < 96 And Val(Target) <> 20 Then

Run "Evt_Dpt" & Format(Range("J1"), "00") & "_Sel"

End If

End Sub

macro :

Sub Evt_Dpt_Sel(NoDpt As Integer)

Dim DptRow As Range

Dim DptRgn As Range

Set DptRow = Dpt_Find(, NoDpt)

If DptRow Is Nothing Then

MsgBox "Erreur : Département " & NoDpt & " non recensé en table"

Exit Sub

End If

Set RgnRow = Rgn_Find(DptRow.Cells(1, 4))

If RgnRow Is Nothing Then

MsgBox "Erreur : Région " & DptRow.Cells(1, 4) & " non recensée en table"

Exit Sub

End If

For Each Row In Sheets("Départements").Range("Table_Départements").Rows

If Row.Cells(1, 4).Value = DptRow.Cells(1, 4).Value Then

If Row.Cells(1, 2).Value = DptRow.Cells(1, 2).Value Then

Sheets("France").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _

Sheets("France").Shapes("CouleurDépartement").Fill.ForeColor.RGB

Sht_Fra.Cbx_Dpt.Text = Sht_Fra.Cbx_Dpt.List(DptRow.Row - 3)

Else

Sheets("France").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _

Sheets("France").Shapes("CouleurRégion").Fill.ForeColor.RGB

Sht_Fra.Cbx_Rgn.Text = Sht_Fra.Cbx_Rgn.List(RgnRow.Row - 3)

End If

Else

If Row.Cells(1, 1).Value <> "Dpt20" Then _

Sheets("France").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _

Sheets("France").Shapes("CouleurFrance").Fill.ForeColor.RGB

End If

Next Row

End Sub

Sub Evt_Dpt01_Sel()

Evt_Dpt_Sel (1)

End Sub

Sub Evt_Dpt02_Sel()

Evt_Dpt_Sel (2)

End Sub

Sub Evt_Dpt03_Sel()

Evt_Dpt_Sel (3)

End Sub

Sub Evt_Dpt04_Sel()

Evt_Dpt_Sel (4)

End Sub

Sub Evt_Dpt05_Sel()

Evt_Dpt_Sel (5)

End Sub

Sub Evt_Dpt06_Sel()

Evt_Dpt_Sel (6)

End Sub

Sub Evt_Dpt07_Sel()

Evt_Dpt_Sel (7)

End Sub

Sub Evt_Dpt08_Sel()

Evt_Dpt_Sel (8)

End Sub

Sub Evt_Dpt09_Sel()

Evt_Dpt_Sel (9)

End Sub

Sub Evt_Dpt10_Sel()

Evt_Dpt_Sel (10)

End Sub

Sub Evt_Dpt11_Sel()

Evt_Dpt_Sel (11)

End Sub

Sub Evt_Dpt12_Sel()

Evt_Dpt_Sel (12)

End Sub

Sub Evt_Dpt13_Sel()

Evt_Dpt_Sel (13)

End Sub

Sub Evt_Dpt14_Sel()

Evt_Dpt_Sel (14)

End Sub

Sub Evt_Dpt15_Sel()

Evt_Dpt_Sel (15)

End Sub

Sub Evt_Dpt16_Sel()

Evt_Dpt_Sel (16)

End Sub

Sub Evt_Dpt17_Sel()

Evt_Dpt_Sel (17)

End Sub

Sub Evt_Dpt18_Sel()

Evt_Dpt_Sel (18)

End Sub

Sub Evt_Dpt19_Sel()

Evt_Dpt_Sel (19)

End Sub

Sub Evt_Dpt20_Sel()

Evt_Dpt_Sel (20)

End Sub

Sub Evt_Dpt21_Sel()

Evt_Dpt_Sel (21)

End Sub

Sub Evt_Dpt22_Sel()

Evt_Dpt_Sel (22)

End Sub

Sub Evt_Dpt23_Sel()

Evt_Dpt_Sel (23)

End Sub

Sub Evt_Dpt24_Sel()

Evt_Dpt_Sel (24)

End Sub

Sub Evt_Dpt25_Sel()

Evt_Dpt_Sel (25)

End Sub

Sub Evt_Dpt26_Sel()

Evt_Dpt_Sel (26)

End Sub

Sub Evt_Dpt27_Sel()

Evt_Dpt_Sel (27)

End Sub

Sub Evt_Dpt28_Sel()

Evt_Dpt_Sel (28)

End Sub

Sub Evt_Dpt29_Sel()

Evt_Dpt_Sel (29)

End Sub

Sub Evt_Dpt30_Sel()

Evt_Dpt_Sel (30)

End Sub

Sub Evt_Dpt31_Sel()

Evt_Dpt_Sel (31)

End Sub

Sub Evt_Dpt32_Sel()

Evt_Dpt_Sel (32)

End Sub

Sub Evt_Dpt33_Sel()

Evt_Dpt_Sel (33)

End Sub

Sub Evt_Dpt34_Sel()

Evt_Dpt_Sel (34)

End Sub

Sub Evt_Dpt35_Sel()

Evt_Dpt_Sel (35)

End Sub

Sub Evt_Dpt36_Sel()

Evt_Dpt_Sel (36)

End Sub

Sub Evt_Dpt37_Sel()

Evt_Dpt_Sel (37)

End Sub

Sub Evt_Dpt38_Sel()

Evt_Dpt_Sel (38)

End Sub

Sub Evt_Dpt39_Sel()

Evt_Dpt_Sel (39)

End Sub

Sub Evt_Dpt40_Sel()

Evt_Dpt_Sel (40)

End Sub

Sub Evt_Dpt41_Sel()

Evt_Dpt_Sel (41)

End Sub

Sub Evt_Dpt42_Sel()

Evt_Dpt_Sel (42)

End Sub

Sub Evt_Dpt43_Sel()

Evt_Dpt_Sel (43)

End Sub

Sub Evt_Dpt44_Sel()

Evt_Dpt_Sel (44)

End Sub

Sub Evt_Dpt45_Sel()

Evt_Dpt_Sel (45)

End Sub

Sub Evt_Dpt46_Sel()

Evt_Dpt_Sel (46)

End Sub

Sub Evt_Dpt47_Sel()

Evt_Dpt_Sel (47)

End Sub

Sub Evt_Dpt48_Sel()

Evt_Dpt_Sel (48)

End Sub

Sub Evt_Dpt49_Sel()

Evt_Dpt_Sel (49)

End Sub

Sub Evt_Dpt50_Sel()

Evt_Dpt_Sel (50)

End Sub

Sub Evt_Dpt51_Sel()

Evt_Dpt_Sel (51)

End Sub

Sub Evt_Dpt52_Sel()

Evt_Dpt_Sel (52)

End Sub

Sub Evt_Dpt53_Sel()

Evt_Dpt_Sel (53)

End Sub

Sub Evt_Dpt54_Sel()

Evt_Dpt_Sel (54)

End Sub

Sub Evt_Dpt55_Sel()

Evt_Dpt_Sel (55)

End Sub

Sub Evt_Dpt56_Sel()

Evt_Dpt_Sel (56)

End Sub

Sub Evt_Dpt57_Sel()

Evt_Dpt_Sel (57)

End Sub

Sub Evt_Dpt58_Sel()

Evt_Dpt_Sel (58)

End Sub

Sub Evt_Dpt59_Sel()

Evt_Dpt_Sel (59)

End Sub

Sub Evt_Dpt60_Sel()

Evt_Dpt_Sel (60)

End Sub

Sub Evt_Dpt61_Sel()

Evt_Dpt_Sel (61)

End Sub

Sub Evt_Dpt62_Sel()

Evt_Dpt_Sel (62)

End Sub

Sub Evt_Dpt63_Sel()

Evt_Dpt_Sel (63)

End Sub

Sub Evt_Dpt64_Sel()

Evt_Dpt_Sel (64)

End Sub

Sub Evt_Dpt65_Sel()

Evt_Dpt_Sel (65)

End Sub

Sub Evt_Dpt66_Sel()

Evt_Dpt_Sel (66)

End Sub

Sub Evt_Dpt67_Sel()

Evt_Dpt_Sel (67)

End Sub

Sub Evt_Dpt68_Sel()

Evt_Dpt_Sel (68)

End Sub

Sub Evt_Dpt69_Sel()

Evt_Dpt_Sel (69)

End Sub

Sub Evt_Dpt70_Sel()

Evt_Dpt_Sel (70)

End Sub

Sub Evt_Dpt71_Sel()

Evt_Dpt_Sel (71)

End Sub

Sub Evt_Dpt72_Sel()

Evt_Dpt_Sel (72)

End Sub

Sub Evt_Dpt73_Sel()

Evt_Dpt_Sel (73)

End Sub

Sub Evt_Dpt74_Sel()

Evt_Dpt_Sel (74)

End Sub

Sub Evt_Dpt75_Sel()

Evt_Dpt_Sel (75)

End Sub

Sub Evt_Dpt76_Sel()

Evt_Dpt_Sel (76)

End Sub

Sub Evt_Dpt77_Sel()

Evt_Dpt_Sel (77)

End Sub

Sub Evt_Dpt78_Sel()

Evt_Dpt_Sel (78)

End Sub

Sub Evt_Dpt79_Sel()

Evt_Dpt_Sel (79)

End Sub

Sub Evt_Dpt80_Sel()

Evt_Dpt_Sel (80)

End Sub

Sub Evt_Dpt81_Sel()

Evt_Dpt_Sel (81)

End Sub

Sub Evt_Dpt82_Sel()

Evt_Dpt_Sel (82)

End Sub

Sub Evt_Dpt83_Sel()

Evt_Dpt_Sel (83)

End Sub

Sub Evt_Dpt84_Sel()

Evt_Dpt_Sel (84)

End Sub

Sub Evt_Dpt85_Sel()

Evt_Dpt_Sel (85)

End Sub

Sub Evt_Dpt86_Sel()

Evt_Dpt_Sel (86)

End Sub

Sub Evt_Dpt87_Sel()

Evt_Dpt_Sel (87)

End Sub

Sub Evt_Dpt88_Sel()

Evt_Dpt_Sel (88)

End Sub

Sub Evt_Dpt89_Sel()

Evt_Dpt_Sel (89)

End Sub

Sub Evt_Dpt90_Sel()

Evt_Dpt_Sel (90)

End Sub

Sub Evt_Dpt91_Sel()

Evt_Dpt_Sel (91)

End Sub

Sub Evt_Dpt92_Sel()

Evt_Dpt_Sel (92)

End Sub

Sub Evt_Dpt93_Sel()

Evt_Dpt_Sel (93)

End Sub

Sub Evt_Dpt94_Sel()

Evt_Dpt_Sel (94)

End Sub

Sub Evt_Dpt95_Sel()

Evt_Dpt_Sel (95)

End Sub

merci pour tout

Le 23/05/2011 à 16:18

Bonjour

Pour obtenir un maximum d'aide, joins le fichier avec (en rouge par exemple) ce que tu souhaites

A suivre

Le 23/05/2011 à 16:29

tu as raison !!!!!voici le fichier

je veux que les 2 volet déroulants deviennent fixes (sans possibilité de cliquer dessus), qu'elles servent juste a voir les infos départements et régions

bien sur sans affecté les macro (cela marche très bien grace a toi!)

16che-par-cellule.zip (67.34 Ko)

Le 23/05/2011 à 16:53

Bonjour

A voir

21yoda60-carte-de-france-v001.zip (66.16 Ko)

Le 23/05/2011 à 22:06

merci encore pour ton super boulot

je garde le projet tel quel, mais j'ai réaffecté chaque macro aux départements pour également pouvoir les avoir en cliquant dessus

je n'ai plus qu'a faire des fonctions si et insérer un tableau

le fichier ci joint me convient totalement

est il possible que si je clique aussi sur un département le n°apparaissent également en j1