XL 2019 Intégrer texte si date présente dans une cellule

[66alex66]

Bonjour,

Je suis à la recherche d'une fonction sous VBA permettant d'associer la valeur M³ dans a colonne B (écrit exactement de cette manière avec la majuscule, mais sans le "gras"), en cliquant sur un bouton :

Cette valeur doit s'intégrer uniquement si une date est détectée dans la colonne A.

Je cherche donc à ce que cette association se réalise en cliquant uniquement sur un bouton sous VBA
En effet, ma feuille doit rester telle quelle sans ajout d'un tableau annexe sous "query", etc.

Et donc, on passerait de ceci :

A ceci :

 

[vgendron]

Bonjour

un début avec ce code

Sub ajouterM3()
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
    For i = 1 To fin
        If IsDate(.Range("A" & i)) Then .Range("B" & i) = "M3"
    Next i
End With
End Sub

pour mettre le 3 en exposant..??...

 

[66alex66]

Un tout grand merci, ça marche parfaitement ;-)