Petit test a modifier en VBA

Fermé
dudulleray - 19 nov. 2013 à 18:06
 dudulleray - 20 nov. 2013 à 08:01
Bonsoir a tous, Forum bonsoir



Excel 2007 VBA Windows 7 32 Bits

Je souhaiterai svp modifier le code ci-dessous en VBA

Merci pour aide et votre temps

Bonne soirée a tous

Cdlt Ray 

=SI(MOIS(O1)<>MOIS(AUJOURDHUI());"";SOMME(O23-O16))
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
19 nov. 2013 à 19:50
Bonjour,

A adapter suivant votre besoin, 

Sub test()
    With Worksheets("feuil1")
        If Month(.Range("O1")) <> Month(Now) Then
            .Range("A3") = ""
        Else
            .Range("A3") = .Range("O23") - .Range("O16")
        End If
    End With
End Sub
1
Réponse 2 / 3
dudulleray
19 nov. 2013 à 19:58
Bonsoir f894009

Merci pour la réponse et la traduction en VBA, cela va mettre bien utile enfin j'espere

je teste demain matin de bonne heure, neurones en régénération ihihihi

bonne soirée a toi et encore merci

Cordialement Raymond
0
Réponse 3 / 3
dudulleray
Modifié par dudulleray le 20/11/2013 à 08:01
Bonjour f894009


j'ai adapter a mon besoin et c'est bon pour moi

encore merci pour la traduction

Merci beaucoup et une très bonne journée a toi

Cordialement Raymond
0