Macro si cellule vide
oliris
Messages postés
73
Statut
Membre
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai une feuille excel avec une macro que j'ai réalisé mai j'aimerai qu'il se lance que à condition que la cellule "W2" de ma feuille "score" ne soi pas vide, si celle-ci est vide j'aimerai afficher un message.
Je vous remercie d'avance!!!
Voici le macro actuel:
j'ai une feuille excel avec une macro que j'ai réalisé mai j'aimerai qu'il se lance que à condition que la cellule "W2" de ma feuille "score" ne soi pas vide, si celle-ci est vide j'aimerai afficher un message.
Je vous remercie d'avance!!!
Voici le macro actuel:
Sub Macro1()
'
' Macro1 Macro
'
Sheets("Nieuwe classement").Select
Range("A1:D50").Select
Selection.Copy
Sheets("Blad1").Select
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad1").Select
Range("A1:C50").Select
Selection.Copy
Sheets("Nieuwe classement").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Classement").Select
Range("B2:D50").Select
Selection.ClearContents
ActiveWorkbook.Worksheets("Nieuwe classement").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Nieuwe classement").AutoFilter.Sort.SortFields.Add Key:= _
Range("A1:A10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Save
End Sub
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
A voir également:
- Vba test cellule vide
- Test performance pc - Guide
- Test steam deck oled - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Test composant pc - Guide
- Comment supprimer une page vide sur word - Guide