Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:A57D5B88-060A-4C5E-A874-A5883A2CFE45@microsoft.com...
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas général.
Les procédures suivantes sont à mettre dans le module de feuille qui abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas général.
Les procédures suivantes sont à mettre dans le module de feuille qui abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:A57D5B88-060A-4C5E-A874-A5883A2CFE45@microsoft.com...
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas général.
Les procédures suivantes sont à mettre dans le module de feuille qui abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De intérêt de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le
message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De intérêt de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+
Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message
de news:A57D5B88-060A-4C5E-A874-A5883A2CFE45@microsoft.com...
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De intérêt de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le
message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De l'ininteret de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le
message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De l'ininteret de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+
Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+
Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message
de news:A57D5B88-060A-4C5E-A874-A5883A2CFE45@microsoft.com...
Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
cellule
Y ensuite ?
A+
Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.
Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.
Qui aurait une solution ??
Merci à vous tous.
Nadia
comme ca c'est mieux. De l'ininteret de répondre trop vite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
testcell Cells(1, 3)
Case "C1"
testcell Cells(1, 2)
End Select
End Sub
Sub testcell(cellsource)
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Sub
A+Dans l'exemple suivant, on suppose que les 2 cellules concernées sont en
B1
et C1.SI l'une ou l'autre est non vide, alors on ne peut inscrire
quelque
chose dans la cellule complémentaire et on est renvoyé en cellulle D2. A
adapter bien sur. Dans cet exemple, il n'y a pas d'obligation absolue
d'écrire Apllication.enableventsúlse mais c'est pour traiter le cas
général.
Les procédures suivantes sont à mettre dans le module de feuille qui
abrite
les cellules.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Cells(1).Address(0, 0)
Case "B1"
If testcell(Cells(1, 3)) = True Then Exit Sub
Case "C1"
If testcell(Cells(1, 2)) = True Then Exit Sub
End Select
End Sub
Function testcell(cellsource) As Boolean
If Not IsEmpty(cellsource) Then
MsgBox "pas de saisie possible"
Application.EnableEvents = False
Cells(1, 4).Activate
Application.EnableEvents = True
End If
End Function
A+Bonjour anonymousA,
Tu as parfaitement compris la chose, effectivement quand la cellule A1
possède une donnée l'utilisation de la cellule A2 devrait être
interdite. Le
contraire aussi. Si A2 possède une donnée, l'utilisation de la cellule
A1
est interdite.
Aurais-tu une solution?
Désolée de ne pas m'être fais comprendre précédemment.
Nadia
"anonymousA" a écrit dans le
message
de news:Bonjour,
essaie de mieux décrire ce que tu souhaites, car je ne comprends pas
"intredire l"une si l'autre est utilisée". Celà veut-il dire que si il
y a
une valeur dans la cellule X alors , on ne peut saisir une valeur en
celluleY ensuite ?
A+Hello à vous tous,
sur deux cellules j'ai dans chacune d'elle une liste déroulante
différente.Je désire interdire l'utilisation de l'une d'elle si l'autre et
utilisée.Qui aurait une solution ??
Merci à vous tous.
Nadia
