Boucle For... Next Fermé

Question

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

ThauTheme · Answer

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 ?

michel_m · Answer

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 IfEnd IfEnd Sub

michel_m · Answer

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.... »

michel_m · Answer

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

Boucle For... Next

4 réponses

Discussions similaires