Microsoft 365 Ecriture dans une cellule après plusieurs conditions

[CrepeAuSmegma]

Bonjour tout le monde,

Je bloque sur un truc tout bête, je vais essayer d'être le plus clair possible, je fais des analyses Wifi sur un excel.

J'ai un tableau avec une colonne Débit, Localisation et Criticité, je souhaite chercher toutes les lignes ou le Débit est inférieur à -60 et est localisé en "hors périmètre" pour pouvoir les indiqués en "Low" dans la colonne criticité.

J'ai réussi à écrire toutes mes conditions pour sélectionner les lignes voulues mais je ne sais pas comment écrire pour chaque ligne "Low" dans la colonne voulue ( qui est la colonne N ), je réussi par contre a supprimé ou a colorer les lignes voulues en grise mais c'est pas ce que je veux faire, j'ai commencé a écrire un truc mais ca ne marche pas.

Sub Débit()

Dim i As Integer

Sheets(1).Select

With ThisWorkbook.Sheets(1)

            For i = .Range("K" & .Rows.Count).End(xlUp).Row And .Range("O" & .Rows.Count).End(xlUp).Row To 2 Step -1

                        If .Range("K" & i).Value < -60 And .Range("O" & i).Value = "hors périmetre" Then
                                   '.Rows(i).Delete
                                  '.Rows(i).Interior.ColorIndex = 15
                                  .Range("N" & .Rows(i)) = "Low"
                                  
                        End If
            Next i
End With



End Sub

 

[CrepeAuSmegma]

Quelqu'un a une piste ? je désepere un peu, j'ai tenté Cells(.Rows(i), N).Select mais sans succès

 

[bbb38]

Bonjour CrepeAuSmegma, le forum,
Fichier ci-joint, à tester. Pour vérifier les codes, il est préférable de joindre un petit fichier d’exemple.
La macro efface les données de la colonne « Criticité ». A voir si nécessaire.
Attention, dans ton exemple, tu indiques pour le fichier « hors périmètre », alors que tu écris dans le code « hors périmetre ».
Cordialement,
Bernard

 

[Valtrase]

Salut le fil
Tu sais que cette formule peut te renvoyé 0...

.Range("K" & .Rows.Count).End(xlUp).Row And .Range("O" & .Rows.Count).End(xlUp).Row

As tu un message d'erreur ?
Et pourquoi un Rows(i) et non pas i tout court

.Range("N" & i) = "Low"

 

[bbb38]

Bonjour CrepeAuSmegma, le forum,
Code simplifié.
Cordialement,
Bernard

 

[JBARBE]

Bonsoir à tous,
Peut-être ceci ! En modifiant le code de bbb38
Bonne nuit !

 

[CrepeAuSmegma]

Merci a tous ! Finalement j'ai réussi à faire ce que je voulais avec Range("N" & i) = "LOW" comme tu la dit valtrase !