Private Sub Worksheet_Change(ByVal Target As Range)
If ((Range("D" & Target.Row).Value = "x" And Range("E" &
Target.Row).Value = "")) Then
Range("D" & Target.Row).Value = Range("C" & Target.Row).Value
End If
If ((Range("E" & Target.Row).Value = "x" And Range("D" &
Target.Row).Value = "")) Then
Range("E" & Target.Row).Value = Range("C" & Target.Row).Value
End If
End Sub
qui a pour role de copier le contenu de la cellule Cn dans la cellule
Dn ou En si l'une de ces dernieres contenait le signe x.
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
Hervé
Bonsoir,
Peut être comme ceci ?
Private Sub Worksheet_Change(ByVal Target As Range) With Target If ((Range("D" & .Row) = "x" _ And Range("E" & .Row) = "")) Then _ Range("D" & .Row) = Range("C" & .Row) If ((Range("E" & .Row) = "x" _ And Range("D" & .Row) = "")) Then _ Range("E" & .Row) = Range("C" & .Row) End With End Sub
Hervé.
"Apitos" a écrit dans le message de news:
Bonsoir,
J'aimerais alleger mon code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If ((Range("D" & Target.Row).Value = "x" And Range("E" & Target.Row).Value = "")) Then Range("D" & Target.Row).Value = Range("C" & Target.Row).Value End If If ((Range("E" & Target.Row).Value = "x" And Range("D" & Target.Row).Value = "")) Then Range("E" & Target.Row).Value = Range("C" & Target.Row).Value End If End Sub
qui a pour role de copier le contenu de la cellule Cn dans la cellule Dn ou En si l'une de ces dernieres contenait le signe x.
Merci.
Bonsoir,
Peut être comme ceci ?
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If ((Range("D" & .Row) = "x" _
And Range("E" & .Row) = "")) Then _
Range("D" & .Row) = Range("C" & .Row)
If ((Range("E" & .Row) = "x" _
And Range("D" & .Row) = "")) Then _
Range("E" & .Row) = Range("C" & .Row)
End With
End Sub
Hervé.
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1159803556.056660.201980@i3g2000cwc.googlegroups.com...
Bonsoir,
J'aimerais alleger mon code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If ((Range("D" & Target.Row).Value = "x" And Range("E" &
Target.Row).Value = "")) Then
Range("D" & Target.Row).Value = Range("C" & Target.Row).Value
End If
If ((Range("E" & Target.Row).Value = "x" And Range("D" &
Target.Row).Value = "")) Then
Range("E" & Target.Row).Value = Range("C" & Target.Row).Value
End If
End Sub
qui a pour role de copier le contenu de la cellule Cn dans la cellule
Dn ou En si l'une de ces dernieres contenait le signe x.
Private Sub Worksheet_Change(ByVal Target As Range) With Target If ((Range("D" & .Row) = "x" _ And Range("E" & .Row) = "")) Then _ Range("D" & .Row) = Range("C" & .Row) If ((Range("E" & .Row) = "x" _ And Range("D" & .Row) = "")) Then _ Range("E" & .Row) = Range("C" & .Row) End With End Sub
Hervé.
"Apitos" a écrit dans le message de news:
Bonsoir,
J'aimerais alleger mon code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If ((Range("D" & Target.Row).Value = "x" And Range("E" & Target.Row).Value = "")) Then Range("D" & Target.Row).Value = Range("C" & Target.Row).Value End If If ((Range("E" & Target.Row).Value = "x" And Range("D" & Target.Row).Value = "")) Then Range("E" & Target.Row).Value = Range("C" & Target.Row).Value End If End Sub
qui a pour role de copier le contenu de la cellule Cn dans la cellule Dn ou En si l'une de ces dernieres contenait le signe x.
Merci.
Apitos
Bonsoir Hervé;
Bonsoir,
Peut être comme ceci ?
Private Sub Worksheet_Change(ByVal Target As Range) With Target If ((Range("D" & .Row) = "x" _ And Range("E" & .Row) = "")) Then _ Range("D" & .Row) = Range("C" & .Row) If ((Range("E" & .Row) = "x" _ And Range("D" & .Row) = "")) Then _ Range("E" & .Row) = Range("C" & .Row) End With End Sub
Hervé.
Pas mal ..
Merci Hervé.
Bonsoir Hervé;
Bonsoir,
Peut être comme ceci ?
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If ((Range("D" & .Row) = "x" _
And Range("E" & .Row) = "")) Then _
Range("D" & .Row) = Range("C" & .Row)
If ((Range("E" & .Row) = "x" _
And Range("D" & .Row) = "")) Then _
Range("E" & .Row) = Range("C" & .Row)
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) With Target If ((Range("D" & .Row) = "x" _ And Range("E" & .Row) = "")) Then _ Range("D" & .Row) = Range("C" & .Row) If ((Range("E" & .Row) = "x" _ And Range("D" & .Row) = "")) Then _ Range("E" & .Row) = Range("C" & .Row) End With End Sub