Bouton de commande => copie valeur autre cellule puis suivante si pleine
Résolu
FlorianR
-
FlorianR -
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!
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!
A voir également:
- Bouton de commande => copie valeur autre cellule puis suivante si pleine
- Invite de commande - Guide
- Boite gmail pleine - Guide
- Excel cellule couleur si condition texte - Guide
- Copie cachée - Guide
- Commande terminal mac - Guide
1 réponse
Bonjour,
comme ceci:
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
Problème résolu!
J'apprends un peu plus chaque jours grâce à vous chers participants au forum!