Bonjour tout le monde,
J'ai dû faire un code VBA qui n'a ni queue ni tête ...
Je vous explique ce que je souhaiterais (je vous joint un extrait du fichier pour mieux comprendre).
En A2, B2 et C2, j'ai des listes.
Et je souhaiterais que lorsque je tape la date (dans la colonne E), ça me mette automatiquement dans les colonnes B,C et D, les valeurs sélectionnées dans la liste (sur la même ligne que la date venant d’être tapée bien sûr).
Et lorsque je sélectionne d'autres choix dans mes listes, que ça ne change pas les valeurs qui sont déjà rentrées ...
Voici le code que j'ai fait
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E6:E1048576")) Is Nothing Then Call Ecriture
End Sub
Sub Ecriture()
Dim Réf As String
Dim lngLigne As Long
Réf1 = Sheets("Feuille").Cells(2, 1)
Réf2 = Sheets("Feuille").Cells(2, 2)
Réf3 = Sheets("Feuille").Cells(2, 3)
lngLigne = Sheets("Feuille").Range("E6").End(xlDown)
If Sheets("Feuille").Range("E6" & lngLigne).Value <> "" Then
Cell.Offset(0, -3) = Réf1
Cell.Offset(0, -2) = Réf2
Cell.Offset(0, -1) = Réf3
End If
End Sub
Clem