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
MichD
Bonjour, À mettre dans le code module de la feuille '---------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Range("D:D"), Target) Application.EnableEvents = False If Not Rg Is Nothing Then 'au moins une cellule de la colonne D vient 'd'être validé For Each C In Rg 'la valeur en F = la valeur en D C.Offset(, 1).Value = C.Value Next 'Ton tri ici, Assure-toi que ton tri s'effectue ' sur les colonnes A à F End If Application.EnableEvents = True End Sub '---------------- MichD
Bonjour,
À mettre dans le code module de la feuille
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Range("D:D"), Target)
Application.EnableEvents = False
If Not Rg Is Nothing Then
'au moins une cellule de la colonne D vient
'd'être validé
For Each C In Rg
'la valeur en F = la valeur en D
C.Offset(, 1).Value = C.Value
Next
'Ton tri ici, Assure-toi que ton tri s'effectue
' sur les colonnes A à F
End If
Application.EnableEvents = True
End Sub
'----------------
Bonjour, À mettre dans le code module de la feuille '---------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Range("D:D"), Target) Application.EnableEvents = False If Not Rg Is Nothing Then 'au moins une cellule de la colonne D vient 'd'être validé For Each C In Rg 'la valeur en F = la valeur en D C.Offset(, 1).Value = C.Value Next 'Ton tri ici, Assure-toi que ton tri s'effectue ' sur les colonnes A à F End If Application.EnableEvents = True End Sub '---------------- MichD