Discussion :

[lofbat]

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 :

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

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.
Des idées pour solutionner cela ?

Un grand merci d'avance pour votre aide.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("Feuil2").Range(Cells(2, 2), Cells(2 + 3, 30)).Interior.Pattern = x1Solid

C'est une erreur classique de débutant. On l'a sans doute tous faite.

Tu constitues un Range dans "Feuil2" avec des cellules de ActiveSheet qui n'est vraisemblablement pas "Feuil2".
Il faut aussi indiquer le parent des Cells.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("Feuil2").Range(Sheets("Feuil2").Cells(2, 2), Sheets("Feuil2").Cells(2 + 3, 30)).Interior.Pattern = x1Solid

Je te laisse faire les autres lignes.

Cela dit, il serait plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("Feuil2").Range("B2:AD" & (2 + 3)).Interior.Pattern = x1Solid

J'ai laissé le "2+3" mais je ne comprends pas trop pourquoi tu n'as pas écrit "5".

[lofbat]

quel boulet !

Merci Menhir pour la solution, que je n'arrivais pas à trouver depuis 2 jours... !

Cela dit, il serait plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Range("B2:AD" & (2 + 3)).Interior.Pattern = x1Solid

J'ai laissé le "2+3" mais je ne comprends pas trop pourquoi tu n'as pas écrit "5".

En fait c'est simplement que j'ai extrait des lignes de mon code que j'ai adapté, l'idée c'est d'avoir un userform qui va remplir des champs à des endroits précis, repérés par un index de ligne (d'où également l'utilisation des cells). J'ai remplacé ma variable par un entier.

Un grand merci en tous cas !