VBA - condition If

JM27

XLDnaute Barbatruc

• 2 Janvier 2016

• #2

Re : VBA - condition If

Bonsoir

Code:

Sub Condition_B5() 'cette macro est associée à une procédure événementielle.

    If [B5] = "" Then
    MsgBox "completer B5 par 1 ou 2"
    Range("B5").Select
    ElseIf [B5] = 1 Then
    Range("C4").Value = "Hello"
    Range("C6").ClearContents
    ElseIf [B5] = 2 Then
    Range("C6").Value = "Bye Bye"
    Range("C4").ClearContents
    Else
    End If

  
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Janvier 2016

• #3

Re : VBA - condition If

Bonjour.

Une instruction If condition Then InstructionSurLaMêmeLigne est différente d'une instruction If condition Then, dans la mesure ou elle n'instaure pas de bloc If devant se terminer par un End If. Elle supporte aussi plusieurs instructions mais elles doivent alors toutes être séparées de ": " sur la même ligne logique que le Then, soit éventuellement plusieurs ligne physiques dont seule la dernière ne doit pas se terminer par le " _" de continuation.

 

Dernière édition: 2 Janvier 2016

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 2 Janvier 2016

• #4

Re : VBA - condition If

Ok, ça marche
VBA, c'est vraiment tatillon
et encore merci

 

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 4 Janvier 2016

• #5

Re : VBA - condition If

Bonjour,

Je me retrouve confronté au même problème de condition IF mais cette fois dans une procédure événementielle.

Pouvez vous regarder le fichier joint et répondre aux questions ?

D'avance merci,

@+

 

Pièces jointes

• VBA-Macro evenementielle - Condition1.xls

  148.5 KB · Affichages: 31

Vote positif 0 Vote négatif

JM27

XLDnaute Barbatruc

• 4 Janvier 2016

• #6

Re : VBA - condition If

Bonjour
Comme cela ?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        Test1
    ElseIf Not Intersect(Target, Range("B5")) Is Nothing Then
        Condition_B5
    End If

End Sub

 

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 4 Janvier 2016

• #7

Re : VBA - condition If

Merci pour la réponse
ca fonctionne
mais où allez vous chercher toutes ces solutions ????
@+

 

Vote positif 0 Vote négatif