Créer une macro "répétitive"

Version imprimable

27/01/2014, 09h15
arno1975

Créer une macro "répétitive"

Bonjour à tous,

j'ai besoin sur un fichier excel de la chose suivante :

-j'ai deux feuilles (feuille 1 et 2) avec sur chacune d'elles, un tableau quasi identique

- lorsque je clique sur la cellule A2 de la feuille 1 me retrouver automatiquement dans la cellule A2 de la feuille 2
Et ceci pour toutes les cellules d'un tableau qui s’étend de la cellule C4:CU127

J'ai pensé à un bouton de commande affecté d'une macro masi comme vous pouvez l'imaginer la personnalisation de chaque bouton de commande avec une macro différente est assez longue.....

Existe t il une autre solution? merci pour votre aide
27/01/2014, 09h34
NicolasST
Oui, il te faut écrire macro,
puis l'appeler dans la section selection change de ta feuille.
Code:

1 2 3 4 Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub
27/01/2014, 16h17
arno1975

Merci beaucoup pour ta réponse.... mais je suis plutot débutant dans ce type de macro.... peux tu m'expliquer précisément comment faire.... si ce n'est pas trop compliqué... merci infiniment
27/01/2014, 16h40
defluc

Bonjour,
Ouvres l'éditeur visual Basic
Dans la partie gauche, double clique Microsoft Excel objets Feuil1
Dans la partie droite, listbox de gauche, sélectionne Worksheet si ce n'est pas fait par défaut.
Dans la listBox de droite, sélectionne SelectionChange.

Et voilà le code de NicolasST sera affiché.
J'y ajoute une ligne qui exclut toute action si la cellule cliquée est en dehors de la plage.

Code:

If Intersect(Target, Range("C4:CU127")) Is Nothing Then Exit Sub

Tu peux tester en ajoutant cette ligne

Code:

MsgBox "Clic d'une cellule dans la plage"

Maintenant, retourne dans ta feuille et tu verras que le message ne s'affiche pas si tu cliques en dehors de la plage.

Bonne recherche pour la suite.
27/01/2014, 19h31
arno1975

Merci beaucoup de prendre du temps pour m'aider c'est très sympa
J'ai suivi tes indictions
mais lorsque je clique sur une cellule de la plage C4:CU127 j'ai le message "Clic d'une cellule dans la plage" mais je reste sur cette feuille sans changer comme je le souhaite.... j'ai peut-être raté quelque chose?

merci à vous
27/01/2014, 21h19
defluc
Ah oui, c'est pas avec une seule instruction que tu vas exécuter toute une procédure. Je pensais que cela allait te lancer pour coder les lignes suivantes.

Alors maintenant que tu as constaté que ce code "agit", tu peux enlever la ligne qui affiche le message et écrire les lignes suivantes qui vont t'ouvrir la feuille 2 et y sélectionner la cellule de même adresse que celle que tu as cliqué dans la feuille 1.
Code:

1 2 ThisWorkbook.Sheets(2).Select Cells(Target.Row, Target.Column).Select
Je n'ai pas testé parce que je n'ai pas Excel sur ce pc. Mais s'il y a une erreur, elle doit être mineure.
27/01/2014, 21h52
arno1975

merci beaucoup pour ton aide... bon effectivement étant plutôt novice difficile pour moi de coder... mais je commence à comprendre des choses.... merci

Petit problème lorsque je clique sur une cellule je bascule bien sur ma feuille 2 mais la macro s’arrête et ne va pas jusqu'à la cellule concernée....

Citation:

"Erreur d’exécution '1004' la méthode select de la classe range a échoué"

en cliquant sur "debogage" s'ouvre la fenêtre VB en surlignant en jaune la partie

Cells(Target.Row, Target.Column).Selectsi quelqu'un avec excel a une idée....merci en tout cas defluc.... ça avance....

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Intersect(Target, Range("C4:CU127")) Is Nothing Then Exit Sub
With Worksheets("Feuil2")
    .Activate
    .Range(Target.Address).Select
End With
End Sub

27/01/2014, 22h32
arno1975

Génial merci à tous pour votre aide , cela fonctionne nickel!
28/01/2014, 09h53
defluc

Si le sujet est clos, clique sur "Résolu".

A la prochaine

J'étais en train de faire des essais et modifs par rapport à mon projet et je coince encore un peu

J'ai intégré le code suivant :
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("Bateau_1")) Is Nothing Then Exit Sub With Worksheets("bateau 1") .Activate .Range(Target.Address).Select End With End Sub
"Bateau_1" correspond à une plage de cellule que j'ai nommé
J'aimerai pouvoir ajouter le fait que si je clique sur une cellule de la plage "bateau_2" soit activée de la même façon la cellule correspondante mais sur la feuille "bateau 2"

J'ai fait plusieurs essais mais ça coince
si quelqu'un peut m'aider

merci par avance

Ben il suffit d'ajouter une condition pour "Bateau_2"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If not Intersect(Target, Range("Bateau_1")) Is Nothing then
    With Worksheets("bateau 1")
      .Activate
      .Range(Target.Address).Select
    End With
                                                         else
  If not Intersect(Target, Range("Bateau_2")) Is Nothing then
    With Worksheets("bateau 2")
      .Activate
      .Range(Target.Address).Select
    End With
  endif
End Sub

Non testé, je suis sous Linux en ce moment

28/01/2014, 22h40
arno1975

Merci à toi j'ai maintenant le message

blog IF sans End If

Distraction de ma part.

Et toi, qui ne le vois pas.

Voici la source corrigée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("Bateau_1")) Is Nothing Then
    With Worksheets("bateau 1")
      .Activate
      .Range(Target.Address).Select
    End With
                                                         Else
    If Not Intersect(Target, Range("Bateau_2")) Is Nothing Then
      With Worksheets("bateau 2")
        .Activate
        .Range(Target.Address).Select
      End With
    End If
  End If
End Sub

29/01/2014, 21h36
arno1975

effectivement... merci en tout cas c'est génial j'ai exactement ce que je voulais....
merci et bonne continuation
29/01/2014, 21h59
defluc

Tu parles d'une bonne continuation, je suis à quelques mois de la quille (Belgicisme peut-être). Enfin pour moi, mes 65 piges, ce sera la retraite. Des tas de projets, si dame faucille m'accorde le temps de les accomplir.
En âge, t'as certainement plus de chance que moi et je te renvoie donc ton encouragement : "bonne continuation"
31/01/2014, 21h54
arno1975

Bon alors j'en profite et abuse avant que tu ne sois à la retraite....!! dans mon projet je voudrais pouvoir ajouter une commande qui permettrait lorsque je clique sur une cellule de feuille1 (par exemple B4) de copier les cellules B5,B6,B7 et les coller dans un tableau situé sur une feuille2 , lancer une impression.

Et ceci pour un nombre important et répété de cellules .... C4, D4.....
j'ai commencer à faire avec une macro mais difficile de l'appliquer à toutes mes cellules....

Y aurait t il un moyen de contourner ce problème...
merci par avance....
04/02/2014, 10h36
arno1975

Merci encore.... j'ai réglé mon problème.... à une prochaine....