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,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FdeCourt
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.
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
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.
http://cjoint.com/?lBvafzZ2un --
Fredo P.
"Tibert" a écrit dans le message de news:
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
http://cjoint.com/?lBvafzZ2un
--
Fredo P.
"Tibert" <syleg35@gmail.com> a écrit dans le message de news:
7e345485-f01b-4706-be01-c7497e2a7fe3@a32g2000yqm.googlegroups.com...
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,
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
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" a écrit dans le message de news:
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
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." <ponsinet.frederic...@otezcelaorange.fr>
wrote:
http://cjoint.com/?lBvafzZ2un
--
Fredo P.
"Tibert" <syle...@gmail.com> a écrit dans le message de news:
7e345485-f01b-4706-be01-c7497e2a7...@a32g2000yqm.googlegroups.com...
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 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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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." <ponsinet.frederic...@otezcelaorange.fr>
wrote:
http://cjoint.com/?lBvafzZ2un
--
Fredo P.
"Tibert" <syle...@gmail.com> a écrit dans le message de news:
7e345485-f01b-4706-be01-c7497e2a7...@a32g2000yqm.googlegroups.com...
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,
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" a écrit dans le message de news:
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.
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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" <syleg35@gmail.com> a écrit dans le message de news:
6af79cd2-c59e-4ac9-be3e-7423026f6a14@m38g2000yqd.googlegroups.com...
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." <ponsinet.frederic...@otezcelaorange.fr>
wrote:
http://cjoint.com/?lBvafzZ2un
--
Fredo P.
"Tibert" <syle...@gmail.com> a écrit dans le message de news:
7e345485-f01b-4706-be01-c7497e2a7...@a32g2000yqm.googlegroups.com...
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,
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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" a écrit dans le message de news: > > 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 -
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." <ponsinet.frederic...@otezcelaorange.fr>
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" <syle...@gmail.com> a écrit dans le message de news:
6af79cd2-c59e-4ac9-be3e-7423026f6...@m38g2000yqd.googlegroups.com...
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." <ponsinet.frederic...@otezcelaorange.fr>
wrote:
>http://cjoint.com/?lBvafzZ2un
> --
> Fredo P.
> "Tibert" <syle...@gmail.com> a écrit dans le message de news:
> 7e345485-f01b-4706-be01-c7497e2a7...@a32g2000yqm.googlegroups.com...
> 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 -
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" a écrit dans le message de news:
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" a écrit dans le message de news: > > 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 -