Discussion :

[Mokia34]

J'ai besoin daide pour écrire un truc simple en VBA.
Comment faire pour que quand j'écrive quelque chose en A1, cela soit copier automatiquement dans A3?
Comment faire si en suite je veux considérer toutes les colonnes. C'est à dire faire le meme copier coller : que la valeur de la cellule 3 soit égale automatiquement à celle de la cellule 1 pour les 10 premières colonnes??
Merci pour votre aide par avance !

[patricktoulon]

bonjour

pour ta cellule a3 c'est

dans la cellule tu ecrit
"=A1"
ensuite pour le reste il faut etre plus clair

au plaisir

[Mokia34]

jai pensé a écrire un truc comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub calculs()
For i = 1 To 10
Cells(1, i).Value = Cells(3, i).Value
Next i
End Sub

mais le probleme cest que quand técris quelque chose dans une cellule de ligne 1, il faut activer la macro pour que la cellule de la ligne 3 correspondante se mette à jour. Comment faire pour que ce soit "automatique"?

[fring]

Bonjour,

Dans le module de la feuille concernée, tu places cette procédure évènementielle qui déclenchera la procédure "calculs" à chaque modification de la cellule "A1"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address(0, 0) = "A1" Then calculs
End Sub

Pour plus d'info sur les procédures évènementielles, voir ICI

[Mokia34]

Ok mais je ne comprends pas comment l'écrire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub calculs()
For i = 2 To 6
Cells(6, i).Value = Cells(2, i).Value
Next i
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address(0, 0) = "B2:B6" Then calculs
End Sub

il sert a koi le target addres ?
Pk ca me demande toujours d'exécuter la macro ?

[fring]

il sert a koi le target addres ?

Il sert, dans ton cas, à définir sur quelle cellule (Target = cible = cellule) la macro doit s'exécuter lorsqu'il y a modification du contenu de cette cellule. Tu as l'explication via le lien que je t'ai donné

Pk ca me demande toujours d'exécuter la macro ?

Parce que tu n'as pas mis le code là où je te l'ai dit, les lignes de code ci-dessous ne doivent pas se trouver dans un module standard mais dans le module de la feuille concernée. Dans l'éditeur VBA, double click sur la feuille et place ce code là.