Aide vba
Résolu/Fermé
colt3r
Messages postés
11
Date d'inscription
mercredi 22 janvier 2014
Statut
Membre
Dernière intervention
3 mars 2014
-
22 janv. 2014 à 16:36
colt3r Messages postés 11 Date d'inscription mercredi 22 janvier 2014 Statut Membre Dernière intervention 3 mars 2014 - 24 janv. 2014 à 12:14
colt3r Messages postés 11 Date d'inscription mercredi 22 janvier 2014 Statut Membre Dernière intervention 3 mars 2014 - 24 janv. 2014 à 12:14
5 réponses
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
22 janv. 2014 à 16:41
22 janv. 2014 à 16:41
Bonjour
Un peu d'explication me semble nécessaire
Exemple
1. si dans A1 il y a 2, il faut insérer 1/2 lignes avant/après la ligne 1?
2. La macro doit faire la même chose pour une autre cellule?
Cdlmnt
Un peu d'explication me semble nécessaire
Exemple
1. si dans A1 il y a 2, il faut insérer 1/2 lignes avant/après la ligne 1?
2. La macro doit faire la même chose pour une autre cellule?
Cdlmnt
dlt-pan
Messages postés
481
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
23 décembre 2014
67
Modifié par dlt-pan le 22/01/2014 à 16:50
Modifié par dlt-pan le 22/01/2014 à 16:50
Bonjour,
quand tu double clic dans A1, tu inseres le nombre de ligne ecrit dans A1 a partir de la ligne 2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value > 1 Then
Rows("2:" & (Int(ActiveCell.Value))).Select
Selection.Insert Shift:=xlDown
End If
End Sub
Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément.
quand tu double clic dans A1, tu inseres le nombre de ligne ecrit dans A1 a partir de la ligne 2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value > 1 Then
Rows("2:" & (Int(ActiveCell.Value))).Select
Selection.Insert Shift:=xlDown
End If
End Sub
Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément.
colt3r
Messages postés
11
Date d'inscription
mercredi 22 janvier 2014
Statut
Membre
Dernière intervention
3 mars 2014
Modifié par colt3r le 22/01/2014 à 17:06
Modifié par colt3r le 22/01/2014 à 17:06
@ccm81
1. si dans A1 il y a 2, il faut insérer 1 ligne après la ligne 1
2. La macro doit faire la même chose pour une autre cellule : oui sur toutes ma colonne
@dlt-pan
Merci c'est que je recherche dans le principe.
Mis a part que les lignes s'ajoutent au dessus ( dans mon fichier ) or dans un nouveau doc cela j'ajoute en dessous ( comme je le recherche ) une idée ?
1. si dans A1 il y a 2, il faut insérer 1 ligne après la ligne 1
2. La macro doit faire la même chose pour une autre cellule : oui sur toutes ma colonne
@dlt-pan
Merci c'est que je recherche dans le principe.
Mis a part que les lignes s'ajoutent au dessus ( dans mon fichier ) or dans un nouveau doc cela j'ajoute en dessous ( comme je le recherche ) une idée ?
dlt-pan
Messages postés
481
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
23 décembre 2014
67
Modifié par dlt-pan le 22/01/2014 à 17:15
Modifié par dlt-pan le 22/01/2014 à 17:15
non desolé je ne vois pas, l'insertion decale les lignes vers le bas et dans mon fichier de test, le decalage va bien vers le bas....
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
22 janv. 2014 à 17:38
22 janv. 2014 à 17:38
Comme ceci?
https://www.cjoint.com/?3AwrMw1xd7s
Cdlmnt
https://www.cjoint.com/?3AwrMw1xd7s
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
colt3r
Messages postés
11
Date d'inscription
mercredi 22 janvier 2014
Statut
Membre
Dernière intervention
3 mars 2014
24 janv. 2014 à 12:14
24 janv. 2014 à 12:14
@ccm81 parfait merci beaucoup
