Transformation des cellules dans Excel Fermé

Question

Bonjour, 

Pour un travail, j'aurais besoin de faire une transformation à plusieurs dizaines de cellules et cela m'aiderait beaucoup si il y avait une manière automatisée pour régler le problème. Malheureusement, c'est plutôt complexe:

J'aimerais que chaque cellule COLORÉE (uniquement) affiche maintenant un texte.

Par exemple, si le nom Jean PERRON se trouve dans une cellule colorée en jaune, j'aimerais qu'il se transforme en Jean PERRON, avocat. 

Je comprends que tout ça ne serait pas nécessaire si les données avaient été mieux organisées, mais ce n'est pas moi qui ait fait cette partie du travail.

Je vous remercie d'avance!

Raymond PENTIER · Answer

C'est facile, si la coloration des cellules a été, elle aussi, automatisée grâce à la Mise en Forme Conditionnelle.

Sinon, il te faudra l'aide d'un spécialiste en VBA ...

pijaku · Answer

Bonjour,  
Salut Raymond,  
Comment vont nos chères Antilles?  
Bien que pas spécialiste VBA, je peux reprendre le dossier.  

Marc Antoine,  
Sans plus de précisions, nous ne pouvons pas grand chose...  
Je vais te donner un code VBA à insérer dans un module (pour cela, dans la feuille excel concernée, taper ALT+F11, dans la fenêtre visual basic ainsi ouverte faire : Insertion/Modules et copier /  coller le code suivant, le modifier comme indiqué ci après puis fermer cette fenêtre visual basic pour retourner sous excel).   
Il te faudra effectivement modifier ce code pour l'adapter à ta situation.  

code :
Sub EcrireSelonCouleur()  
Dim dercol, derlign As Integer  
Dim Cel As Range  

derlign = Range("A1").SpecialCells(xlCellTypeLastCell).Row  
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column  

     For Each Cel In Range(Cells(1, 1), Cells(derlign, dercol))  
          Select Case Cel.Interior.ColorIndex  
              Case 5  
                  Cel.Value = Cel.Value & ", avocat"  
              Case 10  
                  Cel.Value = Cel.Value & ", professeur"  
              Case 12  
                  Cel.Value = Cel.Value & ", médecin"  
              Case 48  
                  Cel.Value = Cel.Value & ", kyné"  
          End Select  
     Next Cel  
End Sub

Modifications à apporter :
- en gras dans le code, les codes couleurs VBA. ci joint le classeur de correspondance des couleurs. Change les chiffres selon les couleurs contenues dans tes cellules. Tu peux bien entendu ajouter des case (toujours les placer entre Select Case et End Select)  
- en souligné, ce que tu veux ajouter aux cellules colorées.  
- ce code fonctionne sur toutes les cellules de la feuille active. Il est bien entendu possible de modifier cela.

Fonctionnement :
Une fois tout le code modifié, aller sur la feuille concernée, taper ALT+F8, choisir "EcrireSelonCouleur" et exécuter.  
Si toutefois vous êtes novice en macro, et même dans le cas contraire, je vous recommande fortement de faire un essai avec une copie de votre classeur original...  
Cordialement,  
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --