Dans une feuille, j'ai un tableau, disons de B30:V50,
en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un
utilisateur inscrit ses initales (c'est la modif) en face d'un evenement,
alors la date de modification s'inscrive en ligne 29, colonne correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja
modifiee, c'est genial.
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
Père Brossollette
Salut
si je comprends bien ligne 28 dans une colonne des initiales ligne 29 la date et interdiction de toucher à la colonne
une possibilité à améliorer dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 28 And Target.Value <> "" Then _ Cells(29, Target.Column) = Date End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(28, Target.Column) <> "" Then _ Cells(28, 1).Select End Sub
Père R. Brossollette "zrd" a écrit dans le message de news:%
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50, en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un utilisateur inscrit ses initales (c'est la modif) en face d'un evenement, alors la date de modification s'inscrive en ligne 29, colonne correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja modifiee, c'est genial.
Merci pour vos lumieres
@+
Salut
si je comprends bien
ligne 28 dans une colonne des initiales
ligne 29 la date
et interdiction de toucher à la colonne
une possibilité à améliorer
dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 28 And Target.Value <> "" Then _
Cells(29, Target.Column) = Date
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(28, Target.Column) <> "" Then _
Cells(28, 1).Select
End Sub
Père R. Brossollette
"zrd" <zorroider@libertyNOSPAMsurf.fr> a écrit dans le message de
news:%23usbyDP5DHA.1852@TK2MSFTNGP10.phx.gbl...
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50,
en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un
utilisateur inscrit ses initales (c'est la modif) en face d'un evenement,
alors la date de modification s'inscrive en ligne 29, colonne
correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja
modifiee, c'est genial.
si je comprends bien ligne 28 dans une colonne des initiales ligne 29 la date et interdiction de toucher à la colonne
une possibilité à améliorer dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 28 And Target.Value <> "" Then _ Cells(29, Target.Column) = Date End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(28, Target.Column) <> "" Then _ Cells(28, 1).Select End Sub
Père R. Brossollette "zrd" a écrit dans le message de news:%
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50, en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un utilisateur inscrit ses initales (c'est la modif) en face d'un evenement, alors la date de modification s'inscrive en ligne 29, colonne correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja modifiee, c'est genial.
Merci pour vos lumieres
@+
zrd
merci pour ce bout de code,
En fait, je me suis mal exprimé, L'utilisateur a droit d'inscrire ses initiales sur la plage C30:V50 s'il existe deja des intiales dans la colonne (ou la date dans la colanne en ligne 28) alors la modif ne doit pas etre possible, sinon, il peut inscrire ses initiales et la date apparait en ligne 28 et le username en ligne 29.
Merci
"Père Brossollette" a écrit dans le message news:
Salut
si je comprends bien ligne 28 dans une colonne des initiales ligne 29 la date et interdiction de toucher à la colonne
une possibilité à améliorer dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 28 And Target.Value <> "" Then _ Cells(29, Target.Column) = Date End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(28, Target.Column) <> "" Then _ Cells(28, 1).Select End Sub
Père R. Brossollette "zrd" a écrit dans le message de news:%
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50, en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un utilisateur inscrit ses initales (c'est la modif) en face d'un evenement,
alors la date de modification s'inscrive en ligne 29, colonne correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja modifiee, c'est genial.
Merci pour vos lumieres
@+
merci pour ce bout de code,
En fait, je me suis mal exprimé,
L'utilisateur a droit d'inscrire ses initiales sur la plage C30:V50
s'il existe deja des intiales dans la colonne (ou la date dans la colanne en
ligne 28) alors la modif ne doit pas etre possible, sinon, il peut inscrire
ses initiales et la date apparait en ligne 28 et le username en ligne 29.
Merci
"Père Brossollette" <ailleurs@nowhere.fr> a écrit dans le message news:
OwMGlBR5DHA.2556@TK2MSFTNGP09.phx.gbl...
Salut
si je comprends bien
ligne 28 dans une colonne des initiales
ligne 29 la date
et interdiction de toucher à la colonne
une possibilité à améliorer
dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 28 And Target.Value <> "" Then _
Cells(29, Target.Column) = Date
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(28, Target.Column) <> "" Then _
Cells(28, 1).Select
End Sub
Père R. Brossollette
"zrd" <zorroider@libertyNOSPAMsurf.fr> a écrit dans le message de
news:%23usbyDP5DHA.1852@TK2MSFTNGP10.phx.gbl...
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50,
en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un
utilisateur inscrit ses initales (c'est la modif) en face d'un
evenement,
alors la date de modification s'inscrive en ligne 29, colonne
correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja
modifiee, c'est genial.
En fait, je me suis mal exprimé, L'utilisateur a droit d'inscrire ses initiales sur la plage C30:V50 s'il existe deja des intiales dans la colonne (ou la date dans la colanne en ligne 28) alors la modif ne doit pas etre possible, sinon, il peut inscrire ses initiales et la date apparait en ligne 28 et le username en ligne 29.
Merci
"Père Brossollette" a écrit dans le message news:
Salut
si je comprends bien ligne 28 dans une colonne des initiales ligne 29 la date et interdiction de toucher à la colonne
une possibilité à améliorer dans le module de la feuille concernée Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 28 And Target.Value <> "" Then _ Cells(29, Target.Column) = Date End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(28, Target.Column) <> "" Then _ Cells(28, 1).Select End Sub
Père R. Brossollette "zrd" a écrit dans le message de news:%
bonjour,
Dans une feuille, j'ai un tableau, disons de B30:V50, en B, de 30 a 50 j'ai une liste d' evenements, j'aimerais que : si un utilisateur inscrit ses initales (c'est la modif) en face d'un evenement,
alors la date de modification s'inscrive en ligne 29, colonne correspondant
a la modif, son nom en ligne 28, mm colonne.
Si en plus on peut alors interdire la modification d'une colonne deja modifiee, c'est genial.
