Formule copier sous condition

[Linuxist]

Bonsoir tout le monde

Je cherche une formule qui va me permetre d'avoir le résultat suivant
Par exemple si dans la feuille Tache j'ajoute des donnés dans les colones Date, tache et temps nécessaire, et que dans la colone Feuille j'ajoute A B ou C je voudrais que sa ajoute les donnés de de la feuille Tache dans les feuille A B ou C en fonction de se que je mait dans la colone feuille, pou mieux comprendre voici un fichier de se que je cherche a realisé

Free - Envoyez vos documents

Merci d'avance

 

[fanfan38]

Re : Formule copier sous condition

Bonjour
Cliquez sur le nom de la feuille "Tache" avec le bouton droit de la souris.
Choisir "visualiser le code"
copier les lignes ci dessous
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
lig = Target.Row
If Len(Cells(lig, 1).Value) = 0 Then Exit Sub
If Len(Cells(lig, 2).Value) = 0 Then Exit Sub
If Len(Cells(lig, 3).Value) = 0 Then Exit Sub
If Len(Cells(lig, 4).Value) = 0 Then Exit Sub
feuil = Cells(lig, 4).Value
derlig = Sheets(feuil).Range("a65500").End(xlUp).Row + 1
Sheets(feuil).Cells(derlig, 1).Value = Cells(lig, 1).Value
Sheets(feuil).Cells(derlig, 2).Value = Cells(lig, 2).Value
Sheets(feuil).Cells(derlig, 3).Value = Cells(lig, 3).Value
End Sub
A+ François

 

[Linuxist]

Re : Formule copier sous condition

Franchement merci beaucoup fanfan38

Dison j'ai ajouter une colone Feuille 2 feuille 3 feuille 4, comme ca par exemple ca envoie a plusieur feuille les donnés quelle code je doit ajouter au code que tu ma donner ?

Encore merci

 

[Linuxist]

Re : Formule copier sous condition

Qui sait m'aider s'il vous plais, parceque j'arrive pas a modifier le code, sincerement j'y connais rien visual basic, j'essaille juste de chipoté au code pour essailler d'arriver a un resultat, mais j'y arrive pas
En fait j'ai envie de modifier le code pour que sa copie dans 2 feuille au lieux d'une, si quelqun pouvais m'aider sa serait tres sympas voila le code il faut juste le modifier pour que ca copie dans 2 feuille au lieux d'une

If Target.Count > 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
lig = Target.Row
If Len(Cells(lig, 1).Value) = 0 Then Exit Sub
If Len(Cells(lig, 2).Value) = 0 Then Exit Sub
If Len(Cells(lig, 3).Value) = 0 Then Exit Sub
If Len(Cells(lig, 4).Value) = 0 Then Exit Sub
feuil = Cells(lig, 4).Value
derlig = Sheets(feuil).Range("a65500").End(xlUp).Row + 1
Sheets(feuil).Cells(derlig, 1).Value = Cells(lig, 1).Value
Sheets(feuil).Cells(derlig, 2).Value = Cells(lig, 2).Value
Sheets(feuil).Cells(derlig, 3).Value = Cells(lig, 3).Value
End Sub

 

[fanfan38]

Re : Formule copier sous condition

Re,
feuil2 = Cells(lig, 5).Value
derlig = Sheets(feuil2).Range("a65500").End(xlUp).Row + 1
Sheets(feuil2).Cells(derlig, 1).Value = Cells(lig, 1).Value
Sheets(feuil2).Cells(derlig, 2).Value = Cells(lig, 2).Value
Sheets(feuil2).Cells(derlig, 3).Value = Cells(lig, 3).Value
Ajoute ces quelques lignes juste avant exit sub

A+ François

 

[Linuxist]

Re : Formule copier sous condition

J'ai toujour un probleme, le code prend pas en compte le fait de géré 2 feuille ca fait des erreurs, si quelqun pouvais m'aider ca serait tres bien je joint en pièce joint le fichier avec le code

Regarde la pièce jointe Test.xls

 

[Linuxist]

Re : Formule copier sous condition

Qui sait m'aider ca fonctionne pas...