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

anthoYS · 27 Septembre 2017

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.

VB:

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 :

VB:

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

(car pour la première ligne je comprends)

Merci
à+

Yurperqod · 27 Septembre 2017

Bonjour à tous

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

phlaurent55 · 27 Septembre 2017

Bonjour anthoys,

essaie ceci:

Code:

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 · 27 Septembre 2017

Suite du message 2
(bonjour phlaurent55)

VB:

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 · 27 Septembre 2017

Yurperqod à dit:
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... · 27 Septembre 2017

Bon_soir

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

VB:

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 · 27 Septembre 2017

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 · 28 Septembre 2017

Re,

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

anthoYS · 28 Septembre 2017

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

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

anthoYS

XLDnaute Barbatruc

Pièces jointes

Yurperqod

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Yurperqod

XLDnaute Occasionnel

anthoYS

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Discussions similaires