WDAndCo
XLDnaute Impliqué
Bonjour le Forum
Je reviens vers vous car je bricole une recape automatique dont voici le code :
J'ai joint un fichier ou il y a des onglets dont un 'Je voudrais cela'
La Macro balais certaint onglets trouve la derniere ligne utile m'affiche les données sur l'onglet mais comment faire pour quelle remonte un nombre X de lignes pour m'afficher les données si les conditions sont remplies ou passe a l'onglet suivant.
C'est plus clair avec le fichier je pense !
D'avance merci.
Je reviens vers vous car je bricole une recape automatique dont voici le code :
Code:
Private Sub Worksheet_Activate()
[A1:J1000].ClearContents 'Efface tout
For I = Sheets.Count - 3 To 6 Step -1 'Tous les onglets de l'avant dernier au 5 eme
nf = Sheets(I).Name 'Nom de l'onglet
With Sheets(I)
derlig = .Range("AG" & Rows.Count).End(xlUp).Row 'Derniere ligne de l'onglet
If .Range("AC" & derlig).Value = 0 Then derlig = derlig - 1 'Verifie que la derniere ligne correspond sinon -1
ActiveSheet.Range("A" & I - 4).Value = nf
If .Range("N" & derlig).Value <> "" And .Range("M" & derlig).Value <> "" And .Range("AA" & derlig).Value <> "" Then
ActiveSheet.Range("B" & I - 4).Value = .Range("N" & derlig).Value
ActiveSheet.Range("C" & I - 4).Value = .Range("O" & derlig).Value
If .Range("AG" & derlig).Value = "C" Then ActiveSheet.Range("D" & I - 4).Value = .Range("AA" & derlig).Value
If .Range("AG" & derlig).Value = "R" Then ActiveSheet.Range("E" & I - 4).Value = .Range("AA" & derlig).Value
ActiveSheet.Range("F" & I - 4).Value = .Range("AF" & derlig).Value
ActiveSheet.Range("G" & I - 4).Value = .Range("AG" & derlig).Value
End If
End With
Next I
End Sub
La Macro balais certaint onglets trouve la derniere ligne utile m'affiche les données sur l'onglet mais comment faire pour quelle remonte un nombre X de lignes pour m'afficher les données si les conditions sont remplies ou passe a l'onglet suivant.
C'est plus clair avec le fichier je pense !
D'avance merci.