Mettre une valeur dans une colonne fixe en fonction d'une cellule

gvives · 16 Décembre 2012

Bonjour à tous,

J'ai commencé un petit code VBA mais il ne fonctionne pas...

Private Sub worksheet_change(ByVal target As Range)
With target
If target.Row > 5 And .Cells(.Row, 7).Value > 2 Then
.Cells(.Row, 21).Value = "OK"
End If
End With
End Sub

En fait j'aimerai que si dans une ligne (qui doit être supérieure à 5) si la valeur dans la colonne 7 à cette même ligne est supérieure à 2 alors mettre à cette même ligne en colonne 21 la valeur "OK"... (et cela à chaque changement intervenu sur la feuille)...

Pourriez vous m'aiguiller 🙁

Merci à tous...

Dranreb · 16 Décembre 2012

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

Bonjouir.
Et comme ça, ça va mieux ? :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long: L = Target.Row
If L > 5 And Me.Cells(L, 7).Value > 2 Then Me.Cells(L, 21).Value = "OK"
End Sub

Cordialement.

Bonjour Staple.

Staple1600 · 16 Décembre 2012

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

Bonjour

Si j'ai bien compris essaies ceci

Code:

Private Sub worksheet_change(ByVal target As Range)
If target.Row > 5 Then
Cells(target.Row, 21) = IIf(Cells(target.Row, 7) > 2, "Ok", vbNullString)
End If
End Sub

EDITION: Bonjour Dranreb

gvives · 16 Décembre 2012

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

C'est parfait !!! Merci beaucoup à vous deux 😉

Je peux continuer à travailler maintenant...

Bon dimanche à vous 😉

Mettre une valeur dans une colonne fixe en fonction d'une cellule

gvives

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

gvives

XLDnaute Occasionnel

Discussions similaires

Mettre une valeur dans une colonne fixe en fonction d'une cellule

gvives

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

gvives

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency