VBA - créer une macro qui s'applique à l'ensemble des lignes

A_fond_alphonse · 8 Février 2012

Bonjour à tous,
Je suis nouveau en VBA.
J'utilise la fonction Range afin d'éffectuer un contrôle. Je souhaite que ma macro s'applique à l'ensemble des lignes de mon fichier plutot que de devoir recréer la condition pour chaque ligne de mon fichier. Soit une condition sur les lignes 7,8,9,10.....10490000
Je vous remercie de votre aide!
Ci-dessous mon VBA :

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("F7").Value = Range("G7").Value Then
Range("H7").Value = "yes"
Else
Range("H7").Value = "no"
End If

End Sub

A_fond_Alphonse

Guest · 8 Février 2012

Re : VBA - créer une macro qui s'applique à l'ensemble des lignes

Bonjour,

Si j'ai bien compris. Par contre ne traite pas le cas où Fx et Gx sont vides ou vidées

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Union(Range("F7:F" & Rows.Count), Range("G7:G" & Rows.Count))) Is Nothing Then
        If Range("F" & Target.Row) = Range("G" & Target.Row) Then
            Range("H" & Target.Row) = "yes"
        Else
            Range("H" & Target.Row) = "no"
        End If
    End If
End Sub

A+

A_fond_alphonse · 8 Février 2012

Re : VBA - créer une macro qui s'applique à l'ensemble des lignes

Merci à toi Hasco,
Et vive les ventres à choux.... Je suis sur Montiaug et originaire de Soullans

VBA - créer une macro qui s'applique à l'ensemble des lignes

A_fond_alphonse

Guest

Guest

Guest

A_fond_alphonse

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency