Macro pour colorer une forme libre Résolu/Fermé

Question

Bonjour, 
Je suis débutant en VBA. Je désire à l'aide d'une mise en forme conditionnelle colorer une forme libre.
Le message d'erreur suivant apparait "Erreur de compilation End Sub attendu
Ci dessous ma macro. sur Excel 2010 MAC
Merci pour votre aide
Sub Test1()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("B1").Value = 20000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 11

End If
End Sub

Configuration: Mac OS X Mountain Lion  (10.8) / Firefox 26.0

Mike-31 · Answer

Bonjour,

Tu as lancé deux procédures,
ou tu supprimes Sub Test1()  si la procédure doit se lancer automatiquement lorsque tu te déplaces de cellule en cellule et que le code est dans les propriétés de ta feuille

ou tu supprimes

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
si la procédure est dans un module avec déclenchement par bouton par exemple.
dans tous les cas il faut supprimer une de ces deux lignes

essaye comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B1").Value = 20000 Then ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 11
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Merci bcp.
ça marche. Mais j'aurai certainement encore besoin de tes conseils
Merci encore

Mike-31 · Answer

Re,

pour éviter que la procédure se lance chaque fois que tu te déplaces sur la feuille il est possible de limiter ce lancement au changement d'une cellule ou d'une plage, mais là il faudra nous en dire plus sur la structure du fichier ou comment change la valeur de la cellule B1 ou quelles sont les cellules qui conditionnent ce changement 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Autre petite question qui vous paraitra certainement très simple.
Comment peut on changer le nom d'une forme libre. Je dispose en effet d'une carte de l'Europe ou chaque pays est nommer par une forme libre.
Exemple la France: Freeform 230.
Je souhaiterais remplacer cette denomination par les trois premières lettres du pays (France : FRA)
Comment puis je faire?

Limon · Answer

Autre question.
Dans la macro précédente la couleur de la forme libre dépendait de la valeur d'une cellule. Comment puis je rédiger ma macro affin que la couleur dépende d'un intervalle de valeurs?
Ci dessous ma macro qui ne prend pas en compte ces intervalles.
If Range("B1").Value = 0 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 0
'noir'
End If
If Range("B1").Value > 0 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 2
End If
If Range("B1").Value < 5000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 2
End If
If Range("B1").Value = 5000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 2
End If
If Range("B1").Value = 10000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 25
End If
If Range("B1").Value > 5000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 25
End If
If Range("B1").Value < 10000 Then
ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.SchemeColor = 25
End If
End Sub

Merci une fois encore de votre aide.

Mike-31 · Answer

Re,

Pour répondre rapidement à ta première question,

lorsque tu actives ta forme (clic sur la forme), dans la barre d'adresse qui se trouve juste au dessus de l'entête de colonne A et B tu remarqueras le nom de ta forme exemple Forme libre 2, il suffit de faire un simple clic gauche sur ce nom ce qui va l'activer et le mettre en surbrillance, saisir simplement le nom que l'on souhaite donner à la forme et valider avec Entrée

pour l'histoire des couleurs, il faut changer le code, je te prépare ça dans la soirée, je dois sortir et je suis en retard

quelle couleur veux tu faire correspondre à 0, 2 et 25
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Bon pas de réponse, alors regarde ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B1].Value = 0 Then ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.RGB = RGB(0, 0, 0)
If [B1].Value > 0 And [B1].Value <= 5000 Then ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.RGB = RGB(0, 255, 0)
If [B1].Value > 5000 And [B1].Value <= 10000 Then ActiveSheet.Shapes("Forme libre 2").Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Limon · Answer

