Code VBA : comment expliquer le 2, 3 (voir question) ? [RESOLU]

[anthoYS]

Bonjour,

Dans ce tableau (voir capture), la Sub est sensé ajouter 3 points en B si résultat en C est égal à 1, sinon (0), 1 point.

Sub Résultat_Match()
    If Cells (2, 3) = 1 Then
    Cells (2, 3) = Cells (2 , 3) + 3
    End If
End Sub

Voici ma question : comment expliquer qu'en seconde ligne soit affichée 2, 3 et non 2, 2 car nous visons la colonne 2 ?

C'est-à-dire, la ligne suivante du code :

Cells (2, 3) = Cells (2 , 3) + 3

(car pour la première ligne je comprends)​

Merci
à+

 

[Yurperqod]

Bonjour à tous

Cells(2,3)
Cells(Rows,Columns)
Donc c'est la colonne 3 qui est visée

 

[phlaurent55]

Bonjour anthoys,

essaie ceci:

Sub Résultat_Match()    
If Cells (2, 3) = 1 Then    
Cells (2, 2) = Cells (2 , 2) + 3
   Else
   Cells (2, 3) = Cells (2 , 2) + 1   
End If
End Sub

à+
Philippe

 

[Yurperqod]

Suite du message 2
(bonjour phlaurent55)

Sub macroTest()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(i, "C") = 1 Then
Cells(i, "B") = Cells(i, "B") + 3
End If
Next
End Sub

 

[anthoYS]

Bonjour à tous

Cells(2,3)
Cells(Rows,Columns)
Donc c'est la colonne 3 qui est visée

Bah non, c'est la colonne 2 qui doit se voir rajouter 3 points si la colonne 3 est égale à 1.

Merci à tous les 2 pour les codes alternatifs.

 

[Si...]

Bon_soir

Une autre proposition évènementielle basée sur True=-1 et False=0 :

Private Sub Worksheet_Change(ByVal R As Range)
  If Not Intersect(R, Range("C2", [C666].End(xlUp))) Is Nothing Then  R(1, 0) = R(1, 0) - (R = 1) * 3
End Sub

 

[anthoYS]

Bonsoir @Si...

Bien bien bien. (ça reste hors de portée pour moi tout ça. Merci, ce sera pour plus tard, déchiffrer ça)
Je bloque toujours sur mon précédent message.

 

[anthoYS]

Re,

@Yurperqod : https://www.excel-downloads.com/thr...pliquer-le-2-3-voir-question-resolu.20019951/

 

[anthoYS]

Re,

Bon eh bien écoutez, j'ai trouvé par moi-même bien que vos code m'aient éclairés finalement, donc merci de m'avoir laissé pataugé malgré mes sollicitations...​

bonne fin de journée, à toute à l'heure peut être