Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Column =3D 3 Then
target.Offset(, 4).Select
If target <> "" Then
target.Offset(, -2) =3D Format(Date, "mmmm")
target.Offset(, -1) =3D Date
End If
End If
End Sub
qui me permet de mettre le mois et la date du jour=20
automatiquement apr=E8s avoir entr=E9e une valeur dans le=20
colonne 3, et de me positionner directement sur la m=EAme=20
ligne 4 colonnes plus loin apr=E8s avoir tap=E9 sur la touche=20
entr=E9e...
Comment compl=E9ter cette macro pour que :
- en entrant une valeur en colonne 7, le curseur se=20
d=E9place sur la m=EAme ligne en colonne 8 (donc la celulle =E0=20
c=F4t=E9)
- puis en entrant une valeur en colonne 8, curseur en=20
colonne 10 m=EAme ligne
- puis =E0 partir de la colonne 10, que toute entr=E9e=20
entra=EEne un d=E9calage d'une celulle =E0 droite et non en-
dessous comme c'est param=E9trer par d=E9faut.
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
Michel Gaboly
Bonjour,
Ceci devrait te convenir, j'espère ;-))
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Select Case .Column Case 3 .Offset(, 4).Select ' Le test avec .Cells(1,1) permet de gérer ' le cas où il s'agit d'une selection multiple If Not (IsEmpty(.Cells(1, 1))) Then Application.EnableEvents = False .Offset(, -2) = Format(Date, "mmmm") .Offset(, -1) = Date Application.EnableEvents = True End If Case 7, Is > 9 .Offset(, 1).Select Case 8 .Offset(, 2).Select End Select End With End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range) If target.Column = 3 Then target.Offset(, 4).Select If target <> "" Then target.Offset(, -2) = Format(Date, "mmmm") target.Offset(, -1) = Date End If End If End Sub
qui me permet de mettre le mois et la date du jour automatiquement après avoir entrée une valeur dans le colonne 3, et de me positionner directement sur la même ligne 4 colonnes plus loin après avoir tapé sur la touche entrée...
Comment compléter cette macro pour que : - en entrant une valeur en colonne 7, le curseur se déplace sur la même ligne en colonne 8 (donc la celulle à côté) - puis en entrant une valeur en colonne 8, curseur en colonne 10 même ligne - puis à partir de la colonne 10, que toute entrée entraîne un décalage d'une celulle à droite et non en- dessous comme c'est paramétrer par défaut.
merci de votre aide.
dd
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Ceci devrait te convenir, j'espère ;-))
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
Select Case .Column
Case 3
.Offset(, 4).Select
' Le test avec .Cells(1,1) permet de gérer
' le cas où il s'agit d'une selection multiple
If Not (IsEmpty(.Cells(1, 1))) Then
Application.EnableEvents = False
.Offset(, -2) = Format(Date, "mmmm")
.Offset(, -1) = Date
Application.EnableEvents = True
End If
Case 7, Is > 9
.Offset(, 1).Select
Case 8
.Offset(, 2).Select
End Select
End With
End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Column = 3 Then
target.Offset(, 4).Select
If target <> "" Then
target.Offset(, -2) = Format(Date, "mmmm")
target.Offset(, -1) = Date
End If
End If
End Sub
qui me permet de mettre le mois et la date du jour
automatiquement après avoir entrée une valeur dans le
colonne 3, et de me positionner directement sur la même
ligne 4 colonnes plus loin après avoir tapé sur la touche
entrée...
Comment compléter cette macro pour que :
- en entrant une valeur en colonne 7, le curseur se
déplace sur la même ligne en colonne 8 (donc la celulle à
côté)
- puis en entrant une valeur en colonne 8, curseur en
colonne 10 même ligne
- puis à partir de la colonne 10, que toute entrée
entraîne un décalage d'une celulle à droite et non en-
dessous comme c'est paramétrer par défaut.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Select Case .Column Case 3 .Offset(, 4).Select ' Le test avec .Cells(1,1) permet de gérer ' le cas où il s'agit d'une selection multiple If Not (IsEmpty(.Cells(1, 1))) Then Application.EnableEvents = False .Offset(, -2) = Format(Date, "mmmm") .Offset(, -1) = Date Application.EnableEvents = True End If Case 7, Is > 9 .Offset(, 1).Select Case 8 .Offset(, 2).Select End Select End With End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range) If target.Column = 3 Then target.Offset(, 4).Select If target <> "" Then target.Offset(, -2) = Format(Date, "mmmm") target.Offset(, -1) = Date End If End If End Sub
qui me permet de mettre le mois et la date du jour automatiquement après avoir entrée une valeur dans le colonne 3, et de me positionner directement sur la même ligne 4 colonnes plus loin après avoir tapé sur la touche entrée...
Comment compléter cette macro pour que : - en entrant une valeur en colonne 7, le curseur se déplace sur la même ligne en colonne 8 (donc la celulle à côté) - puis en entrant une valeur en colonne 8, curseur en colonne 10 même ligne - puis à partir de la colonne 10, que toute entrée entraîne un décalage d'une celulle à droite et non en- dessous comme c'est paramétrer par défaut.
merci de votre aide.
dd
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Bonjour
J'ai déjà envoyé ce message il y a quelques minutes, mais Netscape vient de planter, et j'ignore si le message est arrivé sur le serveur.
Désolé si doublon -;((
Cela devrait te convenir, je pense ;-))
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Select Case .Column Case 3 .Offset(, 4).Select ' Le test avec .Cells(1,1) permet de gérer ' le cas où il s'agit d'une selection multiple If Not (IsEmpty(.Cells(1, 1))) Then Application.EnableEvents = False .Offset(, -2) = Format(Date, "mmmm") .Offset(, -1) = Date Application.EnableEvents = True End If Case 7, Is > 9 .Offset(, 1).Select Case 8 .Offset(, 2).Select End Select End With End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range) If target.Column = 3 Then target.Offset(, 4).Select If target <> "" Then target.Offset(, -2) = Format(Date, "mmmm") target.Offset(, -1) = Date End If End If End Sub
qui me permet de mettre le mois et la date du jour automatiquement après avoir entrée une valeur dans le colonne 3, et de me positionner directement sur la même ligne 4 colonnes plus loin après avoir tapé sur la touche entrée...
Comment compléter cette macro pour que : - en entrant une valeur en colonne 7, le curseur se déplace sur la même ligne en colonne 8 (donc la celulle à côté) - puis en entrant une valeur en colonne 8, curseur en colonne 10 même ligne - puis à partir de la colonne 10, que toute entrée entraîne un décalage d'une celulle à droite et non en- dessous comme c'est paramétrer par défaut.
merci de votre aide.
dd
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour
J'ai déjà envoyé ce message il y a quelques minutes, mais Netscape
vient de planter, et j'ignore si le message est arrivé sur le serveur.
Désolé si doublon -;((
Cela devrait te convenir, je pense ;-))
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
Select Case .Column
Case 3
.Offset(, 4).Select
' Le test avec .Cells(1,1) permet de gérer
' le cas où il s'agit d'une selection multiple
If Not (IsEmpty(.Cells(1, 1))) Then
Application.EnableEvents = False
.Offset(, -2) = Format(Date, "mmmm")
.Offset(, -1) = Date
Application.EnableEvents = True
End If
Case 7, Is > 9
.Offset(, 1).Select
Case 8
.Offset(, 2).Select
End Select
End With
End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Column = 3 Then
target.Offset(, 4).Select
If target <> "" Then
target.Offset(, -2) = Format(Date, "mmmm")
target.Offset(, -1) = Date
End If
End If
End Sub
qui me permet de mettre le mois et la date du jour
automatiquement après avoir entrée une valeur dans le
colonne 3, et de me positionner directement sur la même
ligne 4 colonnes plus loin après avoir tapé sur la touche
entrée...
Comment compléter cette macro pour que :
- en entrant une valeur en colonne 7, le curseur se
déplace sur la même ligne en colonne 8 (donc la celulle à
côté)
- puis en entrant une valeur en colonne 8, curseur en
colonne 10 même ligne
- puis à partir de la colonne 10, que toute entrée
entraîne un décalage d'une celulle à droite et non en-
dessous comme c'est paramétrer par défaut.
J'ai déjà envoyé ce message il y a quelques minutes, mais Netscape vient de planter, et j'ignore si le message est arrivé sur le serveur.
Désolé si doublon -;((
Cela devrait te convenir, je pense ;-))
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target Select Case .Column Case 3 .Offset(, 4).Select ' Le test avec .Cells(1,1) permet de gérer ' le cas où il s'agit d'une selection multiple If Not (IsEmpty(.Cells(1, 1))) Then Application.EnableEvents = False .Offset(, -2) = Format(Date, "mmmm") .Offset(, -1) = Date Application.EnableEvents = True End If Case 7, Is > 9 .Offset(, 1).Select Case 8 .Offset(, 2).Select End Select End With End Sub
bonjour,
sur une feuille j'ai la macro suivante :
Private Sub Worksheet_Change(ByVal target As Excel.Range) If target.Column = 3 Then target.Offset(, 4).Select If target <> "" Then target.Offset(, -2) = Format(Date, "mmmm") target.Offset(, -1) = Date End If End If End Sub
qui me permet de mettre le mois et la date du jour automatiquement après avoir entrée une valeur dans le colonne 3, et de me positionner directement sur la même ligne 4 colonnes plus loin après avoir tapé sur la touche entrée...
Comment compléter cette macro pour que : - en entrant une valeur en colonne 7, le curseur se déplace sur la même ligne en colonne 8 (donc la celulle à côté) - puis en entrant une valeur en colonne 8, curseur en colonne 10 même ligne - puis à partir de la colonne 10, que toute entrée entraîne un décalage d'une celulle à droite et non en- dessous comme c'est paramétrer par défaut.
