Sujet Précédent Sujet Suivant

Boucle For... Next

Fermé
jeffrey - 13 mai 2017 à 11:23
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 mai 2017 à 09:39
Bonjour, je voudrais faire une boucle qui insère les valeurs de la cellule "J27" de la ligne 1 à la ligne 10 de la colonne E. Le problème est que la valeur de la cellule "J27" change.

Il faut, je pense, arrêter le code (avec un "Exit For") et ensuite passer à la cellule suivante (chose que je n'arrive pas à faire).

Pour l'instant mon code met la valeur de la cellule "J27" en "E1" mais après il ne passe pas à la cellule suivante et donc il remplace la valeur qui se trouve en "E1" par la nouvelle valeur que prend "J27".

Or, au final je voudrais juste que mon code passe à "E2" puis "E3" et ainsi de suite... .

Merci de votre aide, voici mon code: 

 Dim x As Integer
    
    For x = 1 To 10
    Range("j27").Select
    Selection.Copy
    Cells(x, 5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

 Exit For
 Next x
A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
13 mai 2017 à 12:36
Bonjour

Macro à copier dans le module feuil concerné et non dans un module standard



se déclenche lorsqu'on écrit une donnée dans J27 

Option Explicit
'----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$27" Then
    If Range("E1") = "" Then
        Range("E1") = Target
    Else
        Columns("E").Find("", Range("E1")) = Target
    End If
End If
End Sub
1
jeffrey
13 mai 2017 à 15:03
Bonjour michel_m j'ai essayé ton code (sur Feuil1 du coup) et ça ne marche pas a priori. Je serai ravi d'avoir davantage de conseils, merci !
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > jeffrey
Modifié le 14 mai 2017 à 08:50
bonjour,

lorsque je propose une solution, elle toujours testée avant... Jr viens cependant de essayer à nouveau et c'est OK
"se déclenche lorsqu'on écrit une donnée dans J27 "
https://mon-partage.fr/f/Gr2r2eVd/

tu t'es certainement mal exprimé dans ta demande ou dans le déclenchement de la procédure

Je peux plus rien pour toi
0
jeffrey > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
14 mai 2017 à 13:18
Bonjour michel_m,
la réponse que tu m'as donné l'autre jour elle fonctionne mais pas quand J27 contient une formule, c'est ça le problème. Si tu peux m'aider ce serait cool ! :)
0
yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 471 > jeffrey
14 mai 2017 à 20:26
que se passe-t-il si la j27 contient une formule?
0
jeffrey > yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024
14 mai 2017 à 20:30
Bonjour yg_be, et bien j'ai testé et le code de michel_m ne marche plus (je ne sais pas pourquoi ça reste un mystère).
0
Réponse 2 / 4
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
13 mai 2017 à 12:31
Bonjour Jeffrey, bonjour le forum,

Par quelle opération du saint esprit la valeur de la cellule J27 change-t-elle au cours de l'exécution du code ?
Est-ce que tu ne voudrais pas, plutôt, qu'à chaque changement de valeur de la cellule J27, la valeur de celle-ci soit reportée dans la colonne E à partir de E1 ?
0
jeffrey
13 mai 2017 à 15:02
Bonjour ThauTheme,
Exactement! j'ai dû mal m'exprimer :) bref si tu pouvais m'aider ce serai cool ! Merci !
0
Réponse 3 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 mai 2017 à 15:09
elle fonctionne mais pas quand J27 contient une formule

Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup « elle fonctionne mais pas quand J27 contient une formule (rarement, je n'ai pas bien expliqué, excusez moi) il faut que.... »
0
jeffrey
14 mai 2017 à 19:46
Merci michel_m pour tes réponses je suis désolé que tu l'ai pris comme ça.
0
Réponse 4 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
15 mai 2017 à 09:39
Bonjour,

la SEULE solution est celle préconisée par Thautheme ( bonjour), plutôt que des questions vaseuses: envoyer le classs=eur
pour cela 

Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci  dans votre message

Dans l’attente
0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Redémarrage en boucle Xiamo mi note 10
Microsam -
Noel -

2 réponses
programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
mon ordi marque press the esc key for startup menu
jasonparris -
elow -

5 réponses