Bonjour,
J’ai besoin de votre aide : je cherche à écrire en VBA : si cellule C12 et/ou D12 sont vides alors un message d’erreur apparaît et la macro (copier et coller les cellules vers un autre onglet) ne se fait pas.
Ceci se fait pas une macro en cochant un bouton tout simplement mais je n’arrive pas à m’occuper des cellules vides correctement en VBA
Voici le code VBA
Sub ajoutcorr()
’
’ ajoutcorr Macro
’
If Range(« C12 »:« D12 »)= « » Then (((( PROBLEME SUR CETTE LIGNE ))))
Msgbox « Compléter nom prénom (cellule C12) mail (cellule D12) correspondant »
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("Ajout Correspondant").Select
Range("C12,D12").Select
Selection.Copy
Sheets("Correspondants Mail").Select
Range("C4:D4").End(xlDown).Offset(1, 0).Select ' rajouter correspondants dans onglet correspondants'
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Ajout Correspondant").Select 'effacer cellules correspondants'
Range("C12").Select
Selection.ClearContents
Range("D12").Select
Selection.ClearContents
Application.ScreenUpdating = True
End Sub
Merci pour votre aide