Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Excel Figer Valeur dans Worksheet_Change

 

INTERNET : JVelon et 132 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Excel Figer Valeur dans Worksheet_Change

RÉSOLU
Prévenir les modérateurs en cas d'abus 
Céline84
celine84
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 11/10/2013 à 04:27:56  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour :)


Après le renseignement automatique dans la cellule B1, comment figer cette valeur en B1, afin qu'une prochaine
modification en A1 ne soit plus pris en compte en B1 ???

Le Fichier : http://dl.free.fr/kqFOvrAkk

http://s23.postimg.org/8ppgtr1​uj/Date_auto_apr_s_changement_​d_une_cellule.jpg


@ Bientôt, Céline :)
Message édité par Céline84 le 11/10/2013 à 04:37:22
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 11/10/2013 à 11:13:42  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Si je reprends le code que tu mets dans ta zone de texte, je dirais bien la chose suivante :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.  On Error Resume Next
  3.  Val = Target.Value
  4.  If Not Intersect(Target, [A:A] ) Is Nothing And Val = "" Then
  5.    Val = Now
  6.  End If
  7.  Target(1, 2) = Val
  8. 'Ajuste la largeur de la colonne
  9.  Columns("B:B").EntireColumn.AutoFit
  10. End Sub


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
(Publicité)
celine84
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 11/10/2013 à 17:01:35  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Sur la ligne : Val = Target.Value

Erreur : Un appel de fonction dans la partie
gauche de l'affectation doit renvoyer
Variant ou Object

Que faire ???
@ Bientôt, Céline :)

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 11/10/2013 à 17:30:47  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Rajoute juste avant la ligne suivante :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Dim Val as String


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
celine84
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 12/10/2013 à 03:54:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour :)

Rien ne vas plus :(

- Réplications multiples de la valeur de saisie...
- Affichage de la Date en colonne "CD"
- Plus d'auto ajustement de la colonne où se trouve la date

c'est tout ;)

Le fichier modifié avec ton code : http://dl.free.fr/gkb2gUW72

@ Bientôt, Céline :)

(Publicité)
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 12/10/2013 à 07:46:22  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
J'ai retesté, en effet, ça fonctionnait pas vraiment !
Je crois que j'ai trouvé la bonne solution :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.  On Error Resume Next
  3.  Dim val As String
  4.  val = Target(1, 2).Value
  5.  If Not Intersect(Target, [A:A] ) Is Nothing And val = "" Then
  6.    val = Now
  7.  End If
  8.  Target(1, 2) = val
  9. 'Ajuste la largeur de la colonne
  10.  Columns("B:B").EntireColumn.AutoFit
  11. End Sub


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
celine84
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 12/10/2013 à 11:56:52  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
C'est entièrement fonctionnel ;)

Un grand MERCI pour tout :):) :)

Céline :)

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 12/10/2013 à 13:11:46  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
De rien, avec plaisir.


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Plus de sujets relatifs à : Excel Figer Valeur dans Worksheet_Change

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Bordures en Publisher2010 0
Excel Coller 2 classeurs 0
Excel Rechercher la dernière Feuille 3
Excel Valeur en Numérique 7
Excel Mise en Page 2