Userform lancée sous condition

[cococh8]

Bonjour à tous,

J'aurais une petite question à vous poser à propos des fonctions "If" dans le VBA.

J'ai éssayer de mettre des if dans tous les sens avec des end if et tout mais je n'arrive pas à trouver un code qui execute correctement ce que je cherche.

Voici mon code: (j'ai mis en commentaire les fonctions que je cherche à programmer)

Si quelqu'un connait le bon code pour traduire cela, ce serait raiment sympa🙂

Un grand merci d'avance et bon dimanche 🙂

Sub pos_1()
'
' pos_1 Macro
'

    'si la valeur de la cellule L15 est suppérieure ou égale à celle de A11, alors:
    
    UserForm4.Show
    
    'sinon:
       

    ActiveWindow.SmallScroll Down:=9
    Range("L15:L18").Select
    Selection.Copy
    Sheets("result").Select
    Range("K12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K13").Select
    Selection.Copy
    Sheets("GermanHFtool").Select
    Range("I17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("result").Select
    Range("C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A24").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("B24").Select
    
   
    
End Sub

 

[fhoest]

Re : Userform lancée sous condition

bonjour,
'si la valeur de la cellule L15 est suppérieure ou égale à celle de A11, alors:

if [L15]>=[A11] then

sinon:

else:

et a la fin du code qui suit le else
end if avant bien sur le end sub
A+

 

[Cousinhub]

Re : Userform lancée sous condition

Bonjour,

Ton code un peu modifié :

Sub pos_1()
If [L15] >= [A11] Then
    UserForm4.Show
Else
    Range("L15:L18").Copy
    With Sheets("result")
        .Range("K12").PasteSpecial Paste:=xlPasteValues
        .Range("K15").Copy
        .Range("C16").PasteSpecial Paste:=xlPasteValues
        .Range("K14").Copy
        .Range("A12").PasteSpecial Paste:=xlPasteValues
        .Range("K13").Copy
    End With
    With Sheets("GermanHFtool")
        .Range("I17").PasteSpecial Paste:=xlPasteValues
        .Range("I20").Copy
    End With
    With Sheets("result")
        .Range("C14").PasteSpecial Paste:=xlPasteValues
        .Range("A24").ClearContents
    End With
End If
End Sub

Bon Dimanche

 

[cococh8]

Re : Userform lancée sous condition

Merci beaucoup pour vos lumières, ça fonctionne nickel 🙂