Application.Union?

[PAD]

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

 

[Robert]

Bonsoir Pad, bonsoir le forum,

Comme je te disais dans ton précédent fil, ton code est tellement confus que je ne comprends pas ce que tu désires faire. Dans la pièce jointe tu trouveras dans le module Module1 ton code commenté ligne par ligne. Je t'ai mis les erreurs en évidence. J'espère que ça pourra t'aider.
L'idéal serait que tu expliques clairement ce que tu veux faire dans un fichier exemple... [file name=pad.zip size=18132]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pad.zip[/file]

Message édité par: Robert, à: 10/04/2006 23:53

 

[PAD]

Bonjour à tous,
Bonjour Robert,

Mille Mercis pour ton aide et en plus une superbe explication,
Je regarderai ce soir, et te tiens au courant de mes évolutions
Non pas de ce que je dois faire mais sur ma compréhension de
VBA.


Bonne journée à toi et au forum,

A+ PAD