Bonjour
j'ai créé une macro qui verrouille les cellules non vides et deverrouille les cellules vides de plusieurs plages.
Les plages ont 10 ou 18 lignes et 5 colonnes.
Tant que j'ai une cellule vide dans la plage tout est ok.Si la plage est pleine erreur 1004 il ne trouve pas de cellules vides et laisse donc la plage deverrouillée.Est-il possible de contourner ce problème avec on error go to afin de verrouiller la plage et de relancer la macro sur le range suivant.
EX: si la plage A8:E25 est pleine branchement sur erreur :
Bloquer la plage
reprendre la macro sur Range F8:J25.
etc....
Merci.
Ci dessous une partie de la macro generée sous excel
Code :
Range("A8:E25").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = True
Range("F8:J25").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=21
Range("F28:J45").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=-21
Range("K7:O17").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=12
Range("K20:O29").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
j'ai créé une macro qui verrouille les cellules non vides et deverrouille les cellules vides de plusieurs plages.
Les plages ont 10 ou 18 lignes et 5 colonnes.
Tant que j'ai une cellule vide dans la plage tout est ok.Si la plage est pleine erreur 1004 il ne trouve pas de cellules vides et laisse donc la plage deverrouillée.Est-il possible de contourner ce problème avec on error go to afin de verrouiller la plage et de relancer la macro sur le range suivant.
EX: si la plage A8:E25 est pleine branchement sur erreur :
Bloquer la plage
reprendre la macro sur Range F8:J25.
etc....
Merci.
Ci dessous une partie de la macro generée sous excel
Code :
Range("A8:E25").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = True
Range("F8:J25").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=21
Range("F28:J45").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=-21
Range("K7:O17").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=12
Range("K20:O29").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Locked = False
Selection.FormulaHidden = False