Explication VBA [Excel]

Résolu/Fermé

olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 22 juil. 2011 à 19:12
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 22 juil. 2011 à 23:32

Bonjour,

J'ai un code que je dois expliquer dans mon rapport de stage mais je ne sais pas "traduire" le code

quand quelque chose est noté dans la colonne I la date se met juste à coté

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub

Merci

A voir également:

Explication VBA [Excel]
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

1 réponse

Réponse 1 / 1

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
Modifié par Mytå le 22/07/2011 à 23:33

Salut le forum

Quand quelchose est inscrit dans une cellule des plages I2:I100, K2:K100, M2:M100 ou O2:O100 alors
la date du jour est automatiquement écrite dans la cellule voisine.

Mytå

Discussions similaires

Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.

Discussions similaires

Newsletters