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

incorporer Date automatiquement dans une cellule grace au VBA ...

Phylo

XLDnaute Occasionnel
Bonjour,
Je suis un débutant du codage VBA:
J'aimerai insérer une macro qui permet d'insérer automatiquement (ex: B2) lorsque je rentre les initilaes dans la cellule A2:
La meme chose; j'aimerai que la macro insére la date dans K2 lorsque je remplis J2, Merci de m'aider pour faire tous ces commandes dans une meme macro

voici le code qui marche pour A2 et B2,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
If Target(1, 2) = "" Then Target(1, 2) = Now
End If
End Sub

mais je ne sais pas comment continuer avec les autres colonnes dans la meme.


Merci d'avance
 

FlamXYZ

XLDnaute Nouveau
Salut

Si j'ai bien compris tu veux faire apparaitre automatiquement les datess sur les colone B et J lorsque tu entres des données dans la colonnes qui precede chacune.

Les instructions ci dessous doit etre placer dans le code de la feuille


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, range("A:A")) is Nothing and target. value <> "" Then
target.offset(0,1).value= date
End If
If Not Intersect(Target, range("J:J")) is Nothing and target. value <> "" Then
target.offset(0,1).value= date
end if
End Sub
 

Phylo

XLDnaute Occasionnel
Bonjour Flam
C'est exactement ce que je veux, mais malheureusement le code a marché seulement pour la colonne A.
voir fichier ci-joint

Merci d'avance
 

Pièces jointes

  • Statistiques HICHAM.xlsm
    33.1 KB · Affichages: 8

Discussions similaires

Réponses
7
Affichages
329
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…