EN L4, j=92ai des un menu d=E9roulant qui modifie le contenu de N4 gr=E2ce =
=E0
la formule suivante:
=3DIF(L4=3D"","ABSENT",IF(COUNTIF(L4,"*-PV")=3D0,"PRESENT",IF(COUNTIF(L4,"*=
-
PV")=3D1,"REPRESENTE")))
Je souhaiterais une macro (Private_Sub) qui modifie le contenu de
P4, S4, V4, Y4, AB4, etc. avec le m=EAme contenu que N4 (c.a.d.
ABSENT, PRESENT, REPRESENTE ou VIDE) et ceci uniquement lorsque pour
P4 la plage Q4 :Q34 est vide, lorsque pour S4 la plage T4 :T34 est
vide, lorsque pour V4 le range W4 :W34 est vide, etc.
Ce qui est vrai pour N4 doit aussi s=92appliquer aux cellules de la
plage N4 :N34.
Au cas ou vous auriez besoin du projet, il est t=E9l=E9chargeable depuis
http://www.trippypatterns.com/VOTES%20AG%20v7.xlsm
'------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range, X As Long Set Rg = Intersect(Range("L4:L34"), Target) If Not Rg Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg X = C.Row On Error Resume Next For a = 16 To 463 Step 3 If IsError(Cells(4, a + 1).Resize(31). _ SpecialCells(xlCellTypeConstants, 3).Cells.Count) Then C.Value = Range("N" & X).Value Else C.Value = "" End If Next Next Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub '-------------------------------------
MichD -------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : ipm72v$440$
Tu modifies seulement ceci dans la macro :
Tu conserves : Set Rg = Intersect(Range("L4:L34"), Target) Tu remplaces dans toutes les occurrences de la procédure : C.value par C.Offset(, 2).Value
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range, X As Long
Set Rg = Intersect(Range("L4:L34"), Target)
If Not Rg Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each C In Rg
X = C.Row
On Error Resume Next
For a = 16 To 463 Step 3
If IsError(Cells(4, a + 1).Resize(31). _
SpecialCells(xlCellTypeConstants, 3).Cells.Count) Then
C.Value = Range("N" & X).Value
Else
C.Value = ""
End If
Next
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'-------------------------------------
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipm72v$440$1@speranza.aioe.org...
Tu modifies seulement ceci dans la macro :
Tu conserves : Set Rg = Intersect(Range("L4:L34"), Target)
Tu remplaces dans toutes les occurrences de la procédure :
C.value par C.Offset(, 2).Value
'------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range, X As Long Set Rg = Intersect(Range("L4:L34"), Target) If Not Rg Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg X = C.Row On Error Resume Next For a = 16 To 463 Step 3 If IsError(Cells(4, a + 1).Resize(31). _ SpecialCells(xlCellTypeConstants, 3).Cells.Count) Then C.Value = Range("N" & X).Value Else C.Value = "" End If Next Next Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub '-------------------------------------
MichD -------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : ipm72v$440$
Tu modifies seulement ceci dans la macro :
Tu conserves : Set Rg = Intersect(Range("L4:L34"), Target) Tu remplaces dans toutes les occurrences de la procédure : C.value par C.Offset(, 2).Value
