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
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc). Dans (source) je remplace les chiffres par des textes, même en remplaçant « iti1 » par « Vapeur » dans les feuilles VBA Ça ne fonctionne pas.
c'est au niveau du select Case qu'il faut intervenir
Select Case [A1] '------Liste des motrices Case "vapeur" Call iti1 Case "diesel" Call iti2 Case "TGV" Call iti3 etc...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("A1") Then
If Target <> Range("AR1") Then
Exit Sub
End If
End If
Call RAZ
Select Case [A1] 'Liste des itinéraires 1 à 19
Case 1
Call iti1
......etc
En module 1. @+
;o)))
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc).
Dans (source) je remplace les chiffres par des textes, même en
remplaçant « iti1 » par « Vapeur » dans les feuilles VBA
Ça ne fonctionne pas.
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc). Dans (source) je remplace les chiffres par des textes, même en remplaçant « iti1 » par « Vapeur » dans les feuilles VBA Ça ne fonctionne pas.
c'est au niveau du select Case qu'il faut intervenir
Select Case [A1] '------Liste des motrices Case "vapeur" Call iti1 Case "diesel" Call iti2 Case "TGV" Call iti3 etc...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("A1") Then
If Target <> Range("AR1") Then
Exit Sub
End If
End If
Call RAZ
Select Case [A1] 'Liste des itinéraires 1 à 19
Case 1
Call iti1
......etc
En module 1. @+
;o)))
Guy72
Bonjour Modeste Quand je pense que j'ai cherché et c'est sapristi de guillemets au quel je n'est pas pensé ! En attendant je te remercie de ton aide. Cordialement Guy
"Modeste" a écrit dans le message de news:
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc). Dans (source) je remplace les chiffres par des textes, même en remplaçant « iti1 » par « Vapeur » dans les feuilles VBA Ça ne fonctionne pas.
c'est au niveau du select Case qu'il faut intervenir
Select Case [A1] '------Liste des motrices Case "vapeur" Call iti1 Case "diesel" Call iti2 Case "TGV" Call iti3 etc...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("A1") Then
If Target <> Range("AR1") Then
Exit Sub
End If
End If
Call RAZ
Select Case [A1] 'Liste des itinéraires 1 à 19
Case 1
Call iti1
......etc
En module 1. @+
;o)))
Bonjour Modeste
Quand je pense que j'ai cherché et c'est sapristi de guillemets au quel je
n'est pas pensé !
En attendant je te remercie de ton aide.
Cordialement
Guy
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ePDV25JFIHA.484@TK2MSFTNGP06.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc).
Dans (source) je remplace les chiffres par des textes, même en
remplaçant « iti1 » par « Vapeur » dans les feuilles VBA
Ça ne fonctionne pas.
Bonjour Modeste Quand je pense que j'ai cherché et c'est sapristi de guillemets au quel je n'est pas pensé ! En attendant je te remercie de ton aide. Cordialement Guy
"Modeste" a écrit dans le message de news:
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Dans .données/validation/autorisé (liste)/source (0 ;1 ;2 ;3 ;.etc). Dans (source) je remplace les chiffres par des textes, même en remplaçant « iti1 » par « Vapeur » dans les feuilles VBA Ça ne fonctionne pas.