Liaisons ??

Bonsoir à tous

j'espère etre sur le bon endroit pour posté mon soucis

Je viens vers vous pour une question de formule excel 2007 , voila j'ai 3 feuilles de calcul sur mon classeur , et la je bloque sur 2/3 trucs

ce que je souhaite de faire sur ma feuille nommé page evaluation , c'est de reporté tous les codes ainsi que les intitulés sur ma feuille 3 ligne observation , quand la croxs cochet sur la feuille evaluation est rouge , en faite a chaque case cochet en ligne A sur cette feuille eval doit etre reporte sur la feuille et en plus de tout cela je souhaite de creer une erreur si 2 cases sont cochet en colone ES et A sur la page evaluation

J'espere etre clair , pas evident de l'expliqué par forum dsl

Je met mon fichier en piece jointe

en vous remerciant

Bonne soirée

Bonjour Dugomier63,

63 = Puy-de-Dôme ?

Un essai en PJ...

Espérant avoir aidé,

A+ Daniel

Bonjour,

la même, mais en formule.

Par contre, je n'ai pas compris "créer une erreur si 2 cases sont cochées en colonne ES et A sur la page évaluation"

c'est 2 rouges ou 2 vertes

ou

1rouge+ 1 verte ?

Bonjour,

Une autre proposition, à tester,qui vérifie le nombre de X...

Cdlt.

* il y aura peut-être un souci avec les x et X.

Public Sub DEMO()
Dim wb As Workbook
Dim ws As Worksheet, ws2 As Worksheet
Dim rng As Range, Cell As Range
Dim lRow As Long

    Application.ScreenUpdating = False

    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(2): Set ws2 = wb.Worksheets(3)

    With ws
        Set rng = Application.Union(.Range("F6:F78"), .Range("N6:N78"))
    End With

    With ws2
        lRow = 7
        .[A7:B30].ClearContents
        For Each Cell In rng
            If UCase(Cell.Value) = "X" Then
                If Application.CountIf(Range(Cell.Offset(0, -3), Cell), "=X") > 1 Then
                    MsgBox "Veuillez vérifier vos saisies en ligne " & Cell.Row, vbCritical
                    GoTo fin
                End If
                .Cells(lRow, 1) = Cell.Offset(0, -5).Value
                .Cells(lRow, 2) = Cell.Offset(0, -4).Value
                lRow = lRow + 1
            End If
        Next Cell
        .Activate
        .[A1].Select
    End With

fin:
    Set rng = Nothing
    Set ws2 = Nothing: Set ws = Nothing
    Set wb = Nothing
    Exit Sub

End Sub

Bonjour Dan

Merci d'avoir pris un peu de temps pour résoudre le petit truc qui me manqué

Merci Beaucoup

Alors pour répondre au 63 , oui je suis bien de l'auvergne à 17 km de clermont Fd dans la campagne

et enfin pour le reste des couleurs sur la page evaluation 1 ,oui je souhaite creer une erreur quand on coche une case verte en ES + la case rouge A sur une meme ligne , pour expliqué en un mot , si je coche un ES = Etat satisfaisant et que je coche sans faire exprès le A rouge = Anomalie cela reste non logique sur le bilan finale a rendre au client , c'est surtout pour evité cette fausse manip de la part du controleur , il ne peut avoir que ES ou A et non les 2

Merci de ton aide Dan

super sympa de m'aider

Ok, je regarde ça dans la soirée, j'espère que ça me vaudra un contrôle technique à petit prix le prochain coup !

A+ Daniel

Nouvelle version en PJ...

A+ Daniel

Re,

J'ai révisé ma proposition initiale (x, X).

Cdlt.

Bonsoir Dan et Eric

Je tiens à vous remercier a vous 2 pour cette aide precieuse

Super boulot

Encore merci

A bientot pour une aide et puis Dan désolé pour les controles technique , mais je fait pas les voitures lolll

mais pour le reste engins de chantier ou autres pas de soucis