Adaptation de code

[degap05]

Bonjour le forum,

Avec votre aide, pour l'adaptation de ce code, je souhaite que le bouton actionne la macro CopieBlocNote, uniquement si au moins une des cellules en plage D4😀50 n'est pas vide:

Private Sub CommandButton2_Click()
If IsEmpty(Range("D4😀50").Value) Then
MsgBox "Veuillez renseigner les cellules de la ligne en colonne D"
Else
CopieBlocNote
End If
End Sub

Merci de votre aide.

 

[Pierrot93]

Re : Adaptation de code

Bonjour Degap

peut être ainsi, si j'ai bien compris :

Private Sub CommandButton2_Click()
If Application.CountA(Range("D4:D50")) > 0 Then
    CopieBlocNote
Else
    MsgBox "Veuillez renseigner les cellules de la ligne en colonne D"
End If
End Sub

PS utilise la balise "code"(click sur le #) quand tu mets un code dans un message, c'est plus lisible.

bonne journée
@+

 

[degap05]

Re : Adaptation de code

Bonjour Pierrot93,

Tu as parfaitement compris.

Merci pour ta réponse ultra-rapide.

Salutations.