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

[Mokia34]

salut !

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

[fring]

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 à placer dans le module de la feuille :

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

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 à placer dans module standard :

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

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

[Mokia34]

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)

[gFZT82]

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.

[Mokia34]

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

[gFZT82]

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.

[Mokia34]

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?

[gFZT82]

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 !

Cordialement.