Aide --> Macro Validation

Bonjour,

J'ai mis un petit fichier avce des explications.

Merci beaucoup de votre aide

Bonjour vincent,

Regarde si c'est ça que tu veux :

Sub test()
Dim i As Integer
    For i = 3 To [c65536].End(xlUp).Row
        If Range("C" & i).Value = True Then Cells(i - 1, 2) = Cells(i - 1, 2) + Cells(i, 2)
    Next
End Sub

Bonjour,

Merci pour ta réponse. Ça me convient...presque. J'ai besoin d'une petite adaptation :

Sub test()

Dim i As Integer

For i = 3 To [c65536].End(xlUp).Row

If Range("C" & i).Value = True Then Cells(i - 1, 2) = Cells(i - 1, 2) + Cells(i, 2)

Next

End Sub

Dans mon fichier, j'ai plusieurs cellule à faire la même opération de D a U. Est ce que je dois copier la ligne de code plusieurs fois en fesant Cells(i - 2, 2), Cells(i - 1, 3) Etc...?

Merci encore !!

vinc87 a écrit :

Dans mon fichier, j'ai plusieurs cellule à faire la même opération de D a U.

La calidation Vrai/Faux se passe dans la colonne X. Dans le cas ou X=Vrai je veux prendre les valeur de G à U et les additionner à la ligne supérieux.

Merci !

Et les colonnes D, E, F dans tout ça ?

Tu pourrais pas joindre un fichier avec quelques lignes mais toutes les colonnes (avec des explications précises si possible) ? Ça me faciliterait la tâche.

Merci

Voilà!

Essaie avec ça :

Sub test()
Dim i As Integer, cel As Range
    Application.ScreenUpdating = False
    For i = 3 To [x65536].End(xlUp).Row
        If Range("X" & i).Value = True Then
            For Each cel In Range("G" & i - 1 & ":U" & i - 1)
                cel.Value = cel.Value + cel.Offset(1).Value
            Next cel
        End If
    Next
End Sub

Merci beaucoup !!

Comment as-tu appris tout ça?

Merci encore

De rien vinc87 !

J'ai appris en m'inscrivant à ce forum parce que j'avais un projet à automatiser par macro. Voici un lien que dan m'avait conseillé : https://forum.excel-pratique.com/discussions/livre-vba-t8069.html