Microsoft 365 excel vba

omarghatrif · 27 Janvier 2022

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 · 27 Janvier 2022

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

VB:

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 · 27 Janvier 2022

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

VB:

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

Veuillez répondre à ce message.

omarghatrif · 27 Janvier 2022

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

VB:

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 · 27 Janvier 2022

bonjour

omarghatrif · 28 Février 2022

merci de ta réponse.

Microsoft 365 excel vba

omarghatrif

XLDnaute Nouveau

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

omarghatrif

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Pièces jointes

omarghatrif

XLDnaute Nouveau

Discussions similaires