Aide pour planning
Bonjour
Je suis nouveau sur le forum.
Je demande votre aide sa fait déjà plusieurs jours je suis sur mon début de planning.
Je vous présente le sujet.
Je veux changer l'heure de fin de la mâtiné par une input box. J'ai réussi la première phase quand je clic sur la cellule c9 sa déclenche ma inputbox et m'inscrit le calcul d'heure en b10. Je voudrais que le résultat se répercute sur les cellules à partir de b10 jusqu'à ma fin de la colonne si la cellule est non vide.
Merci de votre aide je continu mes recherche sur le forum.
Je joints mon fichier
Je suis désoler je n'ai pas mi le bon fichier voici le nouveau
Je n'ai toujours rien trouvé sur le net à mon problème.
Je vous décrit de nouveau mon problème
J'ai fait une inputbox pour changer l'heure de fin de mâtiné et après la nouvelle valeur saisi, je voudrais que le résultat s'inscrit à partir de b10 jusqu'à la fin de la colonne b si il y une valeur dans cette plage.
Je pense que c'est un problème simple mais difficile pour un débutant.
Je demande votre aide pour trouver la solution.
Merci
Je désespère très peu d'aide sur le forum peut-être le sujet pas intéressant.
Une personne pour me répondre!!!!
Merci
Enfin j'ai trouvé.
La formule il fallait la mettre en référence relative.
Je vous met le code qui marche.
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$9" Then Exit Sub
Cancel = True
Dim Nom As String
Nom = InputBox("Entrez le nom ?", "Saisie de nom", , 200, 200)
' selection de la case de départ
Range("A10").Select
' boucle de recherche
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
Selection.Value = Nom
Dim totalheure As String
totalheure = [b10]
Range("b10").Select
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
'formule avec référence relative
ActiveCell.FormulaR1C1 = _
"=((HOUR(R9C3))+(MINUTE(R9C3)/60))-((HOUR(R9C2))+(MINUTE(R9C2)/60))"
Range("B10").Select
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
End Sub
Je ne c'est pas si c'est la meilleur formule mais sa marche.
Après avoir passé un weekend dessus je me contente de cette formule.
J'espère pour une prochaine discussion que les membres serons se manifester.
Merci encore une fois au forum