Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Modifie uniquement le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address case Is = "$A$16" day Case = "$A$30" day2 case else :exit Sub End Select End Sub
Cordialement Pascal
a écrit dans le message de news:
J'ai créé le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$16" Then Exit Sub Else day End Sub
qui lance ma macro "day" dont voici le contenu ci dessous lorsque je modifie la cellule A16
Sub day() If [A16] = 13 Then [A8] = [jours!C4] If [A16] = 14 Then [A8] = [jours!C5] End Sub
Jusque la tout va bien, lorsque je change la valeur en A16, par 13, la cellule A8 prend la valeur de la cellule C4 de la feuille jours.....
Je souhaite pouvoir effectuer cette procédure avec d'autre cellule mais je n'y arrive pas !!
J'ai créer une macro "day2"
Sub day2() If [A30] = 14 Then [A29] = [jours!D4] If [A30] = 13 Then [A29] = [jours!D5] End Sub
Quelles modifications dois je apporter pour pouvoir faire marcher mes 2 macros ?
Bonjour
Modifie uniquement le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
case Is = "$A$16"
day
Case = "$A$30"
day2
case else :exit Sub
End Select
End Sub
Cordialement
Pascal
<michel.villaume@gmail.com> a écrit dans le message de news:
1163087228.623595.254980@f16g2000cwb.googlegroups.com...
J'ai créé le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$16" Then Exit Sub Else day
End Sub
qui lance ma macro "day" dont voici le contenu ci dessous lorsque je
modifie la cellule A16
Sub day()
If [A16] = 13 Then [A8] = [jours!C4]
If [A16] = 14 Then [A8] = [jours!C5]
End Sub
Jusque la tout va bien, lorsque je change la valeur en A16, par 13, la
cellule A8 prend la valeur de la cellule C4 de la feuille jours.....
Je souhaite pouvoir effectuer cette procédure avec d'autre cellule
mais je n'y arrive pas !!
J'ai créer une macro "day2"
Sub day2()
If [A30] = 14 Then [A29] = [jours!D4]
If [A30] = 13 Then [A29] = [jours!D5]
End Sub
Quelles modifications dois je apporter pour pouvoir faire marcher mes 2
macros ?
Bonjour Modifie uniquement le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address case Is = "$A$16" day Case = "$A$30" day2 case else :exit Sub End Select End Sub
Cordialement Pascal
a écrit dans le message de news:
J'ai créé le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$16" Then Exit Sub Else day End Sub
qui lance ma macro "day" dont voici le contenu ci dessous lorsque je modifie la cellule A16
Sub day() If [A16] = 13 Then [A8] = [jours!C4] If [A16] = 14 Then [A8] = [jours!C5] End Sub
Jusque la tout va bien, lorsque je change la valeur en A16, par 13, la cellule A8 prend la valeur de la cellule C4 de la feuille jours.....
Je souhaite pouvoir effectuer cette procédure avec d'autre cellule mais je n'y arrive pas !!
J'ai créer une macro "day2"
Sub day2() If [A30] = 14 Then [A29] = [jours!D4] If [A30] = 13 Then [A29] = [jours!D5] End Sub
Quelles modifications dois je apporter pour pouvoir faire marcher mes 2 macros ?
