Ajout de ligne ecxel macro
Fermé
boubajon
Messages postés
3
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
22 avril 2008
-
21 avril 2008 à 14:21
licool Messages postés 130 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 - 22 avril 2008 à 17:54
licool Messages postés 130 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 - 22 avril 2008 à 17:54
A voir également:
- Ajout de ligne ecxel macro
- Ajout rapide snap ✓ - Forum Snapchat
- Macro logiciel - Télécharger - Organisation
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
2 réponses
licool
Messages postés
130
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
6 juillet 2009
80
21 avril 2008 à 17:33
21 avril 2008 à 17:33
Salut,
essayes ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Integer
cell = Range("B1").Value
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
For compteur = 1 To cell
Rows("2:2").Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Next
End If
End Sub
essayes ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Integer
cell = Range("B1").Value
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
For compteur = 1 To cell
Rows("2:2").Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Next
End If
End Sub
licool
Messages postés
130
Date d'inscription
lundi 23 janvier 2006
Statut
Membre
Dernière intervention
6 juillet 2009
80
22 avril 2008 à 17:54
22 avril 2008 à 17:54
j'ai pas bien compris ce que tu voulais faire, mais vu que t as créé un topic pour cette autre question (http://www.commentcamarche.net/forum/affich 6060143 cellule variable macro) ,merci de mettre celui ci résolu.
22 avril 2008 à 11:10
bn ses un peu plus compliquer ske jai fai mais sa marche
par hasard tu ne serai pa comment faire untruc du style
k=Range("Hi").Value
K=Range("H(1+val).value
en faite jaimerai metttre une variable a la cellule choisit mai jvoi po comment
merci davance