Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Besoin d'aide, SVP.

Besoin d'aide, SVP.

3 réponses
Avatar
Tatane
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/
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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/


Avatar
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.


Avatar
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.