Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Worksheet_Change (RESOLU)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JBARBE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

JBARBE

XLDnaute Barbatruc
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 !
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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 !
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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 :

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
 
Vote positif 0 Vote négatif
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 :

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

Code: 
If Target.Column = 7 And Target(1) = "Compte SG" Then
A+
 
Vote positif 0 Vote négatif
Re : Worksheet_Change

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

Code: 
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+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Résolu(e)
XL 2010 Archivage en fonction d'une cellule avec formule
Réponses
12
Affichages
2 K
Onil62
O
B
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
B
G
  • Question Question
Figer le résultat d'une formule à la fin du mois
2
Réponses
20
Affichages
4 K
Guy_L
G
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
N
  • Question Question
Simplification de formule
Réponses
9
Affichages
1 K
Neimad
N
M
  • Question Question
[MACRO] Erreur 400
Réponses
4
Affichages
2 K
_matt_44
M
C
  • Question Question
Comptabilisation du nombre d'heures
Réponses
6
Affichages
3 K
christophe697569
C
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…