Boucle For... Next
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:
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
4 réponses
-
ContributeurBonjour
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
-
-
Contributeur@jeffreybonjour,
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 -
@michel_mBonjour 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 ! :) -
Contributeur@jeffreyque se passe-t-il si la j27 contient une formule?
-
@yg_beBonjour 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).
-
-
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 ?
-
Contributeurelle 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.... »
-
ContributeurBonjour,
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
