Formule fichier de suivi

Bonjour,

Je rencontre des soucis avec mon fichier de suivi qui possède une macro qui fonctionne bien.

J'ai ajouté un onglet "objectifs" avec certaines formules, mais a chaque fois que j'initialise mon fichier les formules dans l'onglet "objectifs" cellule D10 par exemple change est au lieu de commencer a compter en cellule D5 de l'onglet Suivi PR_CAB commence à D18. Pourquoi je ne sais pas.

Ensuite mes formules lorsque je les étires, je suis obligé de les reprendre, y a t'il une solution?

Et j'aimerais que lorsque une cellule dans la colonne B ou C de l'onglet "Objectifs" soit colorisée se soit toutes la ligne qui est colorisée.

Merci d'avance pour votre aide.

Bonjour,

sur l'onglet Suivi PR_CAB

il y a la macro suivante,

Private Sub Effacer_Click()
Dim DerCel As Range, N As Range
    Application.ScreenUpdating = False
    With Worksheets("Suivi PR_CAB")
        .Unprotect
        Set DerCel = .Range("A5").End(xlDown)
        Set N = .Columns(1).Find("nok", , xlValues, xlWhole)
        If Not N Is Nothing And DerCel.Row < N.Row Then
            .Range(.Range("A5"), DerCel).EntireRow.Delete
        End If
        .Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    End With
    Application.ScreenUpdating = True
End Sub

Bonjour,

sur l'onglet Suivi PR_CAB

il y a la macro suivante,

Private Sub Effacer_Click()
Dim DerCel As Range, N As Range
    Application.ScreenUpdating = False
    With Worksheets("Suivi PR_CAB")
        .Unprotect
        Set DerCel = .Range("A5").End(xlDown)
        Set N = .Columns(1).Find("nok", , xlValues, xlWhole)
        If Not N Is Nothing And DerCel.Row < N.Row Then
            .Range(.Range("A5"), DerCel).EntireRow.Delete
        End If
        .Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    End With
    Application.ScreenUpdating = True
End Sub

Oui est ? quel est le souci avec cette macro ?

mais a chaque fois que j'initialise mon fichier ...

de quel façon initialises-tu ton fichier ?

mais a chaque fois que j'initialise mon fichier ...

de quel façon initialises-tu ton fichier ?

Dans l'onglet 'Suivi PR_CAB" il y a un bouton en haut a gauche "effacer les données", une fois effacé il faut allé dans l'onglet "sommaire" apporter les évolutions souhaiter et appuyer sur le bouton "Copier" celui-ci renvois les données issu du sommaire dans l'onglet "Suivi PR_CAB" et la il y a plus qu'a renseigner les différents champs en fonction de l'avancement.

re,

la formule en D10 de l'onglet "objectifs" est toujours

=NB.SI('Suivi PR_CAB'!$G5:$G$205;B10)

suite à l'appuis sur le bouton

re,

la formule en D10 de l'onglet "objectifs" est toujours

=NB.SI('Suivi PR_CAB'!$G5:$G$205;B10)

suite à l'appuis sur le bouton

Moi lorsque j'efface l'onglet "Suivi PR_CAB" et que je renseigne une ligne dans l'onglet "Sommaire" et je copie alors la cellule D10 de l'onglet "Objectifs" a pour formule la suivante: =NB.SI('Suivi PR_CAB'!$G19:$G$206;B10).

Il commence a compte à partir de la cellule G19.

re,

le problème vient de l'insertion de ligne fait dans la macro suivante,

Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim LigneDebS As Integer, ColS As Integer
Dim LigneFinS As Long, LigneS As Long
    Set WsS = Worksheets("Sommaire")
    Set WsC = Worksheets("Suivi PR_CAB")
    WsC.Unprotect
    'Recherche de la fenêtre
    ColS = WsS.Cells(4, 1).End(xlToRight).Column
    LigneDebS = 8
    LigneFinS = WsS.Cells(Rows.Count, ColS).End(xlUp).Row
    For LigneS = LigneFinS To LigneDebS Step -1
        If WsS.Cells(LigneS, ColS) <> "" Then
            WsC.Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            WsC.Range("A5") = Split(WsS.Range("A" & LigneS).Value, ".")(0) 'Groupe
            WsC.Range("B5") = WsS.Range("A" & LigneS).Value 'Fonction
            WsC.Range("C5") = WsS.Range("B" & LigneS).Value  'Design
            WsC.Range("D5") = WsS.Cells(LigneS, ColS).Value 'Code Gamme
            WsC.Range("E5") = WsS.Cells(LigneS, Columns.Count).End(xlToLeft).Value 'Liste type
        End If
    Next LigneS
    WsC.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    WsC.Activate
    Set WsC = Nothing: Set WsS = Nothing
End Sub

note/

modifie ta formule en D10

=NB.SI('Suivi PR_CAB'!$G4:$G$205;B10)

re,

le problème vient de l'insertion de ligne fait dans la macro suivante,

Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim LigneDebS As Integer, ColS As Integer
Dim LigneFinS As Long, LigneS As Long
    Set WsS = Worksheets("Sommaire")
    Set WsC = Worksheets("Suivi PR_CAB")
    WsC.Unprotect
    'Recherche de la fenêtre
    ColS = WsS.Cells(4, 1).End(xlToRight).Column
    LigneDebS = 8
    LigneFinS = WsS.Cells(Rows.Count, ColS).End(xlUp).Row
    For LigneS = LigneFinS To LigneDebS Step -1
        If WsS.Cells(LigneS, ColS) <> "" Then
            WsC.Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            WsC.Range("A5") = Split(WsS.Range("A" & LigneS).Value, ".")(0) 'Groupe
            WsC.Range("B5") = WsS.Range("A" & LigneS).Value 'Fonction
            WsC.Range("C5") = WsS.Range("B" & LigneS).Value  'Design
            WsC.Range("D5") = WsS.Cells(LigneS, ColS).Value 'Code Gamme
            WsC.Range("E5") = WsS.Cells(LigneS, Columns.Count).End(xlToLeft).Value 'Liste type
        End If
    Next LigneS
    WsC.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    WsC.Activate
    Set WsC = Nothing: Set WsS = Nothing
End Sub

note/

modifie ta formule en D10

=NB.SI('Suivi PR_CAB'!$G4:$G$205;B10)

Oui juste en modifiant ma formule par NB.SI('Suivi PR_CAB'!$G4:$G$205;B10) cela fonctionne niquel.

merci déjà un souci en moins.

Oui juste en modifiant ma formule par NB.SI('Suivi PR_CAB'!$G4:$G$205;B10) cela fonctionne niquel.

merci déjà un souci en moins.

est-ce que le problème est résolu ?

Oui juste en modifiant ma formule par NB.SI('Suivi PR_CAB'!$G4:$G$205;B10) cela fonctionne niquel.

merci déjà un souci en moins.

est-ce que le problème est résolu ?

oui celui de la formule.

Mainenant je dois juste voir comment grisé les ligne lorsque c'est des samedi et dimanche et faire en sorte que les formules dans l'onglet objectifs vont jusqu'en bas car lorsque je les étires elle ne sont pas bonne je dois les reprendre.

Rechercher des sujets similaires à "formule fichier suivi"