Ligne par ligne
Gyu72
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J’ai un mot qui se trouve en cellule 051.
Avec un bouton « OK » et la macro suivante, je copie ce mot avec espaces en AL42 : AV42.
Sub Clavier()
y = 1
For X = 1 To Len([O51])
Cells(42, 37 + y) = Mid([O51], X, 1)
y = y + 2
Next
End Sub
En appuyant de nouveau sur le bouton « OK », est-il possible de faire la copie sur la ligne supérieure : AL40 : AT40 ?
Et ainsi de suite jusqu’à 10 fois.
Si vous avez une idée, je suis preneur ?
Guy
J’ai un mot qui se trouve en cellule 051.
Avec un bouton « OK » et la macro suivante, je copie ce mot avec espaces en AL42 : AV42.
Sub Clavier()
y = 1
For X = 1 To Len([O51])
Cells(42, 37 + y) = Mid([O51], X, 1)
y = y + 2
Next
End Sub
En appuyant de nouveau sur le bouton « OK », est-il possible de faire la copie sur la ligne supérieure : AL40 : AT40 ?
Et ainsi de suite jusqu’à 10 fois.
Si vous avez une idée, je suis preneur ?
Guy
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Bonjour,
dans le module de la feuille du boutonDim NB As Integer
Dans l'événement clic du bouton (changer le nom si nécessaire)
Private Sub CommandButton1_Click() Dim y As Integer, X As Integer If NB = 0 Then NB = 42 Else NB = NB - 1 If NB < 32 Then NB = 0: Exit Sub y = 1 For X = 1 To Len([O51]) Cells(NB, 37 + y) = Mid([O51], X, 1) y = y + 2 Next End Sub
A+
