Aide vba excel

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 !

bonjour

pour ta cellule a3 c'est

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

au plaisir

jai pensé a écrire un truc comme :

Code:

---

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"?

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:

---

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

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

Code:

---

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:

---

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 ?

Citation:

---

Envoyé par Mokia34

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é

Citation:

---

Envoyé par Mokia34

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

salut !

pourtant c'est ce que jai fait il me semble... Non?

Non ! :?

Ta première question à pour objet la détection de l'écriture dans une seule cellule (A1) alors que dans ton code tu essaies de détecter dans une plage de cellules (B1:B6). La méthode pour détecter la modification d'une seule cellule ou une plage de cellules n'est pas tout à fait la même.
De plus, si j'ai bien compris ce que tu cherches à faire, ce n'est pas la plage (B2:B6) qu'il faut détecter mais la plage (B2:F2)

Ensuite... le module de la feuille ne dois contenir que la macro évènementielle, le reste du code doit se trouver dans module standard

Bref...

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B2:F2")) Is Nothing Then calculs End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub calculs() Dim i As Integer, j As Integer, fin_plage As Integer   'copie des lignes For i = 2 To 6 Cells(6, i).Value = Cells(2, i).Value Next i   ' blocage cellules 'Private Sub Worksheet_Change(ByVal Target As Range) fin_plage = Range("H3").Value + 1   For i = 2 To fin_plage If Application.CountA(Range(Cells(2, i), Cells(4, i))) > 2 Then MsgBox "Non !!" Application.Undo End If Next i   For j = 2 To fin_plage If Application.CountA(Range(Cells(6, j), Cells(10, j))) > 3 Then MsgBox "Non !!" Application.Undo End If Next j   End Sub

---

oui cest ca
je veux que une copie des lignes correspondantes donc B2:F2 en B6:F6 etc etc
et un blocage du remplissage de plus de 2 cellules dans les blocs de 3 cellules comme par exemple dans B2:B4
et je comprends pas pourquoi ce que j'essaye de faire, ca marche pas (apres modification selon des instructions précédentes)

Bonjour,

Regarde le fichier joint et dis-nous si c’est le résultat que tu souhaites obtenir.
La copie est réalisée chaque fois que tu renseignes une cellule de la plage B2 :F4 et le blocage est réalisé à ce même moment.

Cordialement.

bonjour,
en fait cest exactement un truc comme ça qu'il faudrait. mais j'ai une contrainte : je ne peux pas ordonner les lignes et du coup la considération par blocs de lignes ne fonctionne pas
je te mets un fichier en exemple pour etre plus claire car j'explique pas bien

est ce que tu penses que cest possible à faire ou non???

Bonjour,

Je constate surtout que ta demande évolue à chacun de tes messages.
Si tu continues à ajouter des bouts de ficelle, tu vas très certainement aboutir à un "truc" comme tu le dis si bien :?.

Cordialement.

bonjour
oui je sais que je suis fatiguante :) mais je pensais que c'était mieux de poser des questions étape par étape mais peut etre pas finalement
et en plus, javais quelques contraintes supplémentaires.....
jai essayé d'adapter ton travail à celles-ci mais je comprends pas pourquoi du coup le blocage du remplissage des cellules ne marchent plus pour le bloc 1 et le 2
sais tu pourquoi?

Bonjour,

Avant de modifier le code, il faut que tu comprennes chacune de ses lignes.
Il est basé sur le traitement de cellules en fonction de leur position dans la feuille. Si tu modifies la structure de ton tableau (ajout ou insertion de lignes par exemple), le code doit être modifié en conséquence. Si la structure n’est pas figée, ce code ne pourra pas convenir en l’état.
Désolé d’insister lourdement, mais si tu ne parviens pas à définir très exactement le résultat attendu, tu vas galérer sévère.
Exemple de misères dans ton tableau : il y a maintenant 6 lignes d’en-tête avec 2 lignes qui reprennent les jours de la semaine. La hauteur des en-têtes de bloc sont parfois de 2 lignes et parfois de 1 ligne, la hauteur des blocs semble variable, leur nombre aussi, .... waouh ! :fou:

Cordialement.