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
A voir également:
- Ligne par ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Apparaitre hors ligne instagram - Guide
- Formule somme excel ligne - Guide
1 réponse
Bonjour,
dans le module de la feuille du bouton
Dans l'événement clic du bouton (changer le nom si nécessaire)
A+
dans le module de la feuille du bouton
Dim 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+
