Boucle For... Next
jeffrey
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Boucle For... Next
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Copytrans heic for windows - Télécharger - Visionnage & Diaporama
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide
4 réponses
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
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
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 ?
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 ?
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.... »
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.... »
Bonjour,
la SEULE solution est celle préconisée par Thautheme ( bonjour), plutôt que des questions vaseuses: envoyer le classs=eur
pour cela
Dans l’attente
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
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
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 ! :)