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
David
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
Merci
Érico De Montréal, 9:00 am
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une
valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une
feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer
une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate()
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then
MsgBox "Création de lignes détectée"
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End If
End Sub
(Marche pour Office = ou plus recent a XP)
Cordialement
David
"Érico" <hahaha@videotron.ca> wrote in message
news:O3u539pcGHA.380@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes
sans être obligé de mettre une protection, est-ce possible?
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
Merci
Érico De Montréal, 9:00 am
Érico
Bonjour
Pour la première méthode, il faut faire quoi aussi? Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro. J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" a écrit dans le message de news:
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
Merci
Érico De Montréal, 9:00 am
Bonjour
Pour la première méthode, il faut faire quoi aussi?
Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro.
J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" <aksdav@hotmail.com> a écrit dans le message de news:
ugtPMDBdGHA.3908@TK2MSFTNGP04.phx.gbl...
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre
une valeur dans la cellule IV65536 (la cellule la plus en bas a droite
d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant
d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate()
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then
MsgBox "Création de lignes détectée"
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End If
End Sub
(Marche pour Office = ou plus recent a XP)
Cordialement
David
"Érico" <hahaha@videotron.ca> wrote in message
news:O3u539pcGHA.380@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes
sans être obligé de mettre une protection, est-ce possible?
Pour la première méthode, il faut faire quoi aussi? Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro. J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" a écrit dans le message de news:
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
Merci
Érico De Montréal, 9:00 am
anonymousA
Bonjour,
Ben, si mettre simplement une valeur en IV65536 empêchera l'insertion d'une ligne et/ou d'une colonne. Le seul désavantage étant que le Usedrange sera plus grand donc que la taille du fichier sera plus importante.
A+
Bonjour
Pour la première méthode, il faut faire quoi aussi? Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro. J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" a écrit dans le message de news:
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
Merci
Érico De Montréal, 9:00 am
Bonjour,
Ben, si mettre simplement une valeur en IV65536 empêchera l'insertion
d'une ligne et/ou d'une colonne.
Le seul désavantage étant que le Usedrange sera plus grand donc que la
taille du fichier sera plus importante.
A+
Bonjour
Pour la première méthode, il faut faire quoi aussi?
Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro.
J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" <aksdav@hotmail.com> a écrit dans le message de news:
ugtPMDBdGHA.3908@TK2MSFTNGP04.phx.gbl...
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre
une valeur dans la cellule IV65536 (la cellule la plus en bas a droite
d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant
d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate()
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then
MsgBox "Création de lignes détectée"
Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count
End If
End Sub
(Marche pour Office = ou plus recent a XP)
Cordialement
David
"Érico" <hahaha@videotron.ca> wrote in message
news:O3u539pcGHA.380@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes
sans être obligé de mettre une protection, est-ce possible?
Ben, si mettre simplement une valeur en IV65536 empêchera l'insertion d'une ligne et/ou d'une colonne. Le seul désavantage étant que le Usedrange sera plus grand donc que la taille du fichier sera plus importante.
A+
Bonjour
Pour la première méthode, il faut faire quoi aussi? Pas juste mettre une donnée dans la dernière sellule?
Pour la macro, ça ne fonctionne pas la macro. J'ai la version 2000 d'Excel.
Merci de votre aide.
"David" a écrit dans le message de news:
Salut,
Tu as differentes facon de realiser cela, le plus facile étant de mettre une valeur dans la cellule IV65536 (la cellule la plus en bas a droite d'une feuille Excel). Excel mettra ainsi un message d'alerte interdisant d'inserer une ligne.
Ou si tu veux le faire via le VBA tu peux toujours utiliser ce script :
Private Nombre_Lignes As Integer
Private Sub Worksheet_Activate() Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.UsedRange.Rows.Count > Nombre_Lignes Then MsgBox "Création de lignes détectée" Nombre_Lignes = ActiveSheet.UsedRange.Rows.Count End If End Sub
(Marche pour Office = ou plus recent a XP) Cordialement
David
"Érico" wrote in message news:
Bonjour,
J'aimerais avoir une macro pour empêcher les gens d'insérer des lignes sans être obligé de mettre une protection, est-ce possible?
