Bouton de commande => copie valeur autre cellule puis suivante si pleine [Résolu]

Signaler
-
 FlorianR -
Bonjour,

Je suis novice en vba et je ne vois pas trop comment faire...

Voici le topo : J'ai en H24 une valeur. J'aimerai que lorsque je clique sur un bouton de commande, cette valeur soit reportée en P12 (correspondant au lundi) si P12 est vide. Jusque là tout va bien ça semble assez simple...

Mais lorsque je clique à nouveau sur le bouton, je voudrais que le report de H24 soit en P14 (correspondant au mardi) car P12 est déjà occupé. Et ainsi de suite jusqu'à dimanche (mercredi P16; jeudi P18; vendredi P20; samedi P22 et dimanche P24). Et ce, sans modifier les valeurs reportées des cliques précédents.

Et enfin, si dimanche est occupé (P24) j'aimerai que rien ne se passe si je clique sur le bouton.

Voilà voilà... Si je pouvais bénéficier de vos lumières svp, j'en serai honoré!

Merci d'avance!

1 réponse

Messages postés
7202
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 janvier 2021
598
Bonjour,

comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
If Range("P12") = "" Then
Range("P12") = Range("H24")
ElseIf Range("P14") = "" Then
Range("P14") = Range("H24")
ElseIf Range("P16") = "" Then
Range("P16") = Range("H24")
ElseIf Range("P18") = "" Then
Range("P18") = Range("H24")
ElseIf Range("P20") = "" Then
Range("P20") = Range("H24")
ElseIf Range("P22") = "" Then
Range("P22") = Range("H24")
ElseIf Range("P24") = "" Then
Range("P24") = Range("H24")
End If
End Sub

Merci beaucoup!!!!
Problème résolu!
J'apprends un peu plus chaque jours grâce à vous chers participants au forum!