[VBA-E]ajout de ligne automatique

Version imprimable

06/01/2006, 12h45
deathsurfer

[VBA-E]ajout de ligne automatique

bonjour,
voici mon pb car le code que j'ai fait ne marche pas:

Citation:

'selectionne automatiquement la colonne F
Range("F2").Columns.Select
For Each cell In Selection
'la 1ere cellule n'est pas un nombre, on passe donc à la cellule suivante
If cell.Value = "Présenté" Then
Resume Next
ElseIf cell.Value > 1 Then
'si la quantite du produit est superieure a 1
qte = cell.Value
qte = qte - 1
For i = 1 To qte
'on selectionne la cellule en dessous
cell = cell.Next.Columns.Select <-ici cela doit etre la cellule en dessous de celle qui est selectionne
'on insert un nombe de ligne egal à qte
cell.EntireRow.Insert
Next i
'on revient a la cellule de depart
cell = cell.Previous.Columns.Select<-ici on revient a la cellule de depart

End If
Next cell

End Sub

en fait, j'aimerais ajouter un certain nombre de lignes qui se trouveront en dessous de la cellule sur laquelle on fait la manip'
Merci d'avance

Si j'ai bien compris ta valeur qte te donne le nombre de ligne a insérer et si c'est pas numeric et positif on fait passe à la ligne suivante.

J'ai fais ce code et cela marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim lign, qte As Long
 
    Range("AA30").Select
    lign = 30
    While lign < 50
        If IsNumeric(Cells(lign, 27).Value) And Cells(lign, 27).Value > 0 Then
            qte = Cells(lign, 27).Value
            lign = lign + 1
            Cells(lign, 27).Select
            For i = 1 To qte
                Selection.EntireRow.Insert
            Next
            lign = lign + qte - 1
        End If
        lign = lign + 1
    Wend

Dis si cela te convient ou pas

Igloobel

14/01/2006, 13h22
deathsurfer

:resolu: merci c'est bon

oui ca me convient merci bcp a tous :)