Année ou mois si valeur colonne B remplie

Fermé

David74 - 17 mars 2021 à 18:18
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 18 mars 2021 à 07:46

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:

Année ou mois si valeur colonne B remplie
Déplacer une colonne excel - Guide
Colonne word - Guide
Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
B parts avis - Forum Consommation & Internet
Si valeur présente dans colonne alors ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 mars 2021 à 07:46

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!

Discussions similaires

convertir des trimestres en ans mois et jours

Formule Excel : "SI" une cellule contient un mot, alors ?

Pix

Formule Excel pour afficher les mois (chiffres) en lettre

code couleur associé a une image

Discussions similaires

Newsletters