Restriction sur la liste en cascade
Résolu/Fermé
Nathalie Dupuis
Messages postés
4
Date d'inscription
jeudi 17 janvier 2013
Statut
Membre
Dernière intervention
12 juillet 2013
-
17 janv. 2013 à 15:48
eriiic Messages postés 24602 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 7 décembre 2024 - 18 janv. 2013 à 09:24
eriiic Messages postés 24602 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 7 décembre 2024 - 18 janv. 2013 à 09:24
A voir également:
- Restriction sur la liste en cascade
- Liste déroulante en cascade - Guide
- Liste déroulante excel - Guide
- Restriction instagram - Guide
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
- Comment cacher la liste d'amis sur facebook - Guide
4 réponses
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
17 janv. 2013 à 16:27
17 janv. 2013 à 16:27
Bonjour,
En retour fichier avec explications:
https://www.cjoint.com/c/CArqzHrellT
Cordialement.
En retour fichier avec explications:
https://www.cjoint.com/c/CArqzHrellT
Cordialement.
Nathalie Dupuis
Messages postés
4
Date d'inscription
jeudi 17 janvier 2013
Statut
Membre
Dernière intervention
12 juillet 2013
17 janv. 2013 à 20:38
17 janv. 2013 à 20:38
Bonjour,
Est-ce que vous pourriez m'indiquer en détail ce que je dois faire (Je vais devoir reproduire la même fontion sur plusieur fichier).
J'ai essayé de repreduire la même chose dans un fichier et je suis incapable même en copiant l'information. Voici mon fichier,https://www.cjoint.com/?3AruHhedUcZ Je voudrais mettre cette fonction sur la cellule C35.
Un gros merci.
Est-ce que vous pourriez m'indiquer en détail ce que je dois faire (Je vais devoir reproduire la même fontion sur plusieur fichier).
J'ai essayé de repreduire la même chose dans un fichier et je suis incapable même en copiant l'information. Voici mon fichier,https://www.cjoint.com/?3AruHhedUcZ Je voudrais mettre cette fonction sur la cellule C35.
Un gros merci.
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
18 janv. 2013 à 00:11
18 janv. 2013 à 00:11
Bonsoir,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [C34]) Is Nothing Then 'C34 modifiable
[C35].ClearContents 'C35 modifiable
End If
End Sub
D'une part il manque End if dans le code et d'autre part ce code ne peut pas être attribué à une cellule fusionnée.
Bonne soirée.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [C34]) Is Nothing Then 'C34 modifiable
[C35].ClearContents 'C35 modifiable
End If
End Sub
D'une part il manque End if dans le code et d'autre part ce code ne peut pas être attribué à une cellule fusionnée.
Bonne soirée.
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
18 janv. 2013 à 08:21
18 janv. 2013 à 08:21
Je reviens sur :
D'une part il manque End if dans le code et d'autre part ce code ne peut pas être attribué à une cellule fusionnée.
C'est vrai, mais pour y remédier il suffit de désigner les cellules fusionnées:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [C34]) Is Nothing Then 'C34 modifiable
[C35:E35].ClearContents 'C35 modifiable
End If
End Sub
soit remplacer [C35] par [C35:E35]
Bonne journée.
D'une part il manque End if dans le code et d'autre part ce code ne peut pas être attribué à une cellule fusionnée.
C'est vrai, mais pour y remédier il suffit de désigner les cellules fusionnées:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [C34]) Is Nothing Then 'C34 modifiable
[C35:E35].ClearContents 'C35 modifiable
End If
End Sub
soit remplacer [C35] par [C35:E35]
Bonne journée.
eriiic
Messages postés
24602
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 décembre 2024
7 246
Modifié par eriiic le 18/01/2013 à 09:26
Modifié par eriiic le 18/01/2013 à 09:26
Bonjour à tous,
g, je crains que tu n'aies pas testé ta proposition, c'est plutôt l'évènement Change qu'il faut utiliser.
En code je mettrais :
https://www.cjoint.com/c/CAsjxdLZSBz
Et les fusions de cellules sont à fuir. Ici elles sont totalement inutiles.
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
g, je crains que tu n'aies pas testé ta proposition, c'est plutôt l'évènement Change qu'il faut utiliser.
En code je mettrais :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [C34] Then [C35] = "" End Sub
https://www.cjoint.com/c/CAsjxdLZSBz
Et les fusions de cellules sont à fuir. Ici elles sont totalement inutiles.
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.