Aide vba

Résolu
colt3r Messages postés 11 Statut Membre -  
colt3r Messages postés 11 Statut Membre -
Bonjour,


J'aurais besoin d'un peu d'aide pour cette manipulation.

Si dans cellule A1= valeur supérieure à 1
alors
Faire une insertion de ligne correspondant à la valeur entrée

5 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
dlt-pan Messages postés 529 Statut Membre 67
 
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.
0
colt3r Messages postés 11 Statut Membre
 
@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 ?
0
dlt-pan Messages postés 529 Statut Membre 67
 
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....
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
colt3r Messages postés 11 Statut Membre
 
@ccm81 parfait merci beaucoup
0