Microsoft 365 excel vba

[omarghatrif]

Bonjour,

je suis débutant en vba, je n'arrive pas créer un programme qui me permet de créer une nouvelle colonne entre al colonne X et Y nommée "qtés facturables"
cette qté facturable = si la colonne X contient le mot "DPU" la qté facturable = colonne S /2
si X ne contient pas "DPU" la qté facturable= colonne S.
vous trouverez le fichier ci-joint
Merci d'avance de votre aide

 

[JM27]

bonjour
je suppose que c'est la recherche de DPU qui te pose pb
voici un exemple sur 10 lignes

Sub recherche()
    For I = 1 To 10
       If Range("X" & I) Like "*" & "DPU" & "*" = True Then
            MsgBox "cellule X" & I & "Contient DPU"
       End If
    Next
End Sub

 

[Dranreb]

Bonjour. Même chose qu'à l'autre message mais avec :

.FormulaR1C1 = "=RC19/(ISNUMBER(SEARCH(""DPU"",RC[-1]))+1)"

Veuillez répondre à ce message.

 

[omarghatrif]

bonjour
je suppose que c'est la recherche de DPU qui te pose pb
voici un exemple sur 10 lignes

Sub recherche()
    For I = 1 To 10
       If Range("X" & I) Like "*" & "DPU" & "*" = True Then
            MsgBox "cellule X" & I & "Contient DPU"
       End If
    Next
End Sub

Bonjour,
merci pour votre réponse, en faite je recherche le programme complet.

 

[JM27]

bonjour

 

[omarghatrif]

merci de ta réponse.