Formule copier sous condition

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

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

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

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

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

Re : Formule copier sous condition

Qui sait m'aider ca fonctionne pas...