Changement dans un code

[Tommy]

Salut,

j'ai un code ici que j'utilise. Et j'aimerais y faire une modif.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String, Nom_Fichier As String, Ref_Classeur As Variant, Cel_Dest As Range
On Error GoTo Fin
Select Case Target.Address
Case Is = Range('D5').Address, Range('E5').Address, Range('F5').Address, Range('G5').Address, Range('H5').Address
Set Cel_Dest = Cells(Target.Row + 4, Target.Column)
Set Cel_Dest2 = Cells(Target.Row + 5, Target.Column)
Set Cel_Dest3 = Cells(Target.Row + 7, Target.Column)
Set Cel_Dest4 = Cells(Target.Row + 13, Target.Column)
Set Cel_Dest5 = Cells(Target.Row + 14, Target.Column)
Set Cel_Dest6 = Cells(Target.Row + 17, Target.Column)
Set Cel_Dest7 = Cells(Target.Row + 21, Target.Column)
Set Cel_Dest8 = Cells(Target.Row + 22, Target.Column)
Set Cel_Dest9 = Cells(Target.Row + 26, Target.Column)
Set Cel_Dest10 = Cells(Target.Row + 27, Target.Column)
Chemin = ActiveWorkbook.Path & '\\'
Nom_Fichier = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, '.') - 3)
Ref_Classeur = Right('0' & Target.Value, 2)
If Not (Dir(Chemin & Nom_Fichier & Ref_Classeur & '.xls') = '') Then
Cel_Dest.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!C7'
Cel_Dest2.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Rapport Des Ventes'!A13'
Cel_Dest3.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!G7'
Cel_Dest4.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!B8'
Cel_Dest5.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!F8'
Cel_Dest6.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!H8'
Cel_Dest7.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!C10'
Cel_Dest8.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!G10'
Cel_Dest9.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!C9'
Cel_Dest10.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Analyse Du Rendement'!G9'
End If
Case Else
End Select
Exit Sub
Fin:
End Sub


Premiere modif : J'aimerais que quand un chiffre entré dans D5 est egale au chiffre de la case L3 de la feuille RAPPORT, que seulement les formules Cel_Dest.Formula, Cel_Dest2.Formula, Cel_Dest4.Formula, Cel_Dest7.Formula et Cel_Dest9.Formula s'active. Si le chiffre n'est pas pareil, alors tous les formules s'active.

2 ieme modif : J'aimerais que les cases E5 a H5 n'execute que les formules Cel_Dest.Formula, Cel_Dest2.Formula, Cel_Dest4.Formula, Cel_Dest7.Formula et Cel_Dest9.Formula.

Merci de votre temps

Tommy

 

[Zon]

Salut,

Tu ne peux pas utiliser du find avec du true il faut passer par une variable range

dim C as range

Workbooks('stock vo compt.xls').Activate

Range('b:b').Select

Set c = Selection.Find((what:=nvo, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)

If c Is Nothing Then
Range('c' & i + 2) = nvo

Else
Workbooks('stkvo.dbf').Activate
End If
Next

End Sub

A+++

4 eme fois que je poste

 

[Zon]

Salut,

Tu ne peux pas utiliser du find avec du true il faut passer par une variable range

dim C as range

Workbooks('stock vo compt.xls').Activate

Range('b:b').Select

Set c = Selection.Find((what:=nvo, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)

If c Is Nothing Then
Range('c' & i + 2) = nvo

Else
Workbooks('stkvo.dbf').Activate
End If
Next

End Sub

A+++

4 eme fois que je poste

 

[Zon]

regardes dans le fichier joint le post que je te mettais:

A+++ [file name=Tommy.zip size=882]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tommy.zip[/file]

 

[Tommy]

Salut,

j'ai essayé ton code, mais il reste innactif malheureusement. J'ai corrigé tout ce qui avait, end if ou les ', mais toujours rien.

Ce que j'aimerais etre calé avec excel !

Tommy

 

[Zon]

Salut,

J'ai mis le code dans un fichier excel, pour que tu puisses le copier dans ton fichier original.
D'aprés ce que j'ai compris , ce code ne doit s'activer que quand D5, E5 à H5 changent de valeurs .

Comme c'est assez particulier je te propose de continuer par courriel.
Pour avoir le mien il suffit que tu deviennes membre pour cliquer sur mon pseudo pour m'écrire.

A+++ [file name=TestTommy.zip size=124]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestTommy.zip[/file]

 

[Tommy]

Dac !

 

[Bernard_XLD]

Bonjour Tommy, Zon, le forum

reçu ton message sur l'autre fil, Tommy.
Apparemment Zon se débrouille alors je n'interviens pas.

Bien cordialement à tous deux