Userform lancée sous condition

cococh8 · 14 Novembre 2010

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 🙂

Code:

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 · 14 Novembre 2010

Re : Userform lancée sous condition

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

Code:

if [L15]>=[A11] then

sinon:

Code:

else:

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

Cousinhub · 14 Novembre 2010

Re : Userform lancée sous condition

Bonjour,

Ton code un peu modifié :

Code:

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 · 14 Novembre 2010

Re : Userform lancée sous condition

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

Userform lancée sous condition

cococh8

XLDnaute Junior

fhoest

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

cococh8

XLDnaute Junior

Discussions similaires

Userform lancée sous condition

cococh8

XLDnaute Junior

fhoest

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

cococh8

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency