J'aimerai que vos lumieres m'eclairent.
J'aimerai exploiter ce script, mais je n'y connait absolument rien en
vbs. J'aimerai indiquer que la case F29 (ligne 15) se trouve sur une
autre feuille. Comment faire ?
MErci @ tous.
1 Private Sub Worksheet_Change(ByVal Target As Range)
2 Static IsOn As Boolean
3 Dim j As Integer: ' RAJOUTE
4 If IsOn Then
5 IsOn = False
6 Exit Sub
7 End If
8 ' Stop
9 If Not Application.Intersect(Target, Range("Saisie")) Is Nothing Then
10 GoTo label2
11 Exit Sub
12 label2:
13 With Target
14
15 Range("F29").Value = .Value
End With
' SendKeys "%{DOWN}", False
' IsOn = True
End Sub
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"redd" a écrit dans le message de news:
Bonjour à tous
J'aimerai que vos lumieres m'eclairent. J'aimerai exploiter ce script, mais je n'y connait absolument rien en vbs. J'aimerai indiquer que la case F29 (ligne 15) se trouve sur une autre feuille. Comment faire ? MErci @ tous.
1 Private Sub Worksheet_Change(ByVal Target As Range) 2 Static IsOn As Boolean 3 Dim j As Integer: ' RAJOUTE 4 If IsOn Then 5 IsOn = False 6 Exit Sub 7 End If 8 ' Stop 9 If Not Application.Intersect(Target, Range("Saisie")) Is Nothing Then 10 GoTo label2 11 Exit Sub 12 label2: 13 With Target 14 15 Range("F29").Value = .Value
End With ' SendKeys "%{DOWN}", False ' IsOn = True End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"redd" <nomansland@hotmail.com> a écrit dans le message de news:
Xns9418E1A6F87C4nomanslandhotmailcom@213.228.0.136...
Bonjour à tous
J'aimerai que vos lumieres m'eclairent.
J'aimerai exploiter ce script, mais je n'y connait absolument rien en
vbs. J'aimerai indiquer que la case F29 (ligne 15) se trouve sur une
autre feuille. Comment faire ?
MErci @ tous.
1 Private Sub Worksheet_Change(ByVal Target As Range)
2 Static IsOn As Boolean
3 Dim j As Integer: ' RAJOUTE
4 If IsOn Then
5 IsOn = False
6 Exit Sub
7 End If
8 ' Stop
9 If Not Application.Intersect(Target, Range("Saisie")) Is Nothing Then
10 GoTo label2
11 Exit Sub
12 label2:
13 With Target
14
15 Range("F29").Value = .Value
End With
' SendKeys "%{DOWN}", False
' IsOn = True
End Sub
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"redd" a écrit dans le message de news:
Bonjour à tous
J'aimerai que vos lumieres m'eclairent. J'aimerai exploiter ce script, mais je n'y connait absolument rien en vbs. J'aimerai indiquer que la case F29 (ligne 15) se trouve sur une autre feuille. Comment faire ? MErci @ tous.
1 Private Sub Worksheet_Change(ByVal Target As Range) 2 Static IsOn As Boolean 3 Dim j As Integer: ' RAJOUTE 4 If IsOn Then 5 IsOn = False 6 Exit Sub 7 End If 8 ' Stop 9 If Not Application.Intersect(Target, Range("Saisie")) Is Nothing Then 10 GoTo label2 11 Exit Sub 12 label2: 13 With Target 14 15 Range("F29").Value = .Value
End With ' SendKeys "%{DOWN}", False ' IsOn = True End Sub
redd
"ru-th" wrote in news:uUVyLeblDHA.2272 @tk2msftngp13.phx.gbl:
MErci pour ces indications, tu me sauves la vie. Merci @ +
"ru-th" <ailleurs@nowhere.fr> wrote in news:uUVyLeblDHA.2272
@tk2msftngp13.phx.gbl:
MErci pour ces indications, tu me sauves la vie.
Merci
@ +