Discussion :

[adel542]

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?

voici ma macro:

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
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

[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 ???
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 :

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

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.

[adel542]

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 ???
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 :

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

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

[Philippe Tulliez]

Bonjour,

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.

[adel542]

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)

[Menhir]

Supprime la ligne Select Case et remplace-le par .

Code :

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

   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.

[Menhir]

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.

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.

[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

[Patrice740]

Bonjour le Fil,

Essaies :

Code :

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

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 :

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

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