aide pour macro (boucle+incrémentation?)

  • Initiateur de la discussion Initiateur de la discussion Flohb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

Flohb

Guest
Bonjour,

Je suis débutant en Vba et j'aurais souhaité avoir vos conseils.

je dois effectuer une macro qui, quand je séléctione une cellule(A15) pour la modifier, va copier une deuxième cellule qui restera fixe et coller le resultat dans deux autres cellules.

Mon souci est de pouvoir écrire une seule macro pour pouvoir effecuter cette opération sur plusieurs cellules de leurs colones respective.

J'ai penser à incrémenter une boucle sans résultats.

Merci d'avance pour votre aide.
 
Re : aide pour macro (boucle+incrémentation?)

Essaie cette petite macro


Sub copie()
'dans ta cellule A1, la valeur à copier
[a1].Select
'affecte la valeur de A1 à valeur
valeur = Selection.Value
'boucle - ici sur 3 colonnes seulement
For i = 1 To 3
Cells(1, 1 + i).Value = valeur

Next i

End Sub
 
Re : aide pour macro (boucle+incrémentation?)

Merci pour ta réponse qui commence à m'éclaircir,

mais en faite ce que je souhaite c'est qu'à chaque fois que je viens modifier une cellule en "A15" j'ai mon information, copiée d'une autre cellule, qui viens se coller sur la cellule "N15" de la même ligne.
 
Re : aide pour macro (boucle+incrémentation?)

Bon alors, il faudrait que tu mettes ce code dans ta feuille oû tu souhaites que la macro s'éxecute :
macro évènementielle change


Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("a15") Then Exit Sub Else Range("c15").Copy
Range("e15").Select
ActiveSheet.Paste

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
916
C
Réponses
20
Affichages
2 K
Cotriana
C
P
Réponses
9
Affichages
968
phil77515
P
T
Réponses
9
Affichages
965
Retour