Boucle For, While ou autre?

Fermé
marc - 28 avril 2014 à 14:01
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 30 avril 2014 à 11:40
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 voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
29 avril 2014 à 07:54
Bonjour

nbre = 3
With Range("but")
.Resize(100, 1).Clear 'nettoie une zone de 100 lignes
.Resize(nbre, 1) = Range("client") 'duplique la valeur de "client"
End With
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
30 avril 2014 à 11:40
Merci!!!
de rien...
0