Insertion auto de ligne en dessous (...)
Fermé
FLoky
-
27 juil. 2010 à 15:51
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 3 août 2010 à 16:51
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 3 août 2010 à 16:51
A voir également:
- Insertion auto de ligne en dessous (...)
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Insertion liste déroulante excel - Guide
- Test performance pc en ligne - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
28 juil. 2010 à 08:24
28 juil. 2010 à 08:24
Bonjour,
Cette macro insère une ligne lors d'un double clic sur la cellule C2 :
- ALT+F11 ---> ouvre une fenêtre Visual Basic
- En haut à gauche, tu as la liste de tes feuilles, double clic sur celle concernée par cette modification.
- Copie/Colle le code ci-dessus
- ferme la fenêtre Visual Basic
- Teste en double cliquant sur C2...
Cette macro insère une ligne lors d'un double clic sur la cellule C2 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$C$2" And Target.Count = 1 Then Selection.EntireRow.Insert End If End Sub
- ALT+F11 ---> ouvre une fenêtre Visual Basic
- En haut à gauche, tu as la liste de tes feuilles, double clic sur celle concernée par cette modification.
- Copie/Colle le code ci-dessus
- ferme la fenêtre Visual Basic
- Teste en double cliquant sur C2...
Bonjour !
Un énooorme merci, même si j'aurai préféré une incrémentat° auto, sans double cliquer... Mais encore une fois, merci encore !
Un énooorme merci, même si j'aurai préféré une incrémentat° auto, sans double cliquer... Mais encore une fois, merci encore !
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
3 août 2010 à 16:26
3 août 2010 à 16:26
Bonjour,
Si le double clic ne vous sied guère, vous pouvez utiliser l'évènement SelectionChange, qui a chaque fois que vous sélectionnez une cellule se déclenche. Remplacez le code donné ci-dessus par celui-ci :
L'avantage du double clic réside dans la volonté de vouloir insérer une ligne. Avec ce nouveau code, à chaque fois que vous cliquerez dans C2, une nouvelle ligne s'insèrera... même si tel n'était pas votre souhait...
Si le double clic ne vous sied guère, vous pouvez utiliser l'évènement SelectionChange, qui a chaque fois que vous sélectionnez une cellule se déclenche. Remplacez le code donné ci-dessus par celui-ci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$2" And Target.Count = 1 Then Selection.EntireRow.Insert End If End Sub
L'avantage du double clic réside dans la volonté de vouloir insérer une ligne. Avec ce nouveau code, à chaque fois que vous cliquerez dans C2, une nouvelle ligne s'insèrera... même si tel n'était pas votre souhait...
Mike-31
Messages postés
18352
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 décembre 2024
5 110
3 août 2010 à 16:51
3 août 2010 à 16:51
Salut tout le monde,
Ou peut être en ajoutant un événement si C2 n'est pas vide
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then 'concerne la colonne C après la ligne 1
If Target <> "" Then
Target.Offset(1, 0).EntireRow.Insert 'pour insérer une ligne complète sous la cellule
End If
End If
End Sub
Ou peut être en ajoutant un événement si C2 n'est pas vide
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then 'concerne la colonne C après la ligne 1
If Target <> "" Then
Target.Offset(1, 0).EntireRow.Insert 'pour insérer une ligne complète sous la cellule
End If
End If
End Sub
