Discussion :

[RJSCVF]

Bonjour à tous !
J'ai une préoccupation et j'espère que quelqu'un pourra m'aider.

J'ai un fichier Excel nommé "état de besoin".
J'y ai inséré des macros avec des codes VBA pris sur Internet afin d'exécuter certaines tâches. Ceux qui utiliseront ce fichier ne connaissent pas bien l'informatique et surtout pas Excel.
Mon problème ou ma difficulté se trouve au niveau de deux boutons parmi les boutons que que j'ai placés dans ce fichier. Ces deux boutons se nomment : "Insérer article" et "Supprimer article" ; qui permettons aux utilisateurs, en appuyant dessus, soit d'insérer une ligne pour ajouter un article, soit de supprimer une ligne pour supprimer un article.
Mais puisqu'une ligne peut être insérée ou supprimée suivant la position du curseur, je crains que si le curseur se trouve sur la partie des libellés et d'autres informations d'entête, les utilisateurs en viennent à les supprimer aussi. D'où je voudrais donc ajouter aux codes de ces boutons "Insérer article" et "Supprimer article" d'autres lignes de codes qui excluraient ou interdirait d'insérer ou de supprimer des lignes sur la partie des informations d'entêtes.
NB : La partie des entêtes où il faut interdire l'insertion ou la suppression des lignes est celle qui se trouve au dessus de la ligne rouge que j'ai tracée dans le classeur. Et la partie en dessous de la ligne rouge est celle où les lignes peuvent être insérées ou supprimées.
Il est à noter aussi que le classeur est protégé par un mot de passe avec permission d'écrire sur certaines cellules, y compris certaines cellules de la partie des entêtes. Le mot de passe du classeur est : 1

Je joins ce fichier à ce post. Etat de besoin.xlsm

Merci

[arthour973]

Bonjour RJSCVF, le Forum,

Avec code modifié, ça devrait le faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Bouton5_Cliquer()
If ActiveCell.Row < 11 Then
    Exit Sub
End If
ActiveSheet.Unprotect "1"
ActiveCell.EntireRow.Insert
ActiveSheet.Protect "1", True, True, True
End Sub
 
Sub Bouton6_Cliquer()
If ActiveCell.Row < 11 Then
    Exit Sub
End If
ActiveSheet.Unprotect "1"
ActiveCell.EntireRow.Delete
ActiveSheet.Protect "1", True, True, True
End Sub

Amicalement,
lionel,

[RJSCVF]

Merci pour ta réponse.
Je vais essayer le code modifié dans mon classeur et je te tiens au courant.
Amicalement
RJSCVF

[RJSCVF]

Merci infiniment !
Le code fonctionne.
Mais si cela ne te dérange pas, je voudrais te contacter souvent à chaque fois que j'ai un problème en VBA.
Amicalement
Merci

[arthour973]

Content que ça fonctionne (mais j'avais testé sur ton fichier avant)
Alors, je savais LOl

Tu peux me contacter par msg privé et si je peux t'aider, je le ferai ,
lionel,

[Pierre Fauconnier]

Salut.

Nous ne pouvons (et ne voulons) pas interdire les échanges techniques par mp, mais ce n'est pas dans l'esprit du forum, où la question est posée à la communauté. Le demandeur a ainsi plus de chances de recevoir une réponse rapide à sa problématique, puisque la disponibilité des demandeurs est évidemment plus large que celle d'une seule personne. Plus de personnes voyant la question, le demandeur a également la chance d'obtenir différentes réponses résultant de différents regards et d'expériences plus larges. De plus, utiliser les ressources d'un outil par essence communautaire à des fins d'échanges particuliers n'est pas "fair play" par rapport aux gens qui passent du temps à partager leurs connaissances, que ce soit par des tutos, des faqs et, bien entendu, des réponses sur nos forums.

[arthour973]

Bonjour Pierre, le Forum,

Tout à fait d'accord avec toi
Je n'aurais pas dû faire cette réponse, même si, à l'évidence pour moi, les échanges auraient été faits sur le fil créé par le demandeur.
Amicalement,
lionel,