Désolé, je suis en déplacement et ne peux consulter mes messages qu'a certains moments de la journée.
Encore un grand merci pour toutes ces informations:
- pour ce qui est du changement du nom de la forme libre. J'exécute l'ensemble de la procédure que tu décris, mais le nouveau nom inscrit (FRA)ne semble pas s'enregistrer et la dénomination initiale (freeforme 222 par exemple) se ré-inscrit.
- pour ce qui est de l'encadrement c'est parfait. Cela fonctionne très bien.
- pour ce qui est des couleurs, je teste et je reviens vers toi si problème.

Vraiment un très très grand merci.
Bonne journée

Limon · Answer

Je tiens à te remercier. toutes les propositions faites fonctionnent (A l'exception des formes libres que je n'arrive tjrs pas à renommer ce qui alourdit le texte de ma macro).
Merci encore

Mike-31 · Answer

Re,

Un petit montage pour nommer les formes

	https://www.cjoint.com/c/DDdknRoroNh

Limon · Answer

Désolé.
Je suis cette procédure mais aucun changement. Le nom initial revient dès que je tape enter.

Mike-31 · Answer

Bizarre, mais Entrée, c'est avec la touche du clavier, il faut cliquer sur la touche Entrée du clavier.
Si ça ne marche pas, poste le fichier ou je t'écris un code pour les nommer
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Bonjour,
Je tiens une nouvelle fois à te remercier.
je dispose maintenant d'une carte du monde et en fonction de la valeur d'une cellule de référence, les pays prennent une couleur en fonction de la zone du monde ou ils se situent (EX: europe, Amérique du nord, Afrique du nord moyen orient etc) et tout cela grâce à tes conseils.
Une question (encore une)
Est il possible de centrer au milieu de l'écran un pays identifié par son nom  (ex FreeForm 222) et de zoomer (Passer de 100% à 200%) Tout cela avec une macro qd la cellule de référence prend une certaine valeur.
Merci

Mike-31 · Answer

Re,

Oh oui, Excel doit pouvoir le faire, je regarde un code dans la soirée

Limon · Answer

super merci

Mike-31 · Answer

Re,

vite fait, le principe est de sélectionner la forme, fixer l'agrandissement proportionnel et donner une valeur à l'agrandissement et inversement pour la réduire.
pour donner l'impression de zoom il faudrait fixer la position de la forme de départ et après agrandissement mais cela en vaut il la peine, le code complexe et surtout lourd risque planter.

Sub réduit()
    ActiveSheet.Shapes.Range(Array("Forme libre 2")).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 100
End Sub

Sub Zoom()
    ActiveSheet.Shapes.Range(Array("Forme libre 2")).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 300
End Sub 
 

je peux essayer un code sur ton fichier s'il t'est possible de le mettre à notre disposition avec ce lien ou en message privé

https://www.cjoint.com/
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Super
J'essaie cela immédiatement et je te fais parvenir mon fichier si la procédure bloque.
Merci encore

Limon · Answer

Super.
cela fonctionne
Un très grand merci

Limon · Answer

Bonjour,
Toujours plus difficile: Deux question.
1)Comment écrire la fonction combinée SI ET en langage VBA?
Ex Si la valeur de la cellule A1 est x et si la valeur de la cellule B1 est y alors ....

2)Existe il une formulation dans une macro, pour rendre faire apparaître en blanc les contours d'une forme libre qui apparaissent par défaut en noir?
Grâce à tes conseils j'arrive à attribuer une couleur à l'interieur d'une forme libre mais je n'arrive pas à attribuer à cette forme libre un contour d'une autre couleur de le noir.

Merci pour tous tes conseils.

Mike-31 · Answer

Re,

réponse première question

if range("B1")="x" or range("B1")="y" then

plus technique

if [B1]="x" or [B1]="y" then

pour la deuxième question

ActiveSheet.Shapes.Range(Array("Forme libre 2")).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
 
tu peux aligner toutes ces lignes mais il faudra certainement condenser le code pour éviter les select à répétition qui vont ralentir les exécutions

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

J'essaie cela immédiatement et reviens vers toi si difficulté.
Énorme merci

Limon · Answer

