Nom ambigu détecté worksheet_change

Version imprimable

Bonjour à tous

j'ai un petit souci avec une macro, j'ai vu un post similaire à mon problème mais je n'arrive pas à l'adapter à ma situation, quelqu'un peut il me donner un coup de pouce svp?:D

voici ma macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Count > 1 Then Exit Sub
   If Target.Column <> 12 Then Exit Sub
   If Target.Row < 4 Then Exit Sub
   Target.Offset(0, 8) = Date
   Target.Offset(0, 8).Value = Target.Offset(0, 8).Value
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Count > 1 Then Exit Sub
   If Target.Column <> 11 Then Exit Sub
   If Target.Row < 4 Then Exit Sub
   Target.Offset(0, 9) = Date
   Target.Offset(0, 9).Value = Target.Offset(0, 9).Value
End Sub

Je vous remercie par avance :mrgreen:

Si ces deux macros sont dans le même module, c'est normal que VBA proteste : lors d'une saisie, comment savoir laquelle déclencher ??? :scarymov:
Il ne peut y avoir qu'une seule macro évènementielle de chaque type dans un module.

Ce code fait la même chose que les deux tiens :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Select Case Target.Column Cells(Target.Row, 20).Value = Date Cells(Target.Row, 20).Value = Cells(Target.Row, 20).Value End Sub
Mais je ne comprends pas l'intérêt de la dernière ligne.

06/09/2019, 17h00
Philippe Tulliez

Bonjour,
On ne peut avoir qu'une seule procédure par événement d'où le message signalant une ambiguïté
Il y a lieu de définir une structure décisionnelle (If ou Select Case) plus étoffée à l'intérieure de la seule procédure événementielle Worksheet_Change

Citation:
Envoyé par Menhir
Si ces deux macros sont dans le même module, c'est normal que VBA proteste : lors d'une saisie, comment savoir laquelle déclencher ??? :scarymov:
Il ne peut y avoir qu'une seule macro évènementielle de chaque type dans un module.

Ce code fait la même chose que les deux tiens :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Select Case Target.Column Cells(Target.Row, 20).Value = Date Cells(Target.Row, 20).Value = Cells(Target.Row, 20).Value End Sub
Mais je ne comprends pas l'intérêt de la dernière ligne.
Bonjour

merci de ta réponse mais cela ne fonctionne pas :(
en fait le but etant d'afficher la date du jour de l'analyse dans une cellule et je voulais que la date reste figer par quelle change à chaque ouverture du fichier

du coup ma macro marchait dans le sens où en rentrant l'info dans une case ça m’afficher la date dans une autre,
je pensais qu'en la dupliquant pour que l'info des cellules situées dans une autre colonne affiche également la date mais ca ne marche pas :?

trop beau pour être vrai ahahaha

06/09/2019, 19h29
Philippe Tulliez

Bonjour,

Citation:

merci de ta réponse mais cela ne fonctionne pas

Indiquer que cela ne fonctionne pas, ne va pas aider à t'apporter une bonne réponse.
Qu'est-ce qui ne fonctionne pas ?
Le résultat escompté n'est pas ce que tu attends ?
Un message d'erreur apparaît et si oui quel numéro d'erreur, son message et à quelle ligne ?

A première vue je pencherais pour un message d'erreur dû au fait que l'instruction End Select est absente de la procédure et de plus aucun Case pour le test.
06/09/2019, 20h30
adel542

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Indiquer que cela ne fonctionne pas, ne va pas aider à t'apporter une bonne réponse.
Qu'est-ce qui ne fonctionne pas ?
Le résultat escompté n'est pas ce que tu attends ?
Un message d'erreur apparaît et si oui quel numéro d'erreur, son message et à quelle ligne ?

A première vue je pencherais pour un message d'erreur dû au fait que l'instruction End Select est absente de la procédure et de plus aucun Case pour le test.

oui effectivement excuse moi je développe ^^

quand je mets ton code et que je rentre la valeur dans la cellule voulu ca me met: "erreur de compilation, instructions et étiquettes incorrecte entre Select Case et le premier Case" et ca me surligne en jaune la première ligne du code : Private Sub Worksheet_Change(ByVal Target As Range)

:)
09/09/2019, 09h05
Menhir

Supprime la ligne Select Case et remplace-le par .

Code:

If Target.Column > 12 Or Target.Column < 11 Then Exit Sub

C'est une scorie du premier code que j'avais écrit avant de comprendre que tes deux code faisaient exactement la même chose.

Bonjour le Fil,

Essaies :

Code:

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 And Target.Row >= 4 Then
     If Target.Column = 12 Then Target.Offset(0, 8) = Date
     If Target.Column = 11 Then Target.Offset(0, 9) = Date
   End If
End Sub

Edit : pour prendre en compte les copier/coller sur une plage, je préfère :

Code:

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row >= 4 Then
     If Target.Column = 12 Then Target.Offset(0, 8) = Date
     If Target.Column = 11 Then Target.Offset(0, 9) = Date
   End If
End Sub

09/09/2019, 10h17
Menhir

Citation:

Envoyé par adel542

je voulais que la date reste figer par quelle change à chaque ouverture du fichier

Ce n'est pas ton ".Value = .Value" qui va y changer quoi que ce soit étant donné que tu places dans cette cellule une valeur et non une fonction.

Donc la dernière ligne ne sert à rien et peut être supprimée.

Citation:

je pensais qu'en la dupliquant pour que l'info des cellules situées dans une autre colonne affiche également la date mais ca ne marche pas :?

On ne peut faire qu'un seul Worksheet_Change.

C'est ensuite à l'intérieur de la macro qu'on gère les différents cas.
Mais pour ton appli, ce ne sont même pas des cas différents puisque les deux codes font exactement la même chose dans la même cellule.

Citation:

Envoyé par Menhir

Supprime la ligne Select Case et remplace-le par .

Code:

If Target.Column > 12 Or Target.Column < 11 Then Exit Sub

C'est une scorie du premier code que j'avais écrit avant de comprendre que tes deux code faisaient exactement la même chose.

Bonjour

Merci ta solution combinée à celle de Philippe Tulliez a fonctionné merci beaucoup :)
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 4 Then If Target.Column = 12 Then Target.Offset(0, 8) = Date If Target.Column = 11 Then Target.Offset(0, 9) = Date End If End Sub
fonctionne aussi mais dès que je supprime ou étire la cellule les dates se mettent de partout et tout le temps lol je vais donc resté sur le choix numéro 1

Dernière question si je souhaite étendre cette même macro, toujours dans le même tableau Excel, à une autre colonne pour afficher la date cette fois dans une colonne différente de celle utilisée actuellement est ce jouable ou ça devient trop compliqué?

(je ne sais pas si c'est bien clair)

Encore merci pour tout

09/09/2019, 13h52
Menhir

Citation:

Envoyé par adel542

fonctionne aussi mais dès que je supprime ou étire la cellule les dates se mettent de partout et tout le temps lol je vais donc resté sur le choix numéro 1

Il suffit de commencer le code par If Target.Count > 1 Then Exit Sub.

Citation:

Dernière question si je souhaite étendre cette même macro, toujours dans le même tableau Excel, à une autre colonne pour afficher la date cette fois dans une colonne différente de celle utilisée actuellement est ce jouable ou ça devient trop compliqué?

Voir le code de Patrice740 ( :coucou: ) et la succession de If.