Comment recopier une cellule un nombre de fois donné
Résolu/Fermé
albelo
-
16 mars 2016 à 12:00
cvasse Messages postés 19 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 16 mars 2016 - 16 mars 2016 à 16:59
cvasse Messages postés 19 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 16 mars 2016 - 16 mars 2016 à 16:59
A voir également:
- Comment recopier une cellule un nombre de fois donné
- Comment aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Qu'est ce qu'une femme fait 3 fois par jour et un homme une fois dans sa vie ✓ - Forum Loisirs / Divertissements
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
1 réponse
cvasse
Messages postés
19
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
16 mars 2016
16 mars 2016 à 13:01
16 mars 2016 à 13:01
Bonjour,
je ne suis pas certain d'avoir tout compris mais avec
For i = 1 to range("An").value
sheets("Feuil2").range(....) = ...
Next
je pense que cela devrait fonctionner.
je ne suis pas certain d'avoir tout compris mais avec
For i = 1 to range("An").value
sheets("Feuil2").range(....) = ...
Next
je pense que cela devrait fonctionner.
16 mars 2016 à 13:53
16 mars 2016 à 13:57
16 mars 2016 à 14:09
16 mars 2016 à 14:38
Tu clique sur Insertion puis sur Module.
Un écran s'affiche sur lequel tu peux saisir ta macro.
Tu recopie ce code :
Sub macro()
'Récupération de la ligne à traiter
ligne = Range("H1").Value
'Récupération de la ligne de départ où insérer la copie
If Sheets("feuil2").Range("A1") = "" Then
j = 1
Else
j = Sheets("feuil2").Range("A1").End(xlDown).Row + 1
End If
'Boucle de recopie
For i = 1 To Cells(ligne, 3)
Sheets("feuil2").Cells(j, 1).Value = Sheets("feuil1").Cells(ligne, 1)
Sheets("feuil2").Cells(j, 2).Value = Sheets("feuil1").Cells(ligne, 2)
j = j + 1
Next
End Sub
ATTENTION, je pars du principe que tu copie toutes tes lignes dans le même onglet (qui s'appelle ici feuil2) les unes à la suite des autres.
Dans l'onglet où tu as tes lignes à copier, j'ai mis en cellule H1 la ligne que je souhaite prendre en compte. Si tu saisi 3 dans cette cellule, c'est la référence et la couleur de la ligne 3 qui seront copiés.
Une fois le code saisi, tu quitte l'écran en cliquant sur la croix rouge.
Tu peux alors créer ton bouton.
Pour celà, tu vas dans l'option développeur. Si tu ne l'as pas, tu peux la rajouter en allant dans le menu FIchier puis option puis personnaliser le ruban. Tu peux alors cocher Développeur dans la liste à droite.
Dans l'option développeur, tu clique alors sur insérer puis sur le rectangle dans contrôle de formulaire.
Tu places alors le bouton dans ta feuille excel. Tu fais ensuite un clic droit sur le bouton. Dans la liste qui s'affiche tu choisis Affecter une macro. Il ne te reste plus qu'à choisir la macro.
Bon courage.
Christian
16 mars 2016 à 15:01
If Sheets("feuil2").Range("A1") = "" Then
Savez-vous comment résoudre ce problème ?