Re-bonjour 
Toutes les procédures indiquées fonctionnent parfaitement.
Encore merci

Autre question:En lançant ma macro, je souhaite faire apparaître une Zone Texte qui était en blanc et que je veux faire apparaître en noir. Comment identifier en VBA une zone Texte 5 par exemple?

Mike-31 · Answer

Re,

le code pour faire apparaitre une zone de texte
ActiveSheet.Shapes.Range(Array("TextBox 5")).Visible = True

pour masquer une zone de texte
ActiveSheet.Shapes.Range(Array("TextBox 5")).Visible = False

pour la coloriser en noir
ActiveSheet.Shapes("TextBox 5").Fill.ForeColor.RGB = RGB(0, 0, 0) 

pour la mettre en blanc
ActiveSheet.Shapes("TextBox 5").Fill.ForeColor.RGB = RGB(255, 255, 255)

Limon · Answer

Bonjour,

Afin de mettre dans une couleur les bords de 170 formes libres de ma carte j'ai suivi la procédure que tu m'as envoyée. Cette dernière pour Trois formes libres fonctionne bien. Par contre lorsque je la généralise pour les 170 pays une erreur de compilation apparait avec mention "Procédure trop longue".
comment puis je faire? 
Ci dessous la procédure reproduite 170 fois
ActiveSheet.Shapes.Range(Array("Forme libre 2")).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)

Merci de ton aide

Mike-31 · Answer

Re,

Ce code colorise les bordures de toutes les shapes de ta feuille et en fin de code, cette ligne recolorise les shapes nommées  "Ellipse 2", "Rectangle 3" d'une couleur différente ou les recolorise à l'état initial

ActiveSheet.Shapes.Range(Array("Ellipse 2", "Rectangle 3")).Line.ForeColor.RGB = RGB(255, 0, 0)


Sub CouleurBordureShapes()
    Dim img As Object
    For Each img In Worksheets(1).Shapes
   'ou
    'For Each img In Sheets("Feuil1").Shapes
     img.Line.ForeColor.RGB = RGB(0, 0, 0)
    Next
    ActiveSheet.Shapes.Range(Array("Ellipse 2", "Rectangle 3")).Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Limon · Answer

Absolument génial
Et ça fonctionne
Merci

Limon · Answer

Re Re bonjour,
Tout d'abord encore merci. Toutes les procédures fonctionnent et cela me donne des idées pour améliorer ma macro.
Le code:
ActiveSheet.Shapes.Range(Array("Ellipse 2", "Rectangle 3")).Line.ForeColor.RGB = RGB(255, 0, 0)
permet de contracter les lignes par une mise en parenthèses des formes libres pour coloriser les bordures
Existe t il un code similaires pour contracter les lignes par une mise en parenthèses des formes libres pour coloriser l'intérieur de ces formes libres.
Lorsque j'écris:
If Range("B1").Value = 3 Then ActiveSheet.Shapes("Freeform 1924", "Freeform 1920").Fill.ForeColor.RGB = RGB(255, 255, 153)
cela ne fonctionne pas.

Mike-31 · Answer

Re,

Si ça marche, mais il faut ajouter un Array

If Range("B1").Value = 3 Then ActiveSheet.Shapes.Range(Array("Freeform 1924", "Freeform 1920")).Fill.ForeColor.RGB = RGB(255, 0, 0)

Limon · Answer

désolé,
Encore une petite question.
Comment puis je traduire e VBA le fait de passer à un agrandissement de ma feuiile excel de 100% à 200%?
Ex:
If Range("B1").Value = 0 Then..... Je passe d'un agrandissement de ma feuille excel de 125% à 200%

Merci

Limon · Answer

Nos messages se sont croisés.
Merci pour ta première réponse.
Je ne suis qu'un débutant mais avec tes conseils je vais progresser.

Mike-31 · Answer

Re,

comme ça

ActiveWindow.Zoom = 200 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Merci.
J'ai ainsi du travail pour toute la nuit.
Je te remercie très très sincèrement

Limon · Answer

Encore et toujours plus compliqué:
Existe il un code pour centrer (au centre de la feuille) un groupe de formes libres après un agrandissement de cette feuille ?
Merci

Mike-31 · Answer

Re,

Pour aligner au centre de l'écran, le code est lourd mais il est possible de l'écrire, par contre plus facile à utiliser et pour ramener les formes à leur place ces deux lignes de codes positionnent la forme nommée "Forme libre 2" sur la ligne 20 et colonne 10 soit aligné sur la cellule J20

ActiveSheet.Shapes("Forme libre 2").Left = Cells(20, 10).Left
  ActiveSheet.Shapes("Forme libre 2").Top = Cells(20, 10).Top

Mike-31 · Answer

Re,

pour compléter le post précédent et placer toujours la forme au centre de l'écran quelque soit la zone visible
il suffit de régler les valeurs 500 et 200 en fonction de l'écran utilisé, bien évidemment ces valeurs peuvent être automatique mais là le code est coton mais c'est possible

Set ecran = ActiveWindow.VisibleRange
    With ActiveSheet
    ActiveSheet.Shapes("Forme libre 2").Left = ecran.Left + 500
    ActiveSheet.Shapes("Forme libre 2").Top = ecran.Top + 200
    End With
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Bonjour,
Au risque de me répéter, encore mille mercis.
J'essaie ces deux procédures 

Bonne journée

Limon · Answer

Re-Bonjour,
La procédure que tu m'as envoyée hier soir fonctionne parfaitement. Merci
Set ecran = ActiveWindow.VisibleRange

    With ActiveSheet

    ActiveSheet.Shapes("Forme libre 2").Left = ecran.Left + 500

    ActiveSheet.Shapes("Forme libre 2").Top = ecran.Top + 200

    End With

Question.
Existe il une autre procédure permettant de remettre les forme libre à leur place initiale.
Les forme livre sont des pays. Grace à la macro que j'ai faite à l'aide de tes conseil, un groupe de pays est grossi et centre au milieu de l'écran,. mais je souhaiterais qu'ils puissent ensuite être remis à leur place initiale. Est ce possible?

Merci

Mike-31 · Answer

Re,

et la non, ce que tu demandes est possible dans l'exécution du code, mais dans ton cas c'est impossible parce que tu veux zoomer une pièce puis soit en activant une nouvelle pièce l'ancienne doit revenir à sa place.
je pense que tu devrais tester la position de chaque pièce et à l'activation d'une pièce repositionner chaque pièce avec le code que tu devras tester

With ActiveSheet
ActiveSheet.Shapes("Forme libre 1").Left = ecran.Left + 50
ActiveSheet.Shapes("Forme libre 1").Top = ecran.Top + 20 
ActiveSheet.Shapes("Forme libre 3").Left = ecran.Left + 100
ActiveSheet.Shapes("Forme libre 3").Top = ecran.Top + 80
   
ActiveSheet.Shapes("Forme libre 2").Left = ecran.Left + 500
ActiveSheet.Shapes("Forme libre 2").Top = ecran.Top + 200 

ton projet me plait bien, si tu me joint ton fichier j'essayerai de condenser le code

Limon · Answer

Super Merci
Aucun problème je veux bien te faire parvenir mon fichier.
Mais comment?

Mike-31 · Answer

Re,

tu clic sur ce lien, Parcourir pour sélectionner le fichier/Créer le lien/coller le lien généré dans un post ou en message privé, pour cela clic sur mon pseudo et écrire un message

https://www.cjoint.com/ 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

j'ai jeté un oeil rapide sur ton fichier, il est possible effectivement de supprimer de nombreuses lignes de code.

explique moi en B1 tu saisis un numéro et tu zoome un forme, pourquoi ne pas créer une liste déroulante avec les noms des continents et le continent se zoome

Limon2010 · Answer

Oui en effet j'ai prévu une liste déroulante avec le nom des zones géographiques, chaque nom correspond à un chiffre de la cellule B1 qui est repris dans ma macro ensuite.
Mon problème.
Pour la zone Afrique du Nord/Moyen Orient correspondant au chiffre 3 qui s'affiche par une simple formule (SI) dans la cellule B1. En lançant la Marco "bouton Valider" la zone en question s'affiche seule (en rouge) Mais elle est trop petite. Je zoome donc à 400% mon écran. 
Tout ceci fonctionne très bien.
Mais je perds la zone de part le grossissement de l'écran et je dois la chercher ce qui n'est pas satisfaisant. J'aurais souhaité que la zone reste au centre de l'écran.
Est ce possible?

Mike-31 · Answer

Re,

maintenant que j'ai le support je vais me pencher sur le problème

Limon2010 · Answer

Ok
Merci
J'attends avec impatience le résultat

Mike-31 · Answer

Re,

Un premier jet, j'ai été obligé de redessiner chaque forme et les placer directement sur une feuille de calcul.

je pense faire une liste déroulante, à la sélection d'une partie du monde, cette partie se colorise et le reste du monde pâli. Peut être ajouter ce coup là un bouton pour zoomer la partie du monde sélectionné 
pour l'instant il n'y a qu'un seul effet, clic sur le bouton et pour le retester ferme le fichier sans enregistrer, le fichier fonctionne sous protection sans mot de passe pour l'instant afin d'éviter le déplacement accidentel des pièces 

https://www.cjoint.com/?DDkxMEemvXz

Limon2010 · Answer

Bonjour,
Je ne sais comment te remercier.
je regarde cela immédiatement, ça  l'air vraiment génil

Merci

Mike-31 · Answer

Re,

J'ai avancé un peu sur ce fichier sélectionne la région sur la liste de validation en R1

 https://www.cjoint.com/?DDljwcaNkyJ 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon2010 · Answer

Re Bonjour,
Grace à tes conseil et à ton aide, j'avance et le résultat commence à être intéressant.
Pourrais tu me dire comment faire pour n'avoir aucun remplissage
ActiveSheet.Shapes("Grouper 506").Fill.ForeColor.RGB = RGB(.......

Merci de ton aide

Mike-31 · Answer

Re,

Pour une seule shape nommée Grouper 506
ActiveSheet.Shapes("Grouper 506").Fill.Visible = msoFalse 

pour plusieurs shapes nommées Form1, Form2 etc...
ActiveSheet.Shapes.Range(Array("Form1", "Form2", "Form3", "Form4", "Form5", "Form6")).Fill.Visible = msoFalse 

pour toutes les shapes
For Each img In Worksheets(1).Shapes 'colorise toutes les formes
     img.Fill.Visible = msoFalse 
    Next 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Bonjour,
Je suis toujours sur mon outil de cartographie qui grace à tes conseils a bien avancé.
Se pose maintenant un problème de compilation.
Pour chaque pays (172) j'ai dessiné quatre ellipses de taille différente que ai positionné sur les pays. Cela m'a pris pas mal de temps. En fonction de la valeur AI et T2 l'une de ces quatre ellipse apparait au milieu du pays.
Pour l'Autriche par exemple cela me donne cette écriture:

If Range("A1").Value = 10 And Range("T2").Value = 1 Then ActiveSheet.Shapes("Ellipse 610").Visible = True                              
If Range("A1").Value = 10 And Range("T2").Value = 2 Then ActiveSheet.Shapes("Ellipse 980").Visible = True                           
If Range("A1").Value = 10 And Range("T2").Value = 3 Then ActiveSheet.Shapes("Ellipse 1239").Visible = True                            
If Range("A1").Value = 10 And Range("T2").Value = 4 Then ActiveSheet.Shapes("Ellipse 1177").Visible = True    
 
Pour le pays suivant l'écriture est la suivante,
If Range("A1").Value = 10 And Range("T3").Value = 1 Then ActiveSheet.Shapes("Ellipse 516").Visible = True                              
If Range("A1").Value = 10 And Range("T3").Value = 2 Then ActiveSheet.Shapes("Ellipse 994").Visible = True                            
If Range("A1").Value = 10 And Range("T3").Value = 3 Then ActiveSheet.Shapes("Ellipse 1250").Visible = True                             
If Range("A1").Value = 10 And Range("T3").Value = 4 Then ActiveSheet.Shapes("Ellipse 1476").Visible = True     

Ainsi de suite pour les 50 premiers pays.
Cela fonctionnait très bien.
Mais pour le 51 ° pays, ma macro se bloque et un message d'erreur apparait m'indiquant un problème de compilation que je n'arrive pas à résoudre.
Aurais tu une idée?
Merci par avance de ton aide

Mike-31 · Answer

Re,

Copie la ligne sur laquelle la macro plante, elle est en jaune dans le code
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limon · Answer

Bonjour, et merci de ta réponse.
Pardonne moi, j'ai eu une matinée chargée. Je me remets sur mon outil .
Pardonne moi, mais je ne comprends pas ta réponse. La seule ligne en jaune qui apparaisse est 
Sub Bouton1_QuandClic()
Que veux tu dire par copier. 
Le message d'erreur est:
Erreur de compilation
Procédure trop grande.

Dois je diviser ma macro en plusieurs que je pourrais lancer par le même bouton. Est ce possible?
Merci encore de ton aide

Mike-31 · Answer

Re, 

sur la gauche, tu as un module si tu clic dessus il s'ouvrira et tu verras le code associé et la ligne qui est en erreur.

pour scinder un code trop long en plusieurs petit certainement plus facile à comprendre, il suffit de créer dans un module des codes successifs exemple 

Sub code1 ()
avec le code
puis Sub code2 () 

etc ...

ensuite soit tu le regroupes dans un code ou dans un bouton ActiveX qui donnera cece

Sub group ()
Call code1
Call code2
etc ...

ou dans un bouton ActiveX

Sub Bouton1_QuandClic() 
Call code1
Call code2
etc ...


les codes s'activeront dans l'ordre

je te conseille dans chaque code et en début une fois que le code est testé et fonctionne correctement de mettre une gestion d'erreur afin d'éviter le plantage, mais une fois que le code est fonctionnel sinon tu ne verras pas la ligne en erreur

Sub code1 ()
On Error Resume Next
avec le code

Limon · Answer

Super.
Tout fonctionne parfaitement avec des codes que j'appelle avec mon bouton principal.
Merci mille fois

Valentyn · Answer

Exemple sur youtube:
https://www.youtube.com/watch?v=6_L24gBbC3w&list=UUJxuUoGPcQawR83Ly184Clg

Limon · Answer

Bonjour,
Je souhaiterais remplacer une procédure longue et conduisant à un blocage de Excel réalisée avec des formules, par une macro.
Je dispose d'un tableau de 25 000 lignes correspondant au coût de notre action dans 170 pays dans un certain nombre de disciplines (danse, musique,....)
Chaque pays et chaque discipline sont identifiés par un code.
L'objectif est de calculer le montant engagé dans chaque discipline par pays.
Exemple :
Pays	Discipline	Montant
ALL	D	20€
ALG	D	40€
ALG	M	50€
DAN	T	15€
POR	PL	5€
ALG	M	25€
Pour le pays ALG, nous avons engagé 50€ et 25€ sur le secteur M soit 75€. Ceci à répéter dans un tableau de 25 000 lignes
Une macro peut elle être réalisée ?
Merci pour votre aide

Macro pour colorer une forme libre

56 réponses

Discussions similaires