Fonction Worksheet_Change: Erreur de Syntaxe

**redhotchilipeppers** · 17/11/2014, 11h57

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 !

**SfJ5Rpw8** · 17/11/2014, 21h30

Bonsoir,

je suis étonné par ton code donc la fonctionnalité n'est pas celle que tu décris ...

est-tu sur de vouloir "écrire un code qui écrit du code " ?

**pgz** · 18/11/2014, 20h07

Bonsoir.

Tu veux obtenir quoi sur cette ligne ?

Cordialement

PGZ

**redhotchilipeppers** · 19/11/2014, 12h27

Désolée, je n'ai pas bien détaillé ma question,

Parmis les colonnes de mes feuilles: j'ai MINIMUM, MAXIMUM, Multiple, Format de Date, champs1 Type de champ, champs2 Type de champ, champs1 Optionel ou Requis, champs2 Optionel ou Requis ...
Quand je tape 0 dans MINIMUM, "champs1 Optionel ou Requis", "champs2 Optionel ou Requis" doit avoir Optionel,
Quand je tape 1 dans MINIMUM, "champs1 Optionel ou Requis", "champs2 Optionel ou Requis" doit avoir Requis,

J'ai crée la fonction mais ça ne marche pas comme je veux, par exemple quand je tape 0 dans la ligne 1 et je mets le curseur dans la ligne 2, j'ai Optionel qui s'affiche mais dans la ligne 2 et non pas 1.
Des fois même ça n'affiche pas la bonne valeur, soit Optionel soit Requis !
Quand je vide la cellule, les valeurs générées ne se suppriment pas.

Voici ma fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CreerCode(ShName As Variant)
    With ThisWorkbook.VBProject.VBComponents(ShName).CodeModule  
        .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
        .InsertLines 2, "Dim ws As Worksheet"
        .InsertLines 3, "Dim Col As Integer"
        .InsertLines 4, "Dim cel As String"
        .InsertLines 5, "Set ws = Worksheets(ActiveSheet.Name)"
        .InsertLines 26, "If Cells(1, Target.Column).Value Like ""MINIMUM"" Then"
          .InsertLines 27, "If ActiveCell.value=0 Then"
            .InsertLines 28, "Application.EnableEvents = False"
                .InsertLines 29, "For Col = 1 To Columns(Split(ws.UsedRange.Address, ""$"")(3)).Column"
                    .InsertLines 30, "cel = ws.Cells(1, Col)"
                    .InsertLines 31, "If cel Like ""*Optionel ou Requis"" Then"
                        .InsertLines 32, "ws.Cells(ActiveCell.row, Col).value = ""Optionel"""
                    .InsertLines 33, "End If"
                .InsertLines 34, "Next"
            .InsertLines 35, "Application.EnableEvents = True"
			.InsertLines 36, "ElseIf ActiveCell.value=1 Then"
				.InsertLines 37, "Application.EnableEvents = False"
					.InsertLines 38, "For Col = 1 To Columns(Split(ws.UsedRange.Address, ""$"")(3)).Column"
						.InsertLines 39, "cel = ws.Cells(1, Col)"
						.InsertLines 40, "If cel Like ""*Optionel ou Requis"" Then"
							.InsertLines 41, "ws.Cells(ActiveCell.row, Col).value = ""Requis"""
						.InsertLines 42, "End If"
					.InsertLines 43, "Next"
				.InsertLines 44, "Application.EnableEvents = True"
			.InsertLines 45, "End If"
        .InsertLines 46, "End If" 
        .InsertLines 47, "End Sub"
    End With
End Sub

Pourriez vous me dire où ça pose problème?

**SfJ5Rpw8** · 19/11/2014, 18h38

bonsoir,

pourquoi tu t’obstine à nous monter un code qui ne correspond pas à ta description de problème le code que tu nous montre ne modifie rien dans tes feuilles de calculs, il génère du code !!!

s'il s'agit d'un problème dans tes feuilles de calculs montre nous le code généré (Worksheet_Change) et pas ce code intermédiaire, dont l’utilité reste à prouver ...

**Stef999** · 19/11/2014, 19h57

Bonjour,

Worksheet_Change(ByVal Target As Range) utilise Target pour indiquer la plage qui a été modifiée.

C'est donc Target qu'il faut "étudier" (ligne 27 et autres) et non pas ActiveCell (car quand on saisie dans une cellule et qu'on fait Entrée, généralement la cellule d'en dessous devient la cellule active)

Cordialement,

Stéphane

**redhotchilipeppers** · 20/11/2014, 11h26

Bonjour,

Bbil,
Oui le code doit générer des valeurs, ça marche pour des listes déroulantes, mais pas quand on saisie nous même les valeurs (comme dans la fonction). Je connais pas grand chose en vba, c'est pour ça que ça bloque à ce niveau

Stéphane,
C'est bien la condition d'ActiveCell dont je me doutais, comment stp puis je utiliser Target à sa place?

Merci

**SfJ5Rpw8** · 20/11/2014, 11h47

Envoyé par redhotchilipeppers

Bonjour,

Bbil,
Oui le code doit générer des valeurs, ça marche pour des listes déroulantes, mais pas quand on saisie nous même les valeurs (comme dans la fonction). Je connais pas grand chose en vba, c'est pour ça que ça bloque à ce niveau

..

bonjour ,

