selection de cellules

N

nono

Guest
bonjour a tous
voila, dans code suivant je souhaiterais que la selection faite avec le CommandButton2 soit de la cellule R10 a la cellule Rx (x etant la derniere cellule de la colonne R contenant une donnee)

Avec le code du CommandButton1 je souhaire pouvoir remplacer cuisines par un mot contenu dans une cellule qui doit avoir obligatoirement 8 lettres)


Private Sub CommandButton1_Click()
Dim Destination$, Selection%
Destination = 'c:\\V626\\Houchard\\cuisines.pnl'
Selection = FreeFile
Open Destination For Output As #Selection
With Range('R10:R11')
For c = 1 To .Columns.Count
For r = 1 To .Rows.Count
Print #Selection, .Cells(r, c).Text
Next r
Next c
End With
Close #Selection
CommandButton1.BackColor = RGB(200, 0, 0)
End Sub


Private Sub ComboBox1_Change()

End Sub

Private Sub ListBox1_Click()

End Sub


Private Sub CommandButton2_Click()
Dim Destination$, Selection%
Destination = 'c:\\V626\\Houchard\\cuisines.pnl'
Selection = FreeFile
Open Destination For Append As #Selection
With Range('R12:R19')
For c = 1 To .Columns.Count
For r = 1 To .Rows.Count
Print #Selection, .Cells(r, c).Text
Next r
Next c
End With
Close #Selection
CommandButton2.BackColor = RGB(200, 0, 0)
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
300 715
Messages
1 986 637
Membres
209 554
dernier inscrit
Khaay