Bonjour,
A ) Si tu publies un fichier, prends le temps d'enlever la protection
B ) La formulation n'est pas évidente
C ) La procédure devrait modifier la colonne AB si la condition est rem plie
Cela est impossible dans ta feuille, car la colonne est prot égée!
à partir de ce que j'ai compris, je te propose ceci :
'---------------------------------------
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
For Each C In Rg
X = C.Row
If IsEmpty(Range("Q" & X)) Then
Range("P" & X) = C.Value
Else
Range("P" & X) = ""
End If
If IsEmpty(Range("T" & X)) Then
Range("S" & X) = C.Value
Else
Range("S" & X) = ""
End If
If IsEmpty(Range("W" & X)) Then
Range("V" & X) = C.Value
Else
Range("V" & X) = ""
End If
If IsEmpty(Range("X" & X)) Then
Range("Y" & X) = C.Value
Else
Range("Y" & X) = ""
End If
If IsEmpty(Range("AA" & X)) Then
Range("AB4" & X) = C.Value
Else
Range("AB4" & X) = ""
End If
Next
Application.EnableEvents = True
End If
End Sub
'---------------------------------------
MichD
--------------------------------------------
Bonjour,
A ) Si tu publies un fichier, prends le temps d'enlever la protection
B ) La formulation n'est pas évidente
C ) La procédure devrait modifier la colonne AB si la condition est rem plie
Cela est impossible dans ta feuille, car la colonne est prot égée!
à partir de ce que j'ai compris, je te propose ceci :
'---------------------------------------
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
For Each C In Rg
X = C.Row
If IsEmpty(Range("Q" & X)) Then
Range("P" & X) = C.Value
Else
Range("P" & X) = ""
End If
If IsEmpty(Range("T" & X)) Then
Range("S" & X) = C.Value
Else
Range("S" & X) = ""
End If
If IsEmpty(Range("W" & X)) Then
Range("V" & X) = C.Value
Else
Range("V" & X) = ""
End If
If IsEmpty(Range("X" & X)) Then
Range("Y" & X) = C.Value
Else
Range("Y" & X) = ""
End If
If IsEmpty(Range("AA" & X)) Then
Range("AB4" & X) = C.Value
Else
Range("AB4" & X) = ""
End If
Next
Application.EnableEvents = True
End If
End Sub
'---------------------------------------
MichD
--------------------------------------------
Bonjour,
A ) Si tu publies un fichier, prends le temps d'enlever la protection
B ) La formulation n'est pas évidente
C ) La procédure devrait modifier la colonne AB si la condition est rem plie
Cela est impossible dans ta feuille, car la colonne est prot égée!
à partir de ce que j'ai compris, je te propose ceci :
'---------------------------------------
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
For Each C In Rg
X = C.Row
If IsEmpty(Range("Q" & X)) Then
Range("P" & X) = C.Value
Else
Range("P" & X) = ""
End If
If IsEmpty(Range("T" & X)) Then
Range("S" & X) = C.Value
Else
Range("S" & X) = ""
End If
If IsEmpty(Range("W" & X)) Then
Range("V" & X) = C.Value
Else
Range("V" & X) = ""
End If
If IsEmpty(Range("X" & X)) Then
Range("Y" & X) = C.Value
Else
Range("Y" & X) = ""
End If
If IsEmpty(Range("AA" & X)) Then
Range("AB4" & X) = C.Value
Else
Range("AB4" & X) = ""
End If
Next
Application.EnableEvents = True
End If
End Sub
'---------------------------------------
MichD
--------------------------------------------
======================== =====
Maintenant lsupposons que le COPROPRIETAIRE5 arrive en retard à l'AG .
Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
feuille d'Emmargement en N8. Il faudrait que grâce à une macro Private
Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
n'était pas là pour voter la RESOLUTION1. (la plage (Q4:Q34] n' est pas
vide, il y a déjà eu des votes avant son arrivé).  En l'occurence si
les votes pour la résolution 1 n'ont pas débuté, il pourra être permis
d'enregister le vote du COPROPRIETAIRE5 pour la RESOLUTION1 en
premièrement entrant manuellement PRESENT à la place de ABSENT en P8
et POUR ou CONTRE etc. en Q8.
======================== =====
Ce qui précède, c'est du chinois pour moi!
| Supposons que le COPROPRIETAIRE5 arrive en retard à l'AG
***Comment fait-on pour le savoir dans ton application. Où c'est à ©crit dans
   ton application ? l'adresse de la cellule ?
| Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
| feuille d'Emmargement en N8. Il faudrait que grâce à une macr o Private
| Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
| AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
| n'était pas là pour voter la RESOLUTION1.
***Du Chinois au carré !
Ce que ton application représente ce n'est pas mes oignons...
Ce que ça prend pour programmer ce sont des conditions bien déf inies
et compréhensibles et en langage Excel cela s'exprime par des valeur s
que peuvent prendre diverses cellules.
Je laisse à d'autres le soin de déchiffrer tout ça.
Bon travail.
MichD
--------------------------------------------
======================== =====
Maintenant lsupposons que le COPROPRIETAIRE5 arrive en retard à l'AG .
Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
feuille d'Emmargement en N8. Il faudrait que grâce à une macro Private
Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
n'était pas là pour voter la RESOLUTION1. (la plage (Q4:Q34] n' est pas
vide, il y a déjà eu des votes avant son arrivé).  En l'occurence si
les votes pour la résolution 1 n'ont pas débuté, il pourra être permis
d'enregister le vote du COPROPRIETAIRE5 pour la RESOLUTION1 en
premièrement entrant manuellement PRESENT à la place de ABSENT en P8
et POUR ou CONTRE etc. en Q8.
======================== =====
Ce qui précède, c'est du chinois pour moi!
| Supposons que le COPROPRIETAIRE5 arrive en retard à l'AG
***Comment fait-on pour le savoir dans ton application. Où c'est à ©crit dans
   ton application ? l'adresse de la cellule ?
| Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
| feuille d'Emmargement en N8. Il faudrait que grâce à une macr o Private
| Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
| AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
| n'était pas là pour voter la RESOLUTION1.
***Du Chinois au carré !
Ce que ton application représente ce n'est pas mes oignons...
Ce que ça prend pour programmer ce sont des conditions bien déf inies
et compréhensibles et en langage Excel cela s'exprime par des valeur s
que peuvent prendre diverses cellules.
Je laisse à d'autres le soin de déchiffrer tout ça.
Bon travail.
MichD
--------------------------------------------
======================== =====
Maintenant lsupposons que le COPROPRIETAIRE5 arrive en retard à l'AG .
Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
feuille d'Emmargement en N8. Il faudrait que grâce à une macro Private
Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
n'était pas là pour voter la RESOLUTION1. (la plage (Q4:Q34] n' est pas
vide, il y a déjà eu des votes avant son arrivé).  En l'occurence si
les votes pour la résolution 1 n'ont pas débuté, il pourra être permis
d'enregister le vote du COPROPRIETAIRE5 pour la RESOLUTION1 en
premièrement entrant manuellement PRESENT à la place de ABSENT en P8
et POUR ou CONTRE etc. en Q8.
======================== =====
Ce qui précède, c'est du chinois pour moi!
| Supposons que le COPROPRIETAIRE5 arrive en retard à l'AG
***Comment fait-on pour le savoir dans ton application. Où c'est à ©crit dans
   ton application ? l'adresse de la cellule ?
| Je rentre COPROPRIETAIRE5 en L8. Â Il apparait comme "PRESENT" sur la
| feuille d'Emmargement en N8. Il faudrait que grâce à une macr o Private
| Sub Worksheet_Change "PRESENT" s'inscrive également en S4, V4, Y4,
| AB4, ..., QU4,.mais qu'en revanche P4 reste "ABSENT" parce qu'il
| n'était pas là pour voter la RESOLUTION1.
***Du Chinois au carré !
Ce que ton application représente ce n'est pas mes oignons...
Ce que ça prend pour programmer ce sont des conditions bien déf inies
et compréhensibles et en langage Excel cela s'exprime par des valeur s
que peuvent prendre diverses cellules.
Je laisse à d'autres le soin de déchiffrer tout ça.
Bon travail.
MichD
--------------------------------------------
感谢您对我的汉语水平的问候。
感谢您对我的汉语水平的问候。
感谢您对我的汉语水平的问候。
感谢您对我的汉语水平的问候。
感谢您对我的汉语水平的问候。
感谢您对我的汉语水平的问候。