Bonjour, Suite à un transfert de fichiers d’Excel vers Calc, j’ai un problème de conversion de macro. La macro sous Excel permet de mettre en couleur les cellules d’un planning de 969 cases en fonction du contenu de la case et des infos d’une autre feuille contenant les codes couleurs et les différents textes servant à la comparaison (35 infos différentes). Cela donne sous excel, le code suivant :

Option Explicit Sub mise_en_couleur() Dim Compt_colonne, Compt_ligne, Spinner, Strings, i, texte1, li, col, colo, ColorIndex As Integer Dim msg, Style, Title, Réponse, MaChaine msg = "Cette procédure dure de 30 à 60 secondes, Voulez-vous la lancer ?" ' Définit le message. Style = vbYesNo ' Définit les boutons. Title = "Mise en couleur du planning année" ' Définit les titres. ' Affiche le message. Réponse = MsgBox(msg, Style, Title) If Réponse = vbYes Then ' L'utilisateur a choisi le bouton Oui. MaChaine = "Oui" ' Accomplit une action. 'mise en couleur Sheets("4-plan-année").Select ActiveSheet.Unprotect Range("F7").Select li = 6 col = 5 For i = 1 To 35 Sheets("3-Récapitulatif année").Select Cells(li, col).Activate Strings = ActiveCell.Value Sheets("3-Récapitulatif année").Select Cells(li, (col - 4)).Activate texte1 = ActiveCell.Value Sheets("4-plan-année").Select For Compt_colonne = 6 To 25 For Compt_ligne = 7 To 58 If Cells(Compt_ligne, Compt_colonne) = Strings Then Cells(Compt_ligne, Compt_colonne).Interior.ColorIndex = texte1 End If Next Next li = li + 1 Next End If Range("F7").Select End Sub

Mon problème est de passer cette macro sous Calc. Quelqu’un peut-il m’aider ? d’avance merci