Discussion :

[xavar]

Salut le forum,

je débute sur vba excel, et j'aimerai avoir une explication sur l'expression suivante : 'Cel.Offset(0, 3) > 1'

Normalement l'expression ( cel.offset(0,3)) permet de décaler la cellule 'Cel' de 0 lignes à la 3 eme colonne, elle contient une adresse normalement
pourquoi dire quelle serait >1?

je vous envois ce bout de code:
merci d'avance pour l'aide,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
 For Each Cel In .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row)
            Set C = WsC.Range(WsC.Cells(1, 1), WsC.Cells(1, Columns.Count).End(xlToLeft)).Find(Cel, , xlValues, xlWhole)
            If Not C Is Nothing Then
                If Cel.Offset(0, 3) > 1 And Cel.Offset(0, 4) > 1 Then
                    Ligne = Cel.Offset(0, 3)
                    For i = 1 To Cel.Offset(0, 4)
                        WsC.Cells(Ligne, C.Column) = 1
                        Ligne = Ligne + 1
                    Next i
                End If
            End If
        Next Cel

[Menhir]

C'est parce que la propriété Value est implicite dans la cas pour un objet Range.

De même, quand tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2") = Range("A1") + 1

C'est l'équivalent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2").Value = Range("A1").Value + 1

Offset renvoie un objet Range, il est donc traité comme tel.

[keygen08]

Bonjour
on ne dit pas qu'elle est superieure a 1, on demande.
La condition if verifie si la valeur de offset(0,3) est superieur a 1

[xavar]

Bonjour
on ne dit pas qu'elle est superieure a 1, on demande.
La condition if verifie si la valeur de offset(0,3) est superieur a 1

Bonjour,

Oui effectivement c'est une condition if, j'avais mis le code après.

[xavar]

C'est parce que la propriété Value est implicite dans la cas pour un objet Range.

De même, quand tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2") = Range("A1") + 1

C'est l'équivalent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2").Value = Range("A1").Value + 1

Offset renvoie un objet Range, il est donc traité comme tel.

Merci beaucoup!