Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer une SEULE ligne dès saisie d'un texte dans une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Louison_MT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Louison_MT

Guest
Bonjour,

je travaille sur un fichier de suivi des anomalies (fichier anonymisé ci-joint).
Je souhaite que lorsque l'on saisit une ligne de suivi pour une anomalie, une nouvelle ligne (et une seule) se crée juste en dessous lorsque l'on sélectionne "En Cours" dans la colonne N (nouvelle ligne où les utilisateurs pourront renseigner un nouvel enregistrement de suivi pour la même anomalie)
J'ai réussi à faire insérer une ligne, mais d'autres s'ajoutent ensuite dès que je modifie n'importe quelle cellule. Faut-il que j'enlève mon bout de code de Worksheet_Change ? Mais dans ce cas quelle est la solution pour que la ligne s'ajoute automatiquement (sans que les utilisateurs aient besoin de "lancer" la macro) ?

Merci d'avance pour votre aide.

PS : vous pouvez considérer que je suis débutant (j'ai rien codé depuis des années et ce que je faisais n'était pas de très haut niveau)
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

Dans le fichier joint j'ai juste appliqué stricto sensu ce que vous demandiez.
Je n'ai pas trop compris ce que le reste de votre macro était destiné à réaliser, si ce n'est rajouter des lignes à chaque "En Cours" de la colonne N.
Ci-dessous la ligne ne s'ajoute que Si la cellule changée est seule, que sa colonne est N et son text "En Cours".
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    '
    '
    If Target.CountLarge = 1 And Target.Column = 14 And Target.Text = "En Cours" Then
        Application.EnableEvents = False ' pour ne pas se mordre la queue
        Target.EntireRow.Insert xlShiftDown
        Application.EnableEvents = True
    End If
 
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Super ! ça marche et c'est beaucoup plus simple que ce que j'avais fait, merci bien. En revanche ça me rajoute la ligne au dessus alors que je la voudrais au dessous. J'ai essayé de changer le "ShiftDown" en "ShiftUp" mais sans succès.

La première moitié de la macro rajoute une ligne (avec un numéro d'anomalie qui s'incrémente) quand un utilisateur marque son nom lorsqu'il veut saisir une nouvelle anomalie.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
208
CB7
C
H
  • Question Question
Microsoft 365 Trier des données dans une colonne avec VBA
Réponses
9
Affichages
707
HUMANUM79
H
A
  • Résolu(e)
Microsoft 365 Insérer un résultat dans une cellule d'un tableau
Réponses
5
Affichages
223
Alain 79
A
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
215
Abi23
A
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
1 K
Thomi
T
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
386
TomJoad
T
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
420
Raziel abel
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
866
Alain 79
A
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
  • Question Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
734
Brigitte 45
M
  • Question Question
Microsoft 365 Colonne de la feuille 1 envoyer en une ligne sur la feuille 2
Réponses
0
Affichages
479
marcmarc
M
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
560
ChTi160
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
868
fanch55
D
  • Question Question
XL 2010 fond blanc et gris dans plusieurs tableaux
Réponses
1
Affichages
698
TooFatBoy
D
  • Question Question
Autres recopie d'une saisie d'un nom sur une colonne d'un tableau avec condition et le mettre dans un autre tableau
Réponses
5
Affichages
600
Damilou
D
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
  • Résolu(e)
XL 2013 (RESOLU) Dernière cellule non vide dans une plage (une seule ligne)
Réponses
3
Affichages
956
chaelie2015
S
  • Résolu(e)
XL 2019 Validation de donnée dans une ligne "une seule valeur"
Réponses
4
Affichages
459
Sofiane Boukecha
S
D
  • Question Question
XL 2010 Macros insérer une ligne en recopiant formule dans plusieurs feuilles
Réponses
11
Affichages
902
deva
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…