Si cellule non vide

Salut,

J'ai besoin d'aide a propos de cet code VBA, je voulais ajouter si cellule en trouvée en colonne B non vide apparaître un message et annuler macro

Merci d'avance

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect "123456"
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim L As Long
Dim coderech As String
Dernligne = Sheets("Source").Range("A" & Rows.Count).End(xlUp).Row
coderech = ComboBox1.Value
With Sheets("Source")
Set plage = .Range("A2:A" & Dernligne)
For Each Cell In plage
 If Cell.Value = coderech Then
  .Cells(Cell.Row, 2).Value = TextBox2.Value
 End If
Next Cell
End With
TextBox2.Value = ""
ComboBox1.Value = ""

With Sheets("Source")
L = Dernligne + 1
.Cells(L, 2) = TextBox2.Value
TextBox2.Value = ""
End With

Unload Me
UserForm1.Show
End Sub

Bonjour,

une proposition, si j'ai bien compris :

 If Cell.Value = coderech and Cell.Offset(,1) =""  Then
  .Cells(Cell.Row, 2).Value = TextBox2.Value
 End If

@ bientôt

LouReeD

Bonjour LouReed,

Merci pour votre réponse j'ai essayé avec votre code utile, mais je veux faire apparaître un message (cellule pleine) et bloquer la saisie. Avec votre code ça passe sans savoir que la cellule est pleine.

Meilleurs salutations

Bonjour,

Il suffit de mettre un "Else" puis MsgBox("donnée déjà renseignée")

@ bientôt

LouReeD

LouReed,

j'ai essayé votre code ça reste bloqué sur msgbox et on peut pas le fermer

Merci

Un autre essai :

If Cell.Value = coderech and Cell.Offset(,1) ="" Then
    .Cells(Cell.Row, 2).Value = TextBox2.Value
Elseif Cell.Value = coderech and Cell.Offset(,1)<>"" Then
    MsgBox ("donnée existante")
End If

@ bientôt

LouReeD

Bonjour,

Merci beaucoup LouReed vous m'avez aider à résoudre le problème

Meilleurs salutations

Merci pour vos remerciements !

@ bientôt

LouReeD