simplifier code avec if

[GHISLAIN]

BONJOUR A TOUS
Je souhaiterais savoir s'il est possible de reduire ce code tout en sachant que je dois effectuer le test a partir de la cellule D15 jusqu a la d27

et reprendre le test de la cellule d55 a la cellule d67

If Sheets("TEST").Range("D15").Value = "ESSAI" Then
Sheets("TEST").Range("H15").Value = "ESSAI"
Sheets("TEST").Range("J15").Value = "ESSAI"
Sheets("TEST").Range("M15").Value = "ESSAI"
Sheets("TEST").Range("P15").Value = "ESSAI"
End If
If Sheets("TEST").Range("D15").Value < "ESSAI" Then
Sheets("TEST").Range("H15").Value = ""
Sheets("TEST").Range("J15").Value = ""
Sheets("TEST").Range("M15").Value = ""
Sheets("TEST").Range("P15").Value = ""
End If

merci a tous de votre aide et de la simplification de ce code

amicalement

ghislain

 

[Papou-net]

Re : simplifier code avec if

Bonjour GHISLAIN,

Essaies de cette manière :

Sub Essai()
Dim ch As String
With Sheets("TEST")
  For Each cel In .Range("D15:D27")
    If cel.Value = "ESSAI" Then ch = cel.Value Else ch = ""
    Sheets("TEST").Range("H15").Value = "ESSAI"
    .Range("H" & cel.Row) = ch
    .Range("J" & cel.Row) = ch
    .Range("M" & cel.Row) = ch
    .Range("P" & cel.Row) = ch
  Next
End With
End Sub

Espérant avoir répondu.

Cordialement.

 

[tototiti2008]

Re : simplifier code avec if

Bonjour GHISLAIN, Bonjour Papou-net,

Juste pour proposer autre chose 😉

    For Each AR In Sheets("TEST").Range("H15:H27,J15:J27,M15:M27,P15:P27").Areas
        AR.FormulaR1C1 = "=IF(RC4=""ESSAI"",RC4,"""")"
        AR.Value = AR.Value
    Next

 

[GHISLAIN]

Re : simplifier code avec if

BONJOUR PAPOU-NET
merci de t etre penché sur mon sujet ton code fonctionne a merveille j ai juste supprimer la ligne 'Sheets("TEST").Range("H15").Value = "ESSAI"
qui me gardait la valeur "essai " dans les 2 conditions

je te remercie vivement

bon week end

amicalement ghislain

 

[GHISLAIN]

Re : simplifier code avec if

bonjour tototiti2008

ton code fonctionne egalement a merveille , merci de votre aide
sincere salutation

amicalement ghislain

 

[Papou-net]

Re : simplifier code avec if

BONJOUR PAPOU-NET
merci de t etre penché sur mon sujet ton code fonctionne a merveille j ai juste supprimer la ligne 'Sheets("TEST").Range("H15").Value = "ESSAI"
qui me gardait la valeur "essai " dans les 2 conditions

je te remercie vivement

bon week end

amicalement ghislain

Bien vu,

J'avais oublié de l'effacer, suite à la recopie de ton code.

Bravo, et bon WE également.

Cordialement.

PS : bonjour tototiti2008