Recherche solution

Le
Tibert
Bonjour à tous

Je recherche une solution pour mon tableau
dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
( P ) mais qu'on puisse modifier les autres lettres,

Merci à vous
Bonne soirée

http://cjoint.com/?lBs1ydsBeH
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #20646141
Salut,
En mettant cette macro dans le code de ta feuille ?

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect UserInterfaceOnly:=True
If Target.Value = "P" Then Target.Locked = True Else Target.Locked
= False
End Sub

Cordialement,

F.
Fredo P.
Le #20647631
http://cjoint.com/?lBvafzZ2un
--

Fredo P.


"Tibert"
Bonjour à tous

Je recherche une solution pour mon tableau
dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
( P ) mais qu'on puisse modifier les autres lettres,

Merci à vous
Bonne soirée

http://cjoint.com/?lBs1ydsBeH
Tibert
Le #20649131
Bonjour Fredo P

Merci pour vos réponse, mais je vais opter pour la réponse Fredo P,
elle me convient bien
Encore merci
et bonne journée à vous



On 27 nov, 21:00, "Fredo P." wrote:
http://cjoint.com/?lBvafzZ2un
--

Fredo P.

"Tibert"
Bonjour à tous

Je recherche une solution pour mon tableau
dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
( P ) mais qu'on puisse modifier les autres lettres,

Merci à vous
Bonne soirée

http://cjoint.com/?lBs1ydsBeH


Tibert
Le #20649771
RE : Bonjour ; Fredo P

J'ai adapté ton exemple dans mon tableau, mais j'ai put remarquer que
quand je sélectionne plusieurs cellule sa me fait une " Erreur
d'exécution '13' : Incompatibilité de type

y aurait il une posibilité de contourné se problème, autrement c'est
pas grave c'est déjà bien

Bonne après midi




On 27 nov, 21:00, "Fredo P." wrote:
http://cjoint.com/?lBvafzZ2un
--

Fredo P.

"Tibert"
Bonjour à tous

Je recherche une solution pour mon tableau
dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
( P ) mais qu'on puisse modifier les autres lettres,

Merci à vous
Bonne soirée

http://cjoint.com/?lBs1ydsBeH


Fredo P.
Le #20652321
Dim Ad$(), i%
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 0 To UBound(Ad) - 1
If Ad(i) <> "" Then
Range(Ad(i)) = "P"
End If
Next
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Object
i = 0
ReDim Ad([counta(Selection,"P")])
For Each c In Selection
If c = "P" Then
Ad(i) = c.Address
i = i + 1
End If
Next
End Sub
http://cjoint.com/?lCvxQvahly
--



Fredo P.


"Tibert"
RE : Bonjour ; Fredo P

J'ai adapté ton exemple dans mon tableau, mais j'ai put remarquer que
quand je sélectionne plusieurs cellule sa me fait une " Erreur
d'exécution '13' : Incompatibilité de type

y aurait il une posibilité de contourné se problème, autrement c'est
pas grave c'est déjà bien

Bonne après midi




On 27 nov, 21:00, "Fredo P." wrote:
http://cjoint.com/?lBvafzZ2un
--

Fredo P.

"Tibert"
Bonjour à tous

Je recherche une solution pour mon tableau
dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
( P ) mais qu'on puisse modifier les autres lettres,

Merci à vous
Bonne soirée

http://cjoint.com/?lBs1ydsBeH


Tibert
Le #20656051
Bonjour "Fredo P

Vraiment super ton code et merci pour le travail

Je te souhait bonne journée


On 28 nov, 21:25, "Fredo P." wrote:
Dim Ad$(), i%
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    For i = 0 To UBound(Ad) - 1
        If Ad(i) <> "" Then
            Range(Ad(i)) = "P"
        End If
    Next
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Object
    i = 0
    ReDim Ad([counta(Selection,"P")])
    For Each c In Selection
        If c = "P" Then
            Ad(i) = c.Address
            i = i + 1
        End If
    Next
End Subhttp://cjoint.com/?lCvxQvahly
--

Fredo P.

"Tibert"
RE : Bonjour ; Fredo P

J'ai adapté ton exemple dans mon tableau, mais j'ai put remarquer que
quand je sélectionne plusieurs cellule sa me fait une " Erreur
d'exécution '13' : Incompatibilité de type

y aurait il une posibilité de contourné se problème, autrement c'es t
pas grave c'est déjà bien

Bonne après midi

On 27 nov, 21:00, "Fredo P." wrote:



>http://cjoint.com/?lBvafzZ2un
> --

> Fredo P.

> "Tibert" >
> Bonjour à tous

> Je recherche une solution pour mon tableau
> dans le fichier ci-joint se trouve un tableau rempli par des lettre R,
> E, F, A, P et une fois rempli je souhaiterais bloquer les cellule ou
> se trouve que les lettres ( P ) pour qu'on ne puisse plus modifier les
> ( P ) mais qu'on puisse modifier les autres lettres,

> Merci à vous
> Bonne soirée

>http://cjoint.com/?lBs1ydsBeH- Masquer le texte des messages précéde nts -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme