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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gvives

XLDnaute Occasionnel
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...
 
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.
 
Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour