Remplissage manuel d'une cellule et résultat basé sur une autre cellule
Bonjour à tous,
Je voulais savoir s'il était possible (en VBA peut-être) d'avoir la possibilité pour une cellule A1, soit de rentrer manuellement une donnée, soit d'avoir le résultat basé sur une autre cellule en fonction d'un choix dans une liste déroulante (Automatique;manuel) en A2. Si Automatique alors A1=A3, si Manuel, alors je peux remplir manuellement la cellule A1.
Cordialement
Bonjour fg2b,
Oui c'est exactement cela et encore merci. Je suis bluffer.
Je vais essayer d'adapter tes lignes sur mon cas mais je maitrise pas du tout Excel et encore moins VBA.
Je te joins 2 tableaux simplifié un sur feuil2 et l'autre sur feuil3. Le tableau de feuil3 doit soit renvoyer en automatique les données de feuil2 soit être libre de rentrer n'importe quelle donnée. Peux-tu stp m'aider pour une macro que j'adapterai sur un plus gros tableau que je dois créer.
Peux-t-on faire un choix pour l'ensemble du tableau au lieu d'une liste déroulante par ligne ?
svp, merci
Re,
Le tableau de feuil3 doit soit renvoyer en automatique les données de feuil2 soit être libre de rentrer n'importe quelle donnée.
En fonction de la colonne C toujours ?
Pas besoin de macro pour ca..
je suis pas sur de bien comprendre ta problematique.
Un fichier exemple significatif serait le bienvenu
@ +
Voilà avec un fichier simplifié c'est mieux pour comprendre. Désolé.
Voir feuil2 et feuil3.
Ci-joint, svp merci
fg2b,
C'est exactement ça.
A +
Bonjour à tous,
J'ai donc commencé à créer mon fichier et essayé d'adapter la macro. Hélas je n'y suis pas arrivé. J'ai essayé de bidouiller en essayant de comprendre les lignes et colonnes. Mais ça ne correspond pas et cela me renvoi une erreur.
J'ai joint mon fichier avec une mise en forme que je veux conserver.
L'objectif étant de pouvoir inscrire sur la feuille "Planning mensuel" des horaires soit librement (Manuel dans la liste déroulante) soit en reportant (Automatique dans la liste déroulante) l'horaire standard (situé sur la feuille "Durée de travail"). En mode automatique, Il faudrait que les horaires en fluo (dans la feuille "Durée de travail") se reporte sur les 6 tableaux (en zone fluo) dans la feuille "Planning mensuel".
Avec toujours la possibilité de rentrer manuellement les données directement dans les 6 tableaux.
Merci pour votre coup de main.
J'ai pu trouver ma réponse avec un autre code, pour ceux qui ça intéresse :
En Evènement Worksheet - Change :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "G4" Then
If Target.Value = "Automatique" Then
Call CopyData
End If
End If
End Sub
En Macro - Module1 - Général - CopyData :
Sub CopyData()
Dim sourceRange As Range
Dim destinationRange1 As Range
Dim destinationRange2 As Range
Dim destinationRange3 As Range
Dim destinationRange4 As Range
Dim destinationRange5 As Range
Dim destinationRange6 As Range
Set sourceRange = Worksheets("Durée de travail").Range("U30:AJ31")
Set destinationRange1 = Worksheets("Planning mensuel").Range("AA8:AN9")
Set destinationRange2 = Worksheets("Planning mensuel").Range("AA59:AN60")
Set destinationRange3 = Worksheets("Planning mensuel").Range("AA110:AN111")
Set destinationRange4 = Worksheets("Planning mensuel").Range("AA161:AN162")
Set destinationRange5 = Worksheets("Planning mensuel").Range("AA212:AN213")
Set destinationRange6 = Worksheets("Planning mensuel").Range("AA263:AN264")
destinationRange1.Value = sourceRange.Value
destinationRange2.Value = sourceRange.Value
destinationRange3.Value = sourceRange.Value
destinationRange4.Value = sourceRange.Value
destinationRange5.Value = sourceRange.Value
destinationRange6.Value = sourceRange.Value
End Sub
Merci quand même à tous !