Bonjour le forum
J'aimerais savoir s'il est possible dans la macro suivante
de faire exception dans le sélection range des lignes
13 20 60 103 123 151 ect sur la feuille devis.
je m'explique
dans la feuille devis à l'aide d'une sélection je choisis certain éléments
une fois sélectionnés je click sur le boutons devis qui lance la macros.
Dans la sélection sur la feuille il y a des ligne qui contiennent les titres
je voudrais que ces lignes fassent patie d'exception.
macro
Option Explicit
Public Sub Devis()
Dim Plg As Variant, L As Integer, Li As Integer
With Worksheets("Devis")
Plg = .Range("B14:K" & .Range("B65536").End(xlUp).Row)
End With
With Worksheets("Soumission")
.Range("A29:A57").ClearContents
.Range("J29:J57").ClearContents
Li = 29
For L = 1 To UBound(Plg, 1)
If Plg(L, 2) <> "" Or Plg(L, 5) <> "" Or Plg(L, 6) <> "" Then
.Range("A" & Li) = Plg(L, 1)
.Range("J" & Li) = Plg(L, 10)
Li = Li + 1
End If
Next L
End With
End Sub
Private Sub CommandButton1_Click()
Devis
End Sub
J'aimerais savoir s'il est possible dans la macro suivante
de faire exception dans le sélection range des lignes
13 20 60 103 123 151 ect sur la feuille devis.
je m'explique
dans la feuille devis à l'aide d'une sélection je choisis certain éléments
une fois sélectionnés je click sur le boutons devis qui lance la macros.
Dans la sélection sur la feuille il y a des ligne qui contiennent les titres
je voudrais que ces lignes fassent patie d'exception.
macro
Option Explicit
Public Sub Devis()
Dim Plg As Variant, L As Integer, Li As Integer
With Worksheets("Devis")
Plg = .Range("B14:K" & .Range("B65536").End(xlUp).Row)
End With
With Worksheets("Soumission")
.Range("A29:A57").ClearContents
.Range("J29:J57").ClearContents
Li = 29
For L = 1 To UBound(Plg, 1)
If Plg(L, 2) <> "" Or Plg(L, 5) <> "" Or Plg(L, 6) <> "" Then
.Range("A" & Li) = Plg(L, 1)
.Range("J" & Li) = Plg(L, 10)
Li = Li + 1
End If
Next L
End With
End Sub
Private Sub CommandButton1_Click()
Devis
End Sub