nb de case selectionnés

**khabarakh** · 21/11/2007, 08h14

salut les codeurs, juste une petite question, pourriez vous me dire comment savoir si l'utilisateur a selectionné une ou plusieures cases
car ma fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheet_SelectionChange

me renvoie une erreur.
merci de votre aide
bonne journée

**khabarakh** · 21/11/2007, 12h54

je de donne le code, dsl je ne peux pas edité mes post depuis ce poste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 383 And Target.Column >= 3 And Target.Column <= 2 + Froot.Range("c1") Then
    If optJour.Value = True Then
        Target.Value = "J"
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 'J' le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf optnuit.Value = True Then: Target.Value = "N"
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 'N' le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf OptbCE.Value = True Then: Target.Value = "CE": Target.Interior.ColorIndex = 33
    ElseIf OptbR.Value = True Then: Target.Value = "R": Target.Interior.ColorIndex = 33
    ElseIf OptAm.Value = True Then: Target.Value = "AM": Target.Interior.ColorIndex = 6
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un arret maladie le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf OptAme.Value = True Then: Target.Value = "AME": Target.Interior.ColorIndex = 6
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un jour d'absence pour enfant malade le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf Optreu.Value = True Then
        Target.Value = "Reu": Motifreu = InputBox("Quel est le motif de la reunion ?", "Reunion")
        Target.Interior.ColorIndex = 15
        Target.AddComment: Target.Comment.Visible = False
        Target.Comment.Text Text:=Motifreu & Chr(10) & Feuil1.Range("a1").Value
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une reunion le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf OptShr.Value = True Then
        Target.Value = "SHR"
        Target.Interior.ColorIndex = 10
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une garde  '" _
        & Target.Value & "' le " & Cells(Target.Row, 2).Value & " pour " _
        & Cells(1, Target.Column).Value: Mouchardajout
    ElseIf optcent.Value = True Then
        Target.Value = "GC": Target.Interior.ColorIndex = 7
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde centre le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf optnul.Value = True Then
        Target.ClearComments
        If Target.Value <> "" Then
            If Cells(Target.Row, 1).Value = "dim" Or Cells(Target.Row, 1).Value = "sam" Then
                Target.Interior.ColorIndex = 35
            Else: Target.Interior.ColorIndex = 0
            End If
            Fmouchard.Range(Froot.Range("b6").Value).Value = "Suppression de la Garde '" _
            & Target.Value & "' du " & Cells(Target.Row, 2).Value & " pour " _
            & Cells(1, Target.Column).Value: Mouchardajout: Target.Value = ""
            Target.ClearComments
        Else
        If Cells(Target.Row, 1).Value = "dim" Or Cells(Target.Row, 1).Value = "sam" Then
                Target.Interior.ColorIndex = 35
            Else: Target.Interior.ColorIndex = 0
            End If
        End If 'if target.value
    ElseIf optc.Value = True Then: Target.Value = "C": Target.Interior.ColorIndex = 33
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Jour de congé le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf Optbast.Value = True Then
        If Target.Value = "" Then
        Choixjn = Choixast("Astreinte"): Target.Value = Choixjn
        ElseIf Target.Value = "J" Then: Target.Value = "JA"
        ElseIf Target.Value = "N" Then: Target.Value = "AN"
        ElseIf Target.Value = "SHR" Then: Target.Value = "SHA"
        ElseIf Target.Value = "GC" Then: Target.Value = "GCA": Target.Interior.ColorIndex = 7
        ElseIf Target.Value = "AJ" Or Target.Value = "AN" Or Target.Value = "GCA" Or _
        Target.Value = "SHA" Or Target.Value = "Aj" Or Target.Value = "An" Then
        'Errast = MsgBox("Attention une astreinte est deja mise ce jour", vbCritical, "Erreur")
        Choixjn = Choixast("Astreinte"): Target.Value = Choixjn
        End If
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une astreinte le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf OptbED.Value = True Then: Choixjn = ChoixED("Pro ou Volon ?")
         If Choixjn = "P" Then
         Target.Value = "ED"
         Target.Interior.ColorIndex = 34
         Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Entreinement Dpt 'Pro' le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
         ElseIf Choixjn = "V" Then: Target.Value = "ed"
         Target.Interior.ColorIndex = 34
         Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Entreinement Dpt 'Vol' le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
         End If
    ElseIf OptbDix.Value = True Then: Target.Value = "J22"
        Target.Interior.ColorIndex = 38
        Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 10/22 le " _
        & Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
        Mouchardajout
    ElseIf OptbNote.Value = True Then
    Target.ClearComments: Target.AddComment: Target.Comment.Visible = False
        Ajoucoment = InputBox("Entrez le texte", "Ajout d'une texte")
        Target.Comment.Text Text:=Ajoucoment & Chr(10) & Feuil1.Range("A1").Value
    Else
        If Target.Value <> "" Then
            Modifmanuel = Target.Value
        End If
    End If
 
Else: optvisu.Value = True
 
End If 'if target.row
 
End Sub

voila donc quand je selectionne plusieurs cases, j'ai une errreur 13
et quand je debug il me surligne
If Target.Value <> "" Then
ce que je veux c'est que si l'utilisateur selectionne 1 cellule la fonction se lance
mais si il selectionne plusieurs cellules elle ne fasse rien, je sais pas si je suis tres clair
ditesm oi si ovus voulez plus de details.
merci
Yoann

**tirex28** · 21/11/2007, 13h32

Bonjour,

ce que je veux c'est que si l'utilisateur selectionne 1 cellule la fonction se lance mais si il selectionne plusieurs cellules elle ne fasse rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
'Instructions
End If
End Sub

Cordialement,

Tirex28/

**khabarakh** · 21/11/2007, 13h49

Merci beaucoup , meme si c'est une commande simple, tu me sauve la vie en me la donnant , un grand mlerci a toi donc .
Yoann

nb de case selectionnés

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager