cellule active

[PhD]

bonjour, novice dans la programmation je suis à la recherche d'une solution pour Placer le résultat d'une macro dans une cellule active, mais il faut que cette cellule fasse partie d'une sélection. Je m'explique ; la macro m'installe dans un planing une série de postes sur 5 jours qui doit impérativement démarrer le lundi et ce ,sur des lignes qui ne se suivent pas ex:j7;j10;j13
si cette macro arrive sur un autre endroit elle m'efface d'autres horaires
En vous remerciant ,Salutations
Phil

 

[michel]

bonjour phD

l'exemple ci dessous est à integrer au debut de ta procedure

lorsque la cellule active est en dehors de la Plage définie , l'utilisateur sort de la macro automatiquement
si tu as beaucoup de cellules cible , il est possible d'utiliser d'autres methodes ( effectuer le controle par rapport à une couleur de cellule par exemple )

Sub ModifCelluleParMacro()
Dim Plage As Range
Set Plage = Range("J7,J10,J13,E6,G3,G5")
If Intersect(ActiveCell, Plage) Is Nothing Then
MsgBox "vous n'etes pas autorisé à lancer une macro sur cette cellule . "
Exit Sub
Else

'......Ta Macro ...............

End If
End Sub


bon debut de week end
michel

 

[PhD]

Excelent, ça marche grand merçi
quant au WE ,j'ai la chance être d'asteinte juste mercredi . par contre je t'en souhaite un bon