Worksheet_Change (RESOLU)

[JBARBE]

Bonsoir,

Sur la feuille " Liste " j'ai cette formule =SI(G3<>""; qui me donne une date !

Je ne comprends pas cette formule qui me pose probléme pour l'importation d'une date = ou antérieur à aujourd'hui !

Ici un exemple 11/01/14 ( je voudrais 11/01/13 sans changer la formule )

D'autre part lors de cette importation s'il elle se réalise la macro Worksheet_Change Plante !!!!

Ci-joint le fichier téléchargé sur internet et légèrement modifié par mes soins !

Merci à l'avance de votre aide !

 

[JBARBE]

Re : Worksheet_Change + Worksheet_BeforeRightClick + =SI(G3<>"";

J'ai modifié le fichier en supprimant la formule =SI(G3<>"" et tout ce qui lui concernait !

De ce fait, il reste l'importation ou la suppression dans la feuille " La_Banque_Postale" qui plante sur Worksheet_Change

Merci à l'avance !

 

[job75]

Re : Worksheet_Change

Bonjour JBARBE,

Annulé, désolé.

A+

 

[JBARBE]

Re : Worksheet_Change

Merci Job pour la réponse mais lorsqu’il s'agit à l'ouverture du fichier de valider et ainsi de copier dans la feuille " compte_banque_postale " la macro plante toujours sur If Target.Column = 7 And Target.Value = "Compte SG" Then ( ton code et mon code)

Mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "Compte SG" Then
  x = Sheets("Compte_Société_Générale").Range("B" & Rows.Count).End(xlUp).Row + 1
  Range("B" & Target.Row & ":G" & Target.Row).Copy Destination:=Sheets("Compte_Société_Générale").Range("B" & x)
  Sheets("Compte_Société_Générale").Range("C" & x) = "Virement"
  Sheets("Compte_Société_Générale").Range("D" & x) = "Compte BP"
  Sheets("Compte_Société_Générale").Range("G" & x) = "Compte BP"
  Sheets("Compte_Société_Générale").Range("F" & x) = Sheets("Compte_Société_Générale").Range("E" & x)
  Sheets("Compte_Société_Générale").Range("E" & x).ClearContents
End If
End Sub

 

[JBARBE]

Re : Worksheet_Change

OK job ! Merci quand même !

 

[job75]

Re : Worksheet_Change

Re,

La macro Change beugue si Target est une plage de plusieurs cellules (lors d'un effacement par exemple).

En 2ème ligne, au lieu de :

If Target.Column = 7 And Target.Value = "Compte SG" Then

utiliser :

If Target.Column = 7 And Target(1) = "Compte SG" Then

A+

 

[JBARBE]

Re : Worksheet_Change

C'est OK ! Merci Job voici le fichier terminé !

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column = 7 And Target.Value = "Compte SG" Then
If Target.Column = 7 And Target(1) = "Compte SG" Then
  x = Sheets("Compte_Société_Générale").Range("B" & Rows.Count).End(xlUp).Row + 1
  Range("B" & Target.Row & ":G" & Target.Row).Copy Destination:=Sheets("Compte_Société_Générale").Range("B" & x)
  Sheets("Compte_Société_Générale").Range("C" & x) = "Virement"
  Sheets("Compte_Société_Générale").Range("D" & x) = "Compte BP"
  Sheets("Compte_Société_Générale").Range("G" & x) = "Compte BP"
  Sheets("Compte_Société_Générale").Range("F" & x) = Sheets("Compte_Société_Générale").Range("E" & x)
  Sheets("Compte_Société_Générale").Range("E" & x).ClearContents
End If
End Sub

A+