Conditions pour remplissage cellule

Bonjour à tous,

Je suis débutant en vba et j'aimerais sur une feuille exel remplir une cellule si 3 autres cellules remplissent les conditions nécessaires.

En détails :

J'ai trois colonnes (B, F et AM) qui doivent satisfaire des conditions différentes (par exemple B doit être égal à "1", et F à "Droit" et AM à "Jaune".

Donc à chaque ligne (jusqu'à la dernière) je voudrais que si les conditions sont vraies, ma quatrième colonne (AO) prenne une valeur précise. ("A ranger" par exemple).

Merci par avance pour votre aide

Bonjour

Un essai

Option Explicit

Sub Verification()
Dim J As Long

  For J = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If UCase(Range("B" & J) & Range("F" & J) & Range("AM" & J)) = "1DROITJAUNE" Then
      Range("AO" & J) = "A ranger"
    End If
  Next J
End Sub

Bonjour syl2066 et

Un autre exemple avec des formules Excel et l'utilisation des cellules AQ2, AR2 et AS2 pour les critères

A+

Edit : Bonjour Banzai

Merci à Banzai64 et à frangy !

Les 2 solutions marchent bien !

Sauf que j'ai dû dans le cas de la solution de Banzai64 déplacer une parenthèse pour que ça marche :Celle après ("AM" & J)

Option Explicit

Sub Verification()
Dim J As Long

  For J = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If UCase(Range("B" & J) & Range("F" & J) & Range("AM" & J) = "1DROITJAUNE") Then
      Range("AO" & J) = "A ranger"
    End If
  Next J
End Sub
 

Merci encore

A+

Bonjour

Désolé mais pour moi cela ne fonctionne pas correctement

Seulement si tout est en majuscules

Essayes de taper un texte en minuscules