Combiner 2 Worksheet_Change, erreur ambigu

Bonjours j'aimerai savoir comment combiner c'est 2 code

De facon séparer,car j'ai une erreur ,on ne peut metre 2 Worksheet_Change dans la meme feuille !

le code 1

Option Explicit

Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 6 Then Exit Sub
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
  Call RunOnTime
End Sub

le code 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
Target.Offset(0, 3) = Date
End If
End Sub

Yaurai t'il une facon pour que sa fonctionne , en fait lorsque une cellule dans G est modifier jaimerai date + heure dans la cellule

J

Merci beaucoup de votre aide.

Bonjour

Déjà, déclare ta variable

Si tu veux séparer les 2 actions

Public Sub Worksheet_Change(ByVal Target As Range)
  Dim Temp#
  If Target.Column = 6 Then
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
  Call RunOnTime
ElseIf Target.Column = 7 Then
Target.Offset(0, 3) = Date & " " & Time
End If
End Sub

Si les 2 actions sont simultanées

Public Sub Worksheet_Change(ByVal Target As Range)
  Dim Temp#
  If Target.Column = 6 Then
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
 Cells(Temp#,10)= Date & " " & Time
  Call RunOnTime
End If
End Sub

Cordialement

Bonsoir

Bonsoir Amadéus

A tester

Option Explicit

Public Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Long
  If Target.Column = 6 Then
    Temp = Target.Row
    Cells(Temp, 7) = 60
    Call RunOnTime
  ElseIf Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Target.Offset(0, 3) = Date
  End If
End Sub

Edit : Zavaiszoublié la déclaration de la variable

Je suis désoler mais cela ne fonctionne pas je vous donne donc le code complet ainsi que la feuille Excel

Espérant que quelqu'un trouve une solution, car pour l'instant je reste mal prit.

Je vous explique son fonctionnement lorsque je entre en E2 une valeur , un chrono de 60 seconde démarré en F2.

une foi le Chonos Terminer, je dois entrer une nouvelle valeur en G2, et au moment ou je entre une valeur en G2, je dois avoir La date et L'heure fixer dans I2.Croyez vous que cest possible ?

voici les code complet

Option Explicit

Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 6 Then Exit Sub
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
  Call RunOnTime
End Sub

Module1

Option Explicit

Public Temp#
Public dTime As Date

Sub RunOnTime()
  dTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime dTime, "RunOnTime"
  Cells(Temp#, 7).Value = Cells(Temp#, 7).Value - 1
  If Cells(Temp#, 7).Value = 0 Then Call CancelOnTime
End Sub

Sub CancelOnTime()
  Application.OnTime dTime, "RunOnTime", , False
  Cells(Temp#, 7).Value = "Terminer"
End Sub

et voici le document Excel

Merci a vous.

merci de votre aide

Bonjour

A vérifier si j'ai compris

Oui Ces super parfait ! mais je ne comprend pas je croyai que on ne pouvai pas avoir 2 foi

Public Sub Worksheet_Change(ByVal Target As Range)

SA me fesai une erreure.

Mai sinon ton code est super merci beaucoup,

je me demandait aussi si tu aurai pas un code dans ta bibliothe qui me permetrait de créer un bouton dinversion

en gros le bouton ferai ceci

SI dans (C2) est écrit au "Au dessu" inverser et ecrire "En dessou"

SI dans (C2) est écrit au "En dessou" inverser et ecrire "Au dessu"

SI dans (C2) est vide ne rien faire.

Cela me serai utile pour sortir des statistiques de comparaison.

Merci a toi

je marque quand même résolut.

Bonjour

Pour info dans le module de la feuille il n'y qu'une fois la procédure Public Sub Worksheet_Change(ByVal Target As Range) fonctionnelle

L'autre est mise en remarque : cela veut dire qu'elle n'est pas utilisée

Je l'ai enlevée dans cette version

Je ne comprend pas trop ton histoire de bouton (à moins d'avoir un bouton par ligne)

Un essai avec le double clic

Tu te places sur une cellule de la colonne C et tu double clic

Oui désoler la fatigue m'avait fait ignorer la couleur, merci

Pour le double clique ces une bonne idée je la retiendrai pour autre chose, mais en fait je parlait d'un bouton, car je vous qu'il agisse sur toute la colonne au complète, et non juste sur une cellule unique.

Example dans la Colonne C il ya comme donnée

Au dessu

Au dessu

En dessou

Au dessu

En dessou

Au dessu

Au dessu

En cliquand sur le bouton ,celui si inverse les valeur de chacune des information dans la colone C

qui donnerai

En dessou

En dessou

Au dessu

En dessou

Au dessu

En dessou

En dessou

Bonjour

A vérifier

Excellant , j'ai ajouter

=SI(ESTVIDE(G11);"";SI(H11=3;B11;SI(H11=1;SI(H10=1;SI(H9=1;SI(H8=1;SI(H7=1;SI(H6=1;8000;$L$32);$L$31);$L$30);$L$29);$L$28);$L$27)))

a la colone B car sa faussais les résulta ,

Toute est parfait merci énormément.

je suis heureux

Resalut banzai64 peut etre saurai tu encore une foi, maider il sagi du meme classeur , jai adorer ton bouton, je chercherai a faire quelque chause de similaire mais je bloc.

voici le sujet en question

https://forum.excel-pratique.com/excel/with-selection-querytable-prise-en-charge-des-scripte-t44564.html

Bonjour

Pas la peine de me demander : Quand je sais, j'aide

Amicalement