Boucle For, While ou autre?
marc
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
A l'aide d'un userform j'obtient un nombre de cellule à remplir.
Ex:
Nbre de cellule à remplir:3
J'aimerais à l'aide d'une boucle while ou for copier une information ("client") dans des cellules à la suite.
Exemple:
Client:roger
J'aimerais écrire dans chaque cellule de A1:A3 "roger". Le lieux de collage fonctionne il me faut juste la répétition d'un certains nombre de lignes (ici les 3 premières)
J'ai écrit ces lignes:
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage"), 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 1, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 2, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 3, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 4, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 5, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 6, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 7, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 8, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 9, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 10, 0)
J'aimerais dans ce cas que les 3 premières itérations soit effectuées.
Comment puis-je faire.
A l'aide d'un userform j'obtient un nombre de cellule à remplir.
Ex:
Nbre de cellule à remplir:3
J'aimerais à l'aide d'une boucle while ou for copier une information ("client") dans des cellules à la suite.
Exemple:
Client:roger
J'aimerais écrire dans chaque cellule de A1:A3 "roger". Le lieux de collage fonctionne il me faut juste la répétition d'un certains nombre de lignes (ici les 3 premières)
J'ai écrit ces lignes:
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage"), 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 1, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 2, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 3, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 4, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 5, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 6, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 7, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 8, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 9, 0)
Range("Client").Copy Range(Range("But")).Offset(Range("Décalage") + 10, 0)
J'aimerais dans ce cas que les 3 premières itérations soit effectuées.
Comment puis-je faire.
A voir également:
- Boucle For, While ou autre?
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Copytrans heic for windows - Télécharger - Visionnage & Diaporama
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide