Je voudrais désactiver une ligne contenant dans une cellule une donnée car
on ne doit saisir que dans une seule cellule et ce pour un tableau contenant
x lignes.
Où dois-je placer ma macro?
Comment empêcher la suppression des fonctions que l'on a tapé dans les
cellules?
Le logiciel est excel 97.
Merçi pour votre aide,
A bientôt,
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
lSteph
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule)
et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" <Mirea@discussions.microsoft.com> a écrit dans le message de news:
B5E54E6F-FB53-4BBA-9434-F918BCA09B71@microsoft.com...
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car
on ne doit saisir que dans une seule cellule et ce pour un tableau
contenant
x lignes.
Où dois-je placer ma macro?
Comment empêcher la suppression des fonctions que l'on a tapé dans les
cellules?
Le logiciel est excel 97.
Merçi pour votre aide,
A bientôt,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
Mirea
bonjour, j'ai essayé cela ne marche pas.
j'ai voulu essayé cette formule, mais cela ne marche pas. Sub VerificationCelluleNonVide Set plg=Range("B5:E200") For Each c In (plg) If c Is Not Empty then locked.plg.Rows.count end If Next End Sub
je voudrais juste une formule qui ressemble à : sur vérification des cellules d'une plage si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la ligne et ainsi de suite, d'où la formule précédente. En plus For Each In (plg) est en rouge. pouvez vous m'aider? Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
bonjour,
j'ai essayé cela ne marche pas.
j'ai voulu essayé cette formule, mais cela ne marche pas.
Sub VerificationCelluleNonVide
Set plg=Range("B5:E200")
For Each c In (plg)
If c Is Not Empty then locked.plg.Rows.count
end If
Next
End Sub
je voudrais juste une formule qui ressemble à :
sur vérification des cellules d'une plage
si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la
ligne et ainsi de suite, d'où la formule précédente. En plus For Each In
(plg) est en rouge.
pouvez vous m'aider?
Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule)
et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" <Mirea@discussions.microsoft.com> a écrit dans le message de news:
B5E54E6F-FB53-4BBA-9434-F918BCA09B71@microsoft.com...
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car
on ne doit saisir que dans une seule cellule et ce pour un tableau
contenant
x lignes.
Où dois-je placer ma macro?
Comment empêcher la suppression des fonctions que l'on a tapé dans les
cellules?
Le logiciel est excel 97.
Merçi pour votre aide,
A bientôt,
j'ai voulu essayé cette formule, mais cela ne marche pas. Sub VerificationCelluleNonVide Set plg=Range("B5:E200") For Each c In (plg) If c Is Not Empty then locked.plg.Rows.count end If Next End Sub
je voudrais juste une formule qui ressemble à : sur vérification des cellules d'une plage si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la ligne et ainsi de suite, d'où la formule précédente. En plus For Each In (plg) est en rouge. pouvez vous m'aider? Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
lSteph
Bonjour, Postulat: au départ la feuille n'est pas protègée Préalable: Sélection de toutes les cellules Format Cellule Protection Déverrouillée Ensuite coller le code ci après fermer vba .
'''''''*******Dans code de la feuille******* Private Sub Worksheet_Change(ByVal Target As Range) Call VerificationCelluleNonVide End Sub
'''''''*******Dans Module1******* Sub VerificationCelluleNonVide() Dim plg As Range, c As Range, r As Range Set plg = Range("B5:E200") For Each r In plg.Rows For Each c In r.Cells If Not IsEmpty(c) Then Rows(c.Row).Cells.Locked = True: Exit For Next c Next r ActiveSheet.Protect Password:="toto", userinterfaceonly:=True ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
'Cordialement
'lSteph
"Mirea" a écrit dans le message de news:
bonjour, j'ai essayé cela ne marche pas.
j'ai voulu essayé cette formule, mais cela ne marche pas. Sub VerificationCelluleNonVide Set plg=Range("B5:E200") For Each c In (plg) If c Is Not Empty then locked.plg.Rows.count end If Next End Sub
je voudrais juste une formule qui ressemble à : sur vérification des cellules d'une plage si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la ligne et ainsi de suite, d'où la formule précédente. En plus For Each In (plg) est en rouge. pouvez vous m'aider? Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
Bonjour,
Postulat:
au départ la feuille n'est pas protègée
Préalable:
Sélection de toutes les cellules
Format Cellule Protection Déverrouillée
Ensuite coller le code ci après fermer vba .
'''''''*******Dans code de la feuille*******
Private Sub Worksheet_Change(ByVal Target As Range)
Call VerificationCelluleNonVide
End Sub
'''''''*******Dans Module1*******
Sub VerificationCelluleNonVide()
Dim plg As Range, c As Range, r As Range
Set plg = Range("B5:E200")
For Each r In plg.Rows
For Each c In r.Cells
If Not IsEmpty(c) Then Rows(c.Row).Cells.Locked = True: Exit For
Next c
Next r
ActiveSheet.Protect Password:="toto", userinterfaceonly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
'Cordialement
'lSteph
"Mirea" <Mirea@discussions.microsoft.com> a écrit dans le message de news:
E4E0F0E2-2204-4A57-9F88-E1D631252554@microsoft.com...
bonjour,
j'ai essayé cela ne marche pas.
j'ai voulu essayé cette formule, mais cela ne marche pas.
Sub VerificationCelluleNonVide
Set plg=Range("B5:E200")
For Each c In (plg)
If c Is Not Empty then locked.plg.Rows.count
end If
Next
End Sub
je voudrais juste une formule qui ressemble à :
sur vérification des cellules d'une plage
si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la
ligne et ainsi de suite, d'où la formule précédente. En plus For Each In
(plg) est en rouge.
pouvez vous m'aider?
Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule)
et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" <Mirea@discussions.microsoft.com> a écrit dans le message de
news:
B5E54E6F-FB53-4BBA-9434-F918BCA09B71@microsoft.com...
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée
car
on ne doit saisir que dans une seule cellule et ce pour un tableau
contenant
x lignes.
Où dois-je placer ma macro?
Comment empêcher la suppression des fonctions que l'on a tapé dans les
cellules?
Le logiciel est excel 97.
Merçi pour votre aide,
A bientôt,
Bonjour, Postulat: au départ la feuille n'est pas protègée Préalable: Sélection de toutes les cellules Format Cellule Protection Déverrouillée Ensuite coller le code ci après fermer vba .
'''''''*******Dans code de la feuille******* Private Sub Worksheet_Change(ByVal Target As Range) Call VerificationCelluleNonVide End Sub
'''''''*******Dans Module1******* Sub VerificationCelluleNonVide() Dim plg As Range, c As Range, r As Range Set plg = Range("B5:E200") For Each r In plg.Rows For Each c In r.Cells If Not IsEmpty(c) Then Rows(c.Row).Cells.Locked = True: Exit For Next c Next r ActiveSheet.Protect Password:="toto", userinterfaceonly:=True ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
'Cordialement
'lSteph
"Mirea" a écrit dans le message de news:
bonjour, j'ai essayé cela ne marche pas.
j'ai voulu essayé cette formule, mais cela ne marche pas. Sub VerificationCelluleNonVide Set plg=Range("B5:E200") For Each c In (plg) If c Is Not Empty then locked.plg.Rows.count end If Next End Sub
je voudrais juste une formule qui ressemble à : sur vérification des cellules d'une plage si une des cellules d'une ligne de la plage n'est pa vide alors bloquer la ligne et ainsi de suite, d'où la formule précédente. En plus For Each In (plg) est en rouge. pouvez vous m'aider? Merçi!
Bonjour,
dévérouille les cellules dans lesquelles on peut saisir (Format Cellule) et protège la feuille.(Outils Protection)
Cordialement.
lSteph
"Mirea" a écrit dans le message de news:
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donnée car on ne doit saisir que dans une seule cellule et ce pour un tableau contenant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
JB
Bonsoir,
Dès qu'une cellule est saisie dans une ligne (colonnes 1 à 5),la ligne est verrouillée et coloriée.
http://cjoint.com/?iwvbWBnfOo
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 5 And Target.Count = 1 Then If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 5))) > 0 Then ActiveSheet.Unprotect Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Locked = True Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 33 ActiveSheet.Protect End If End If End Sub
Cordialement JB
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donné e car on ne doit saisir que dans une seule cellule et ce pour un tableau conten ant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
Bonsoir,
Dès qu'une cellule est saisie dans une ligne (colonnes 1 à 5),la
ligne est verrouillée et coloriée.
http://cjoint.com/?iwvbWBnfOo
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 5 And Target.Count = 1
Then
If Application.CountA(Range(Cells(Target.Row, 1),
Cells(Target.Row, 5))) > 0 Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
5)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End If
End Sub
Cordialement JB
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donné e car
on ne doit saisir que dans une seule cellule et ce pour un tableau conten ant
x lignes.
Où dois-je placer ma macro?
Comment empêcher la suppression des fonctions que l'on a tapé dans les
cellules?
Le logiciel est excel 97.
Merçi pour votre aide,
A bientôt,
Dès qu'une cellule est saisie dans une ligne (colonnes 1 à 5),la ligne est verrouillée et coloriée.
http://cjoint.com/?iwvbWBnfOo
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 5 And Target.Count = 1 Then If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 5))) > 0 Then ActiveSheet.Unprotect Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Locked = True Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 33 ActiveSheet.Protect End If End If End Sub
Cordialement JB
Bonjour la Communanté
Je voudrais désactiver une ligne contenant dans une cellule une donné e car on ne doit saisir que dans une seule cellule et ce pour un tableau conten ant x lignes. Où dois-je placer ma macro? Comment empêcher la suppression des fonctions que l'on a tapé dans les cellules? Le logiciel est excel 97. Merçi pour votre aide, A bientôt,
