Bonjour,
J'ai un tableau qui (A5:X15). Lorsque je sélectionne une plange dans le tableau j'aimerai que pour chaque cellule excel se demande :
si la cellule est vide et que dans la colone de la cellule active entre les ligne 5 et 15 X n'apparait pas alors la valeur de la cellule est X
J'ai dévellopé le code suivant qui ne me donne pas le résultat escompté.
Avez vous des idées pour me réenligner!
Merci à l'avance pour vos conseils
Sub Amath()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim acell As Object
For Each acell In Selection
Set rgFound = Range(Cells(5, ActiveCell.Column), Cells(15, ActiveCell.Column)).Find("X")
If acell = "" And rgFound Is Nothing Then
acell = "X"
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
J'ai un tableau qui (A5:X15). Lorsque je sélectionne une plange dans le tableau j'aimerai que pour chaque cellule excel se demande :
si la cellule est vide et que dans la colone de la cellule active entre les ligne 5 et 15 X n'apparait pas alors la valeur de la cellule est X
J'ai dévellopé le code suivant qui ne me donne pas le résultat escompté.
Avez vous des idées pour me réenligner!
Merci à l'avance pour vos conseils
Sub Amath()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim acell As Object
For Each acell In Selection
Set rgFound = Range(Cells(5, ActiveCell.Column), Cells(15, ActiveCell.Column)).Find("X")
If acell = "" And rgFound Is Nothing Then
acell = "X"
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub