Créer une Boucle sur des Colonnes

Bonjour à tous,

Encore une fois je viens déranger votre tranquillité pour un sujet qui est sans doute récurrent mais je ne trouve pas une méthode adapté à mon besoin.

je souhaiterais créer une boucle sur mes colonnes de manière à leurs appliquer une même instruction.

par exemple ce code, il s’applique pour mes colonnes A,B et C.

Je souhaiterais que la même instruction s'applique aux colonnes D, E et F.

Comment pourrais-je modifier mon code pour obtenir ce résultat ?

Merci par avance pour votre aide

Sub commentaire()
    Dim nA1 As String
    Dim nB1 As String
    Dim nC0 As String
    Dim nC1 As String
    Dim nC2 As String
    Dim nC3 As String

        With Sheets("Sheet1")
            Range("C2:C26").Formula = "=IF(A2<B2,""Your total is smaller than the sum of components"",""OK"")"
        For i = 2 To 26 'plage à adapter
            nA1 = IsNumeric(Cells(i, "A"))
            nB1 = IsNumeric(Cells(i, "B"))
            nC0 = Cells(i, "A").Value = "0"
            nC1 = Cells(i, "A").Value = "-"
            nC2 = Cells(i, "A").Value = ":"
            nC3 = Cells(i, "A").Value = ""

            If nA1 Then
                If Cells(i, "A").Value <> 0 And Cells(i, "A").Value > Cells(i, "B").Value And Cells(i, "B").Value = 0 Then
                        Cells(i, "C").Value = "Your total should not be 0, because the calculated total is > 0!"

                    ElseIf Cells(i, "A").Value <> 0 And Cells(i, "A").Value <> Cells(i, "B").Value And Cells(i, "B").Value = "-" Then
                        Cells(i, "C").Value = "Your total cannot be not applicable ('-'), because the calculated total is > 0!"

                    ElseIf Cells(i, "A").Value <> 0 And Cells(i, "A").Value <> Cells(i, "B").Value And Cells(i, "B").Value = ":" Then
                        Cells(i, "C").Value = "Your total cannot be not applicable (':'), because the calculated total is > 0!"
                    End If

                    If Cells(i, "A").Value <> 0 And Cells(i, "A").Value < Cells(i, "B").Value And Cells(i, "B").Value = "" Then
                        Cells(i, "C").Value = "Your total cannot be empty, because the calculated total is > 0!"

                    ElseIf Cells(i, "A").Value <> 0 And Cells(i, "A").Value <> Cells(i, "B").Value And Cells(i, "B").Value = nB1 Then
                        Cells(i, "C").Value
                    End If
            Next i
        End With
End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Range("A2:B26"), Target) Is Nothing Then
           Call commentaire
        End If
    End Sub

Cordialement,

Abakisi.

Bonjour,

Merci de joindre ton fichier et exprime ton besoin pour avoir de l'aide.

bonjour Raja,

Voici mon fichier.

Le code du fichier joint, s’applique pour les colonnes A,B et C.

Je souhaiterais que les mêmes instructions s'appliquent aux colonnes D, E et F ainsi que G, H et I.

Comment pourrais-je modifier mon code pour obtenir ce résultat ?

Sachant que je cherche à dire que:

Ma colonne A reçoit la même instructions que la colonne D et G

Ma colonne B reçoit la même instruction que E et H

Ma colonne C reçoit la même instruction que F et J

Merci par avance pour votre aide.

Abakisi

Re,

Voir PJ.

Bonjour Raja,

Merci beaucoup j'ai adapté le code et j'ai obtenue exactement ce que je voulais.

Encore merci.

Abakisi