encore une fois ton code n'agit pas sur des listes déroulantes , ton code génère la sub Worksheet_Change !!

pourquoi as tu besoin de générer du code ?

**redhotchilipeppers** · 20/11/2014, 12h04

Bonjour,

C'est pour remplir, autant que possible, et automatiquement des cellules.
si on renseigne manuellement '0' dans une cellule "MINIMUM" par exemple, on veut qu'automatiquement 'Optionel' soit renseigné dans la case correspondante de "*Optionel ou Requis" ..ainsi de suite
C'est une action Change, c'est pour ça normalement que j'ai pensé à l'integrer dans Worksheet_Change !

**SfJ5Rpw8** · 20/11/2014, 16h25

oui mais relis ton premier message pourquoi si tu as un problème dans workSheet_Change tu nous poste un code qui s'appelle creer_code ?

**redhotchilipeppers** · 20/11/2014, 17h01

En fait, Worksheet_Change est integré dans la fonction creer_code que je lui fais appel dans une autre fonction qui lance la macro.
Le truc est que je ne peux pas mettre Worksheet_Change directement dans les feuilles car les feuilles se génèrent aussi automatiquement par cette même Macro. De plus il y'a plusieurs fonctions et macros, et pour ne pas compliquer les choses je n'ai envoyé que la fonction en question.

Invité · 20/11/2014, 19h36

Salut,

Tu as l'événement Workbook_SheetChange qui est fait pour ça. Et si cela ne suffit pas parce que tu génère un classeur (Workbook), tu as l'événement Application_SheetChange qui est utilisable en créant une variable WithEvents.
Private WithEvents ThisApplication As Excel.Application

**redhotchilipeppers** · 21/11/2014, 15h40

Bonjour Nouveau2,
J'ai testé en remplaçant Worksheet_Change par Workbook_SheetChange et par Application_SheetChange, mais je n'ai plus rien qui se génère, à mon avis, c'est le corps de la fonction qui pose problème, ça se génère chez moi, mais pas toujours avec la bonne valeur ou le bon emplacement.
Je doute de l'expression : ActiveCell.Value=1 , y'a t-il peut être un alternatif?

Est ce que quelqu'un peut m'aider SVP à trouver une solution?

**SfJ5Rpw8** · 21/11/2014, 17h21

Envoyé par redhotchilipeppers

..

Est ce que quelqu'un peut m'aider SVP à trouver une solution?

bonjour, je t'aurais bien aidé mais tu n'as toujours pas posté (entre balise de [Code]) le code Worksheet_Change qui te pose problème ..! !! le seul code que tu as posté et qui permet d'écrire du code à l'air fonctionnel .!

ensuite tu as Stef999 qui à fait l'effort de comprendre à quoi devrai ressembler ton code WorkSheet_Change et qui t'as donné une piste pour tes ActiveCell que tu n'as pas encore exploité !

**parmi** · 21/11/2014, 17h42

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

se trouve dans ThisWorkbook.

Tu peux donc vérifier la feuille (Sh) où le changement a été effecté.
Et la cellule (Target) qui a été modifiée.

Inscris ceci dans Thisworkbook et supprime ton appel à CreerCode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim NoCol As Integer
    Dim cellHeader As String
 
    If Cells(1, Target.Column).Value Like "Listes" Then
        Application.EnableEvents = False
            For NoCol = 1 To Columns(Split(Sh.UsedRange.Address, "$")(3)).Column
                cellHeader = Sh.Cells(1, NoCol)
                If cellHeader Like "*Type de Champs" Then
                    Sh.Cells(Target.Row, NoCol).Value = "liste"
                End If
            Next
        Application.EnableEvents = True
    End If
 
    If Cells(1, Target.Column).Value Like "*Date*" Then
        Application.EnableEvents = False
            For NoCol = 1 To Columns(Split(Sh.UsedRange.Address, "$")(3)).Column
                cellHeader = Sh.Cells(1, NoCol)
                If cellHeader Like "*Field Type" Then
                    Sh.Cells(Target.Row, NoCol).Value = "Date"
                End If
            Next
        Application.EnableEvents = True
    End If
 
    If Cells(1, Target.Column).Value Like "Minimum" Then
        If Target.Value = 0 Then
            Application.EnableEvents = False
            For NoCol = 1 To Columns(Split(Sh.UsedRange.Address, "$")(3)).Column
                cellHeader = Sh.Cells(1, NoCol)
                If cellHeader Like "*Optionel ou Requis" Then
                    Sh.Cells(Target.Row, NoCol).Value = "Optionel"
                End If
            Next
            Application.EnableEvents = True
        ElseIf Target.Value = 1 Then
            Application.EnableEvents = False
            For NoCol = 1 To Columns(Split(Sh.UsedRange.Address, "$")(3)).Column
                cellHeader = Sh.Cells(1, NoCol)
                If cellHeader Like "*Optionel ou Requis" Then
                    Sh.Cells(Target.Row, NoCol).Value = "Requis"
                End If
            Next
            Application.EnableEvents = True
        End If
    End If
End Sub

**redhotchilipeppers** · 22/11/2014, 15h33

Youpiii ça marche finalement, je ne savais pas à quoi servait ThisWorkbook, ni où poser le code de la fonction Workbook_SheetChange, je dormirai moins bete aujourd'hui grace à toi.

Merci beaucoup Parmi

Fonction Worksheet_Change: Erreur de Syntaxe [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager