Comment activer deux macros dans le même code

Re à Le Pingou,et Migou76

Tout d'abord,merci pour vos réponses.( Elles sont toutes deux exactement les mêmes ! )

J'ai copié les deux dans mon code et j'obtiens la même réponse:

Fenêtre d'erreur: Erreur de compilation
Sub ou Fonction non définie

Et,dans le texte,: " MiseEnFormeColonne"est surligné en bleu.

Dans le tebleau,la première macro fonctionne,mais pas la deuxième.

Je n'y comprends rien .

A plus

Cordialement
Bremic83

Bonjour à tous,Le Pingou,Eriiic,et Migou76

Je rencontre toujours des difficultés pour mettre les solutions proposées en place,il y a à chaque fois une fenêtre d'erreur ! Décourageant !
J'ai essayé de changer,en reprenant le code de la première et en changeant les plages de travail,mais,si
je ne fais plus apparaitre de fenêtre d'erreur,je n'obtiens aucun résultat !
La première partie fonctionne bien,l'autre : zéro,rien !
Je suppose qu'il y a quelque manip ou indication qui manque à l'appel, mais je suis incapable de trouve laquelle.
Je vous joins ce nouveau code,çi-dessous,peut-être que la solution vous apparaitra

En tous cas,quelque soit le résultat final,grand merci à tous

A plus

Bremic83



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D25:O25")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
Range("D25:O25").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
Cells(25, Target.Column).Interior.ColorIndex = 3
Range(Cells(28, Target.Column), Cells(35, Target.Column)).Interior.ColorIndex = xlNone
Cells(27, Target.Column).Interior.ColorIndex = 6
Cells(27, Target.Column).Font.ColorIndex = 49


If Intersect(Target, Range("D27:O27")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
Range("D27:O27").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
Cells(27, Target.Column).Interior.ColorIndex = 49
Range(Cells(28, Target.Column), Cells(35, Target.Column)).Interior.ColorIndex = xlNone
Cells(28, Target.Column).Interior.ColorIndex = 20
Cells(28, Target.Column).Font.ColorIndex = 49



End Sub

Bonjour Le Pingou.

Oui,je vide le code,avant de copier-coller le nouveau.
Cette fois,nouvelle fenêtre d'erreur :
Erreur de compilation
Utilisation incorrecte de l'objet
Et dans la ligne copiée ci-dessous,: Nothing , est surligné en bleu

If Intersect(Target, Range("D25:O25")) Is Not Nothing Then

Comme c'est de l'hébreu pour moi,je ne sais pas comment faire.
A plus

Cordialement Merci

Bremic83

Bonsoir Le Pingou.

Ca y est, ça fonctionne comme désiré.
Il me reste à te remercier pour ta gentillesse et la patience dont tu as fait preuve à mon égard, et,bien sûr,
à saluer ta compérence.
Je remercie également Migou76 et Eriiic,pour leur participation,vous êtes tous trois très sympas.

Peut-être à plus pour une autre discussion.

Un Bremic83 ravi !

Bonsoir Le Pingou

Désolé de revenir sur la question que je croyais réglée hier.

Je me heurte à un curieux problème :

J'ai enregistré ton code selon tes dernières instructions,et ça fonctionne parfaitement.
J'ai voulu le copier dans un autre classeur,et je me retrouve avec la fenêtre d'erreur qui m'a déjà bien embêté:
Erreur de compilationSub ou fonction non définie et dans la ligne du code>MiseEnFormeColonne est surligné en bleu.
J'ai essayé sur un autre classeur:même résultat !
J'ai vidé ltoute les macros et les codes VBA de ces classeurs,et réenregistré le code ,sans obtenir de changement
Pourquoi celà fonctionne impeccablement sur un classeur et non sur les autres ? Mystère !

Excuses moi de te relancer,mais,je suis perdu !

A plus

Bremic83

Re LePingou
Voici l'envoi demandé.
A plBremic83

http://www.cijoint.fr/cjlink.php?file=cj201003/cijGi2cVq4.xlsm

Bonjour Le Pingou

Décidément,je collectionne les ennuis,
Impossible de décompresser le dossier ZIP.
J'opère de la même façon que d'habitude,je déplace le dossier,et à chaque fois,il reste ZIP
Celà m'est déjà arrivé une fois,et mon correspondant me l'a transmis en clair,essayons !

Cordialement

Bremic83

RE Le Pingou

Les manips indiquées,sont celles que je répète depuis hier soir,après réception de ce dossier ZIP
Plus celles-çi :
Menu (Démarrer)
Clicsur ( Aide et support)
Entrer "ZIP" dans textbox : " Recherches dans Aide "
Sélection " Compresser et décompresser des fichiers "ZIP "
Clic sur "Pour extraire les fichiers "

Et,j'en suis toujours au même point !

Désolé

Bremic83

Bonsoir Le Pingou.

Tout d'abord,excusez moi de pratiquer le tutoiement,je n'avais pas remarqué que vous me vouvoyiez,plus absorbé par la teneur du texte que par la forme d'expression.Ne m'en tenez pas rigueur,SVP.
Je vous remercie de m'avoir expliqué comment débloquer le dossier ZIP,Je n'aurais pas trouvé celà tout seul.

Pour ce qui concerne le code,vous me dites l'avoir mis dans le feuillet tabatrans,et les deux actions se déroulent bien.
Je n'ai pas compris ce que vous avez fait,car je compare le code dans la fenêtre "Visualiser le code" dans l'onglet "développeur",et ne trouve aucun changement avec ce qui y était précédemment.
J'ai voulu mettre ce code dans l'un de mes classeurs,et je me retrouve avec l'erreur de compilation déjà rencontrée.
Dans le doute,j'ai regardé s'il y avait quelque chose dans les macros,sans rien y trouver.
Comment faut-il faire pour insérer la deuxième action ?
Vous le constatez,je suis loin de maitriser toutes les subtilités de l'informatique ,et je crains de lasser mes correspondants.
Encore merci pour votre patience.

A plus

Bremic83

Bonsoir Le Pingou.

Après de nombreuses tentatives sans succès,je viens ,enfin,de comprendre le processus et de réussir la mise en place sur un classeur !
Le renouvellement de l'opération ne devrait pas poser de problème.

Très sincèrement,je vous remercie,pour votre gentillesse et,à nouveau pour votre patience,et ne me tenez pas trop rigueur,du temps que je vous ai mangé,par ma lenteur à comprendre.

Je ne sais si ce sera un plaisir pour vous,mais,moi,je serais très heureux de vous retrouver dans une nouvelle discussion,à l'occasion.

Très cordialement

Bremic83