Modification de code.

[WDAndCo]

Bonjour le Forum

J'ai ce code :

DL = 3 'DL = Derniere Ligne

    For I = 5 To Sheets.Count 'Tous les onglets a partir du 5eme
  
    nf = Sheets(I).Name
    Sheets(I).Tab.ColorIndex = 15
    With Sheets(I)
    
      NL = .Range("L1").Value 'Nb de ligne sur l'onglet
       
    For L = 12 To NL + 11

If .Range("G" & L).Value <> "" And .Range("H" & L).Value = "" And InStr(.Range("E" & L).Value, "Voie") = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DL, 1), Address:="", SubAddress:="'" & _
         nf & "'" & "!H12", TextToDisplay:=nf
         
    If .Range("B" & L).Value = "" Then ActiveSheet.Range("C" & DL).Value = .Range("B12").Value Else ActiveSheet.Range("C" & DL).Value = .Range("B" & L).Value
    Sheets(I).Tab.ColorIndex = 45
    ActiveSheet.Range("B" & DL).Value = .Range("C8").Value
    ActiveSheet.Range("D" & DL).Value = .Range("A" & L).Value
    ActiveSheet.Range("E" & DL).Value = .Range("C" & L).Value
    ActiveSheet.Range("F" & DL).Value = .Range("D" & L).Value
    ActiveSheet.Range("G" & DL).Value = .Range("G" & L).Value
    ActiveSheet.Range("H" & DL).Value = .Range("E" & L).Value
    DL = DL + 1
    
    End If
    
        Next L
        
    End With
    
Next I

Ici dans le coin,

For L = 12 To NL + 11

If .Range("G" & L).Value <> "" And .Range("H" & L).Value = "" And InStr(.Range("E" & L).Value, "Voie") = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DL, 1), Address:="", SubAddress:="'" & _
         nf & "'" & "!H12", TextToDisplay:=nf

Je ne veux plus que les lignes avec "D" en .Range("G" & L).Value soit affiché, If .Range("G" & L).Value = "D" Then Next L ne fonctionne pas juste après le For L
Comment faire ?

D'avance merci.

 

[job75]

Re : Modification de code.

Bonjour WDAndCo,

Curieux qu''après 593 posts vous n'ayez pas compris que c'est casse-pieds d'étudier un code pas trop simple sans fichier.

A+

 

[WDAndCo]

Re : Modification de code.

Bonjour le Forum.

Voici une partie du fichier demandé.

 

[job75]

Re : Modification de code.

Re,

Une 2ème feuille avec le résultat attendu et quelques explications seraient les bienvenues...

Si un jour vous devenez contributeur sur XLD vous comprendrez.

A+

 

[WDAndCo]

Re : Modification de code.

Bonjour le Forum

Voici !

 

[ChTi160]

Re : Modification de code.

Bonjour Dominique
Bonjour le fil
Bonjour le forum

peut être en rajoutant :

If .Range("G" & L).Value <> "" And .Range("G" & L).Value <> "D" And .Range("H" & L).Value = "" And InStr(.Range("E" & L).Value, "Voie") = 0 Then

Bonnne journée
Amicalement
Jean Marie

 

[WDAndCo]

Re : Modification de code.

Bonjour le Forum

Salut Jean-Marie, comme d'hab ta solution est pile poil.
Encore merci, bonne journée
Dominique

 

[job75]

Re : Modification de code.

Bonjour WDAndCo, salut ChTi160,

Je ne comprends pas les explications, le résultat souhaité n'est pas cohérent.

A+

 

[ChTi160]

Re : Modification de code.

Re Bonjour

je pense (si je me trompe , me corriger.)
le fichier se compose de feuilles "SM 2014 XX" et d'une feuille "Points à Amortir" et l'on récupère dans les feuilles les données que l'on colle dans la feuille "Points à Amortir"avec lien hypertext en colonne A
ce que je n'ai pas compris c'est cette Ligne :

If Sheets(5).Name = Range("K1").Value Then Exit Sub

si le nom de la feuille 5 est celui contenu dans la cellule K1 de la feuille active ????????????
il aurait fallu mettre une Feuille Source dans l'exemple (ex SM 2014 XX)
Bonne journée
Amicalement
Jean Marie

 

[WDAndCo]

Re : Modification de code.

Bonjour le Forum Jean Marie et Job75

If Sheets(5).Name = Range("K1").Value Then Exit Sub

Me permet de ne pas relancer la Macro si le tableau est a jour, il est a jour si le nom de la feuille 5 est égal K1 qui à était modifié lors de la dernière MAJ.

Amicalement
Dominique