Bonsoir à tous
Bon, depuis samedi je nage en coulé, piqué, je ne comprends rien,
Robert à bien essayé de m’éclairer mais rien à faire, donc qu’est ce qui ne va pas,
en m’expliquant ou je me suis trompé et comment rattraper mon erreur.
Sachant que ce que je cherche à faire, c’est de rentrer des données dans les plages
C21:K61,C77:K132,C148:K203,C219:K274,C290:K345,C361:K400
Merci de votre aide et de votre compréhension
Cordialement,
PAD
Private Sub Ajout_Click()
Dim premlign As Long
Dim colonne1a As String, nomfeuille1 As String
Dim dl1 As Long, colonne1 As Long
Dim page As Range
Dim plage As Range
For Each page In Application.Union(Range('C21:K61,C77:K132,C148:K203,C219:K274,
_C290:K345,C361:K400'), Range('C' & Range('C65536').End(xlUp).Row)).Select
Set plage = Range(page.Offset(3, 21).Value) ' Début de la plage
plage.Name = page 'plage nommée page
Next page
colonne1a = 'C'
nomfeuille1 = 'Devis'
premlign = 21 'première ligne
'recherche de la dernière ligne écrite
dl1 = Sheets(nomfeuille1).Range('page').End(xlUp).Row + 1 'recherche de la 1ére ligne
With Sheets('Devis') 'on ajoute dans devis
'Code=3 ! Désignation=4 ! U=8 ! Q=8 ! P.U.=10 ! Montant H.T.=11
If entete = 0 Then 'on affiche le texte de l'ouvrage
.Cells(dl1, 4) = List1
dl1 = dl1 + 1
entete = 1
End If
.Cells(dl1, 3 & 'page') = Ca 'Label de USF
.Cells(dl1, 4 & 'page') = List2 'Listbox de USF
.Cells(dl1, 8 & 'page') = Unit 'Label de USF
.Cells(dl1, 9 & 'page') = Q 'Textbox de USF
.Cells(dl1, 10 & 'page') = Pu 'Label de USF
.Cells(dl1, 11 & 'page') = CDbl(PHT) 'Label de USF
dl1 = dl1 + 1
End With
Ca = ''
Pu = ''
Unit = ''
MoU = ''
Q = ''
PHT = ''
End Sub
Bon, depuis samedi je nage en coulé, piqué, je ne comprends rien,
Robert à bien essayé de m’éclairer mais rien à faire, donc qu’est ce qui ne va pas,
en m’expliquant ou je me suis trompé et comment rattraper mon erreur.
Sachant que ce que je cherche à faire, c’est de rentrer des données dans les plages
C21:K61,C77:K132,C148:K203,C219:K274,C290:K345,C361:K400
Merci de votre aide et de votre compréhension
Cordialement,
PAD
Private Sub Ajout_Click()
Dim premlign As Long
Dim colonne1a As String, nomfeuille1 As String
Dim dl1 As Long, colonne1 As Long
Dim page As Range
Dim plage As Range
For Each page In Application.Union(Range('C21:K61,C77:K132,C148:K203,C219:K274,
_C290:K345,C361:K400'), Range('C' & Range('C65536').End(xlUp).Row)).Select
Set plage = Range(page.Offset(3, 21).Value) ' Début de la plage
plage.Name = page 'plage nommée page
Next page
colonne1a = 'C'
nomfeuille1 = 'Devis'
premlign = 21 'première ligne
'recherche de la dernière ligne écrite
dl1 = Sheets(nomfeuille1).Range('page').End(xlUp).Row + 1 'recherche de la 1ére ligne
With Sheets('Devis') 'on ajoute dans devis
'Code=3 ! Désignation=4 ! U=8 ! Q=8 ! P.U.=10 ! Montant H.T.=11
If entete = 0 Then 'on affiche le texte de l'ouvrage
.Cells(dl1, 4) = List1
dl1 = dl1 + 1
entete = 1
End If
.Cells(dl1, 3 & 'page') = Ca 'Label de USF
.Cells(dl1, 4 & 'page') = List2 'Listbox de USF
.Cells(dl1, 8 & 'page') = Unit 'Label de USF
.Cells(dl1, 9 & 'page') = Q 'Textbox de USF
.Cells(dl1, 10 & 'page') = Pu 'Label de USF
.Cells(dl1, 11 & 'page') = CDbl(PHT) 'Label de USF
dl1 = dl1 + 1
End With
Ca = ''
Pu = ''
Unit = ''
MoU = ''
Q = ''
PHT = ''
End Sub