J'ai créé un code afin d'insérer des valeurs en fonction d'une liste
déroulante mais cela ne fonctionne pas.
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AA$6" And Target.Count = 1 Then
'Lundi non travaillé
If Target.Value = "Lundi" Then
Range("B7").Value = "0:00"
Range("B8").Value = "0:00"
Range("E7").Value = "0:00"
Range("D11").Value = "0:00"
Range("G7").Select
End If
End If
End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement ....
Je l'en remercie d'avance.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
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
JB
Bonjour,
Est-ce le bon évenement? (Worksheet_SelectionChange)
JB On 5 sep, 15:58, Tatane wrote:
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance. --http://www.club-assun-billard.fr/http://8pool.over-blog.com/
Bonjour,
Est-ce le bon évenement? (Worksheet_SelectionChange)
JB
On 5 sep, 15:58, Tatane <p...@hotmail.fr> wrote:
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste
déroulante mais cela ne fonctionne pas.
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AA$6" And Target.Count = 1 Then
'Lundi non travaillé
If Target.Value = "Lundi" Then
Range("B7").Value = "0:00"
Range("B8").Value = "0:00"
Range("E7").Value = "0:00"
Range("D11").Value = "0:00"
Range("G7").Select
End If
End If
End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement ....
Je l'en remercie d'avance.
--http://www.club-assun-billard.fr/http://8pool.over-blog.com/
Est-ce le bon évenement? (Worksheet_SelectionChange)
JB On 5 sep, 15:58, Tatane wrote:
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance. --http://www.club-assun-billard.fr/http://8pool.over-blog.com/
isabelle
bonjour Tatane,
essaie avec cette événement :
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance.
bonjour Tatane,
essaie avec cette événement :
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste
déroulante mais cela ne fonctionne pas.
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AA$6" And Target.Count = 1 Then
'Lundi non travaillé
If Target.Value = "Lundi" Then
Range("B7").Value = "0:00"
Range("B8").Value = "0:00"
Range("E7").Value = "0:00"
Range("D11").Value = "0:00"
Range("G7").Select
End If
End If
End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement ....
Je l'en remercie d'avance.
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance.
Tatane
Ouais-ouais-ouais !!!!
Merci à vous deux pour la rapidité et l'efficacité. Cela fonctionne parfaitement. -- http://www.club-assun-billard.fr/ http://8pool.over-blog.com/
bonjour Tatane,
essaie avec cette événement :
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance.
Ouais-ouais-ouais !!!!
Merci à vous deux pour la rapidité et l'efficacité.
Cela fonctionne parfaitement.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
bonjour Tatane,
essaie avec cette événement :
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste
déroulante mais cela ne fonctionne pas.
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AA$6" And Target.Count = 1 Then
'Lundi non travaillé
If Target.Value = "Lundi" Then
Range("B7").Value = "0:00"
Range("B8").Value = "0:00"
Range("E7").Value = "0:00"
Range("D11").Value = "0:00"
Range("G7").Select
End If
End If
End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement ....
Je l'en remercie d'avance.
Merci à vous deux pour la rapidité et l'efficacité. Cela fonctionne parfaitement. -- http://www.club-assun-billard.fr/ http://8pool.over-blog.com/
bonjour Tatane,
essaie avec cette événement :
Private Sub Worksheet_Change(ByVal Target As Range)
isabelle
Bonjour,
J'ai créé un code afin d'insérer des valeurs en fonction d'une liste déroulante mais cela ne fonctionne pas. Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AA$6" And Target.Count = 1 Then 'Lundi non travaillé If Target.Value = "Lundi" Then Range("B7").Value = "0:00" Range("B8").Value = "0:00" Range("E7").Value = "0:00" Range("D11").Value = "0:00" Range("G7").Select End If End If End Sub
Si quelqu'un pouvait m'informer sur le pourquoi du non-fonctionnement .... Je l'en remercie d'avance.