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
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