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 ;-)