A voir également:
- Macro excel07
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
1 réponse
UsulArrakis
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
2 avril 2009 à 14:16
2 avril 2009 à 14:16
salut
il faudrait déjà mettre le script de la macro
il faudrait déjà mettre le script de la macro
2 avril 2009 à 14:40
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
If Not Intersect(Target, Range("B:C")) Is Nothing Then
Set c = Sheets("Feuil2").Range("A:A").Find(Range("A" & Target.Row).Value)
If c Is Nothing Then
Set c = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(2, 0)
c.Value = Range("A" & Target.Row)
End If
Set d = Sheets("Feuil2").Range("A" & c.Row & ":IV" & c.Row).Find(Range("B" & Target.Row).Value)
If d Is Nothing Then
Sheets("Feuil2").Range("B" & c.Row & ":B" & c.Row).Insert shift:=xlToRight
Sheets("Feuil2").Range("B" & c.Row + 1 & ":B" & c.Row + 1).Insert shift:=xlToRight
Set d = Sheets("Feuil2").Range("B" & c.Row)
End If
d.Offset(0, 0) = Range("B" & Target.Row)
d.Offset(0, 0).NumberFormat = "dd/mm/yy"
d.Offset(1, 0) = Range("C" & Target.Row)
d.Offset(1, 0).NumberFormat = "# ### ##0.00 €"
End If
End Sub