Si cellule non vide alors ...

[fx62]

Bonjour le forum,

Voilà j'ai un petit problème qui je suis sûr est assez simple pour vous.

J'ai réussi à dire en VBA si A1 non vide alors B1 = "RAS" avec le code suivant trouvé sur XLD :

Sub Cellule_non_vide()

If Not IsEmpty(Range("A1")) Then
Range("B1") = "RAS"
Else
Range("B1") = ""
End If

End Sub

Par contre je voudrais rajouter une condition si B1 non vide alors ne pas écraser B1.
Et c'est sur cette étape que je bloque.

Merci d'avance pour vos réponses,
fx62

 

[david84]

Re : Si cellule non vide alors ...

Bonjour,
pas sûr d'avoir compris mais :

Sub Cellule_non_vide()
If Not IsEmpty(Range("B1")) Then Exit Sub
If Not IsEmpty(Range("A1")) Then
Range("B1") = "RAS"
Else
Range("B1") = ""
End If

End Sub

ou peut-être :

Sub Cellule_non_vide()
If IsEmpty(Range("B1")) Then
If Not IsEmpty(Range("A1")) Then
Range("B1") = "RAS"
Else
Range("B1") = ""
End If
End If

End Sub

A+

 

[Efgé]

Re : Si cellule non vide alors ...

Bonjour fx62, david84,
Une autre forme, comme je l'ai fait, je le poste:

Sub Cellule_non_vide()
If Not IsEmpty(Range("A1")) Then
    If Range("B1").Value = "" Then
        Range("B1") = "RAS"
    End If
Else
    Range("B1") = ""
End If
End Sub

Cordialement

 

[fx62]

Re : Si cellule non vide alors ...

Merci à vous deux pour la rapidité de vos réponses.

Après avoir essayé les deux solutions de david84 et celle de Efgé, il semble que toutes fonctionnent parfaitement.

Encore un grand merci, ce forum est juste excellent.

A bientôt,
fx62