Année ou mois si valeur colonne B remplie

David74 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un tableau qui se rempli par un formulaire (dernière ligne du tableau)
La colonne MF se rempli automatiquement si colonne B a une date

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c, iSct As Range
On Error GoTo errh
Set iSct = Intersect(Target, Range("b:b"))
If iSct Is Nothing Then Exit Sub

Application.EnableEvents = False
For Each c In iSct.Cells
If IsEmpty(c) Then
c.Offset(0, 342) = ""
Else
c.Offset(0, 342) = Format(Now, "dd/mm/yy-hh:nn:ss")
End If
Next
errh:
Application.EnableEvents = True
End Sub

Quel est le code pour remplir la colonne MG avec le mois de la colonne B et la colonne MH l'année

D'avance merci pour votre aide ... !
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

format des cellules en VBA. Adaptez les adresses
 Range("C10:D10") = Range("B3")
    Range("C10").NumberFormat = "mm"    'mois sur deux chiffres
    Range("D10") = Format(Range("B3"), "yy")


Pourquoi faites vous une recherche d'une cellule?
Vous avez la ligne avec
Target.Row
de la cellule Bx modifiee!
0