Bonjour à tous !
J'aimerai que dans un tableau, dès qu'il y a une valeur dans la colonne D,
excel m'insere une ligne au dessus de celle ou il y a cette valeur et que La
cellule en colonne A de cette nouvelle ligne prenne la valeur de la valeur
trouvée dans la colonne D...
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
AV
A tester si ça correspond à ton désir :
Sub zzz() x = [D65536].End(3).Row For i = x To 1 Step -1 If Cells(i, "D").Value <> "" Then Rows(i & ":" & i).Insert Shift:=xlDown Cells(i, "A").Value = Cells(i + 1, "D").Value End If Next End Sub
AV
A tester si ça correspond à ton désir :
Sub zzz()
x = [D65536].End(3).Row
For i = x To 1 Step -1
If Cells(i, "D").Value <> "" Then
Rows(i & ":" & i).Insert Shift:=xlDown
Cells(i, "A").Value = Cells(i + 1, "D").Value
End If
Next
End Sub
Sub zzz() x = [D65536].End(3).Row For i = x To 1 Step -1 If Cells(i, "D").Value <> "" Then Rows(i & ":" & i).Insert Shift:=xlDown Cells(i, "A").Value = Cells(i + 1, "D").Value End If Next End Sub
AV
papou
Bonjour Sinon en utilisant l'évènement Change de ta feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column <> 4 Or Target.Value = "" _ Then Exit Sub Rows(Target.Row).Insert , shift:=xlDown Cells(Target.Row - 1, 1) = Target.Value End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous ! J'aimerai que dans un tableau, dès qu'il y a une valeur dans la colonne D, excel m'insere une ligne au dessus de celle ou il y a cette valeur et que La
cellule en colonne A de cette nouvelle ligne prenne la valeur de la valeur trouvée dans la colonne D...
Merci d'avance pour votre aide ! Arnaud !
Bonjour
Sinon en utilisant l'évènement Change de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 4 Or Target.Value = "" _
Then Exit Sub
Rows(Target.Row).Insert , shift:=xlDown
Cells(Target.Row - 1, 1) = Target.Value
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:u4kwKPcsEHA.3136@TK2MSFTNGP11.phx.gbl...
Bonjour à tous !
J'aimerai que dans un tableau, dès qu'il y a une valeur dans la colonne D,
excel m'insere une ligne au dessus de celle ou il y a cette valeur et que
La
cellule en colonne A de cette nouvelle ligne prenne la valeur de la valeur
trouvée dans la colonne D...
Bonjour Sinon en utilisant l'évènement Change de ta feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column <> 4 Or Target.Value = "" _ Then Exit Sub Rows(Target.Row).Insert , shift:=xlDown Cells(Target.Row - 1, 1) = Target.Value End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous ! J'aimerai que dans un tableau, dès qu'il y a une valeur dans la colonne D, excel m'insere une ligne au dessus de celle ou il y a cette valeur et que La
cellule en colonne A de cette nouvelle ligne prenne la valeur de la valeur trouvée dans la colonne D...
