recherche de macro

Question

Bonjour à tous

Une panne  m'a  coupé tout à l'heure,rendant mon premier envoi totalement incompréhensible,veuillez bien m'en excuser.
Voici ma demande : je cherche une  macro pouvant effectuer les tâches décrites dans l'envoi çi-joint,accessible
par le lien çi-dessous.

Merci à celui ou ceux qui s'intéresseront à ma demande.

Bremic83


http://www.cijoint.fr/cjlink.php?file=cj200910/cijosTY7Ra.xlsm

gbinforme · Answer

bonjour Bremic83

Ceci devrait le faire dans la feuille concernée :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Column = 6 And sel.Count = 1 Then
    sel.Offset(0, -1).Value = sel.Offset(0, -2).Value
    sel.Offset(0, -1).Font.ColorIndex = 10
    sel.Offset(0, -2).Value = ""
    sel.Offset(0, -4).Font.ColorIndex = 3
End If
End Sub

gbinforme · Answer

bonjour

Désolé, j'ai abandonné un peu le poste ces jours.

Je t'ai adapté la macro selon tes souhaits sur ton classeur :

http://www.cijoint.fr/cjlink.php?file=cj200911/cijgZVzjCE.xlsm

Pour que cela fonctionne, je t'ai nommé une double plage "paye" ainsi :
=Modèle!$F$5:$F$20;Modèle!$L$5:$L$20
à toi d'adapter les plages et le nom éventuel qui se retrouve dans la macro.

gbinforme · Answer

bonjour

Il me semble que la modification par simple sélection peut poser problème alors j'ai mis un test pour éviter de la faire 2 fois et la possibilité de revenir en arrière par un double clic.

http://www.cijoint.fr/cjlink.php?file=cj200911/cijefptC2m.xlsm

à toi de nous dire si c'est mieux.

gbinforme · Answer

bonjour

je ne suis pas arrivé à trouver l'endroit où je dois insérer 

Tu as deux façons pour le faire :

1 la plus simple :

- tu appuies sur ctrl.
- tu sélectionnes ta plage en colonne F avec la souris.
- tu sélectionnes ta plage en colonne L avec la souris.
- tu vas dans la "zone nom" à gauche de la barre de formule.
- tu saisis ton nom "paye" et tu valides par entrée.

2 la plus complète :

- tu fais menu "formules".
- puis "gestionnaire de noms".
- clic sur "nouveau".
- saisie du "nom" dans la fenêtre.
- puis dans "fait référence" soit tu saisis la formule soit tu sélectionnes tes plages comme précédemment.
- tu valides "ok".

Ensuite, dans les 2 cas, lorsque tu vas cliquer sur la flèche à droite de la "zone nom" tu afficheras les noms définis et en les sélectionnant tu sélectionneras la plage correspondante.

fenêtre d'erreur de compilation ou erreur 424

C'est dû au fait que ta plage nommée n'existe pas.

gbinforme · Answer

bonjour

j'ai nommé mes "paye",respectivement Paiements et Recettes...
,il n'y a pas de modification dans les colonnes . 

C'est assez normal car j'avais groupé les 2 plages pour simplifier et ta modification ne doit pas fonctionner.

En effet il faut dans ce cas modifier les macros ainsi et cela fonctionnera :

Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(sel, Union([Paiements], [Recettes])) Is Nothing And sel.Count = 1 Then
    sel.Offset(0, -2).Value = sel.Offset(0, -1).Value
    sel.Offset(0, -1).Font.ColorIndex = 10
    sel.Offset(0, -1).Value = ""
    sel.Offset(0, -4).Font.ColorIndex = 23
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, Union([Paiements], [Recettes])) Is Nothing And sel.Count = 1 Then
    If sel.Offset(0, -2).Value <> "" Then
        sel.Offset(0, -1).Value = sel.Offset(0, -2).Value
        sel.Offset(0, -1).Font.ColorIndex = 10
        sel.Offset(0, -2).Value = ""
        sel.Offset(0, -4).Font.ColorIndex = 3
    End If
End If
End Sub

gbinforme · Answer

bonjour

As-tu essayé le classeur du poste 7 sans aucune modification effectuée.

 les macros doivent bien être copiée dans la fenêtre appelée par le bouton Visual Basic,ou par la commande Visualiser le code,dans l'onglet Développeur ? 

C'est bien cela mais comme ce sont des macros événementielles, elles doivent être mises dans la feuille concernée et pas dans un module.

gbinforme · Answer

bonjour

dans une feuille débarrassée de toute autre macro,

Ce ne sont pas les autres macros qui peuvent gêner car elles sont autonomes mais il faut qu'elles soient dans la feuille concernée car dans un module elles n'ont aucune chance de s'exécuter.

Bon courage et à la prochaine.

Recherche de macro

7 réponses

Discussions similaires

Newsletters