Bonjour,
Par une macro je souhaite remplir des cellules automatiquement dés que d'autres sont saisient, ex: Si une cellule de la colonne "Listes" est remplie, je veux que dans la même ligne toutes les colonnes terminant par "..Type de champs" soient remplient automatiquement par "combobox".

J'ai une fonction que je veux améliorer svp, Précisemment (.InsertLines 4):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub GenerateCode(SheetName As Variant)
With ThisWorkbook.VBProject.VBComponents(SheetName).CodeModule
.InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 2, "If Cells(1, Target.Column).Value Like ""Listes"" Then"
.InsertLines 3, "Application.EnableEvents = False"
.InsertLines 4, "Target.Offset(0, 3) = ""combobox"""
.InsertLines 5, "Application.EnableEvents = True"
.InsertLines 6, "End If"
.InsertLines 7, "End Sub"
End With
End Sub
J'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.InsertLines 4, ".Cells(1,Target.Column).Value Like "*" & "Type de Champs" = ""combobox"""
Mais j'ai erreur de Syntax! Help !