if then else

[Pierrot]

bonjour à tous.

J'ai un petit problème ; dans le cadre de mon boulot j'ai créé le code suivant. Je souhaite si la cellule b1 est vide que le code s'exécute, si cette cellule est remplie, il ne doit pas s'exécuter. Mais visiblement ça ne marche pas. :angry: Merci à tout ceux qui pourront m'aider.
Sheets('Dépenses jour').Select
Range('bg2').Select
Selection.Copy
Dim maFeuil As String
On Error GoTo GestErreur
maFeuil = InputBox(Prompt:='Taper le nom de la feuille recherchée sans accent. ')
Sheets(maFeuil).Select
Range('b1').Select
If ('b1') = '' Then
Range('a65536').Select
Selection.End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection.Font
ColorIndex = 1
End With
cdearg = MsgBox('DEVEZ-VOUS EFFECTUER UN REAPPROVISIONNEMENT ???', vbYesNo)
If cdearg = vbYes Then
Range('b2').Select
Selection.Copy
Range('h4').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else: GoTo GestErreur
End If
Else: GoTo GestErreur
End If
GestErreur:
MsgBox 'Cette feuille n'existe pas !'
End Sub

 

[excalibur]

bonjour pierrot essaie comme cela If Range('b1').Value = '' Then salutations

 

[Pierrot]

🙂 Merci excalibur !!! Non mais franchement, que n'y ais-je pensé plus tôt !!! Merci encore et à bientôt.