EXCEL copier les lignes par un multiplicateur si 1 valeur nulle
Résolu/Fermé
dlcmbe58
-
9 mars 2016 à 17:42
dlcmbe58 Messages postés 1 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 9 mars 2016 - 9 mars 2016 à 18:01
dlcmbe58 Messages postés 1 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 9 mars 2016 - 9 mars 2016 à 18:01
A voir également:
- EXCEL copier les lignes par un multiplicateur si 1 valeur nulle
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
9 mars 2016 à 17:56
9 mars 2016 à 17:56
Bonjour,
Il suffit de placer une condition pour le cas où Nbre est nul.
A+
Il suffit de placer une condition pour le cas où Nbre est nul.
Option Explicit
Sub dupliquer_n_fois()
Dim Derlig1 As Long, Lig As Long, Nbre As Integer, T_in()
Dim Derlig2 As Long
Application.ScreenUpdating = False
Sheets(2).Range("A2:D30000").Clear
With Sheets(1)
Derlig1 = .Columns("A").Find("*", , , , , xlPrevious).Row
For Lig = 2 To Derlig1
Nbre = .Cells(Lig, "E")
If Nbre > 0 Then
T_in = .Range(.Cells(Lig, "A"), .Cells(Lig, "D")).Value
With Sheets(2)
Derlig2 = .Columns("A").Find("", .Range("A1")).Row
.Cells(Derlig2, "A").Resize(Nbre, 4) = T_in
End With
End If
Next
End With
Sheets(2).Select
End Sub
A+
9 mars 2016 à 18:01