Bonjour,
Est il possible d'ajouter automatiquement x lignes avant=20
la ligne d'une cellule donn=E9e si cette cellule remplie une=20
condition pr=E9cise ?
Ex:si A1 non null, ajouter 3 lignes
merci de votre aide!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Dédé
Salut Michèle !
Avec cette procédure, sitôt que tu sort de la cellule A1 et qu'il y a quelque chose dedans (différent que vide ...) ben cela t'insère trois lignes au dessus ...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then If [A1] <> "" Then [A1:A3].EntireRow.Insert End If End If End Sub
Salutations Dédé
-- Pour répondre, enlever le NOSPAM "michèle" a écrit dans le message de news:0d2c01c35120$d74013d0$ Bonjour, Est il possible d'ajouter automatiquement x lignes avant la ligne d'une cellule donnée si cette cellule remplie une condition précise ? Ex:si A1 non null, ajouter 3 lignes merci de votre aide!
Salut Michèle !
Avec cette procédure, sitôt que tu sort de la cellule A1 et qu'il y a
quelque chose dedans (différent que vide ...) ben cela t'insère trois lignes
au dessus ...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
If [A1] <> "" Then
[A1:A3].EntireRow.Insert
End If
End If
End Sub
Salutations
Dédé
--
Pour répondre, enlever le NOSPAM
"michèle" <michelehouara@yahoo.com> a écrit dans le message de
news:0d2c01c35120$d74013d0$a301280a@phx.gbl...
Bonjour,
Est il possible d'ajouter automatiquement x lignes avant
la ligne d'une cellule donnée si cette cellule remplie une
condition précise ?
Ex:si A1 non null, ajouter 3 lignes
merci de votre aide!
Avec cette procédure, sitôt que tu sort de la cellule A1 et qu'il y a quelque chose dedans (différent que vide ...) ben cela t'insère trois lignes au dessus ...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then If [A1] <> "" Then [A1:A3].EntireRow.Insert End If End If End Sub
Salutations Dédé
-- Pour répondre, enlever le NOSPAM "michèle" a écrit dans le message de news:0d2c01c35120$d74013d0$ Bonjour, Est il possible d'ajouter automatiquement x lignes avant la ligne d'une cellule donnée si cette cellule remplie une condition précise ? Ex:si A1 non null, ajouter 3 lignes merci de votre aide!
AV
merci mais est il possible possible d'en faire une fonction que j'appellerai depuis une cellule d'excel avec x comme variable égale au nombre de ligne ?
Ben une fonction ne peut que renvoyer une valeur donc c'est non mais tu peux en faire une macro Ca pourrait faire ça (avec une variable nbre de lignes) :
Sub zz_Insert() x = InputBox("Combien de ligne à insérer" & _ vbLf & "si la cellule active est <> 0 ?", "") If x = "" Then Exit Sub If ActiveCell <> 0 Then ActiveCell.Range("A1:A" & x).Insert Shift:=xlDown End Sub
AV
merci mais est il possible possible d'en faire une
fonction que j'appellerai depuis une cellule d'excel avec
x comme variable égale au nombre de ligne ?
Ben une fonction ne peut que renvoyer une valeur donc c'est non mais tu peux en
faire une macro
Ca pourrait faire ça (avec une variable nbre de lignes) :
Sub zz_Insert()
x = InputBox("Combien de ligne à insérer" & _
vbLf & "si la cellule active est <> 0 ?", "")
If x = "" Then Exit Sub
If ActiveCell <> 0 Then ActiveCell.Range("A1:A" & x).Insert Shift:=xlDown
End Sub
merci mais est il possible possible d'en faire une fonction que j'appellerai depuis une cellule d'excel avec x comme variable égale au nombre de ligne ?
Ben une fonction ne peut que renvoyer une valeur donc c'est non mais tu peux en faire une macro Ca pourrait faire ça (avec une variable nbre de lignes) :
Sub zz_Insert() x = InputBox("Combien de ligne à insérer" & _ vbLf & "si la cellule active est <> 0 ?", "") If x = "" Then Exit Sub If ActiveCell <> 0 Then ActiveCell.Range("A1:A" & x).Insert Shift:=xlDown End Sub
