Bonjour
Je me permets de vous solliciter de nouveau pour placer un message box en cas d'erreur.
Voici le code :
Je dois placer un message box lorsqu'il n'y pas de cellule en jaune
j'ai essayé avec :
Mais ça ne fonctionne pas
Merci d'avance pour votre aide
Je me permets de vous solliciter de nouveau pour placer un message box en cas d'erreur.
Voici le code :
VB:
Sub Collage_données()
If ActiveSheet.Name <> "Anciennes_valeurs" Then
MsgBox "Désolé mais vous devez selectionner la feuille nommée Anciennes_valeurs pour lancer la macro"
Else
Dim couleur As Long
'couleur = ActiveCell.Interior.Color
couleur = RGB(255, 242, 204)
For Each c In ActiveSheet.UsedRange
If Not IsError(c.Interior.Color = couleur) Then
MsgBox "Pas de cellule en font jaune"
Exit Sub
End If
If c.Interior.Color = couleur Then
Colonne = c.Column
Ligne = c.Row
[ZoneColler_collectif].Cells(Ligne, Colonne) = c
End If
Next
MsgBox "Toutes les valeurs en fond jaune ont été copiées"
End If
End SubJe dois placer un message box lorsqu'il n'y pas de cellule en jaune
j'ai essayé avec :
VB:
If Not IsError(c.Interior.Color = couleur) Then
MsgBox "Pas de cellule en font jaune"
Exit Sub
End IfMerci d'avance pour votre aide
Dernière édition: