Bonjour à tous,
Je me heurte à une erreur que je n'arrive pas à solutionner. L'idée est, en double-cliquant dans une cellule, de faire apparaître un userform personnalisé qui va ensuite rentrer des données dans une autre feuille du classeur. Tout ce processus fonctionne bien, sauf qu'à la fin je veux mettre en forme mes données et là, ça plante. A noter que le userform fonctionne très bien lorsqu'il est lancé tout seul.
J'ai reproduit le problème par la fonction suivante, toute bête, à placer dans le vba de la feuille 1 d'un fichier vierge avec une feuille 2 existante :
Si l'on place ce code dans le vba de la feuille 2, cela fonctionne. Le problème est donc, en lançant le code depuis la feuille 1, d'intervenir sur les paramètres des cellules de la feuille 2.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Sheets("Feuil2").Range(Cells(2, 2), Cells(2 + 3, 30)).Interior.Pattern = x1Solid Sheets("Feuil2").Range(Cells(2, 2), Cells(2 + 3, 30)).Interior.Color = 14082239 Sheets("Feuil2").Range(Cells(2, 2), Cells(2 + 3, 30)).Font.Color = -12629479 Cancel = True End Sub
Des idées pour solutionner cela ?
Un grand merci d'avance pour votre aide.
Partager