Discussion :

[linkcr15]

Bonjour à tous.

Voila j'expose mon problème : J'ai un tableau Excel que je souhaiterais afficher dans un UserForm pour le modifier si l'utilisateur le souhaite. J'ai d'abord essayé de l'afficher dans une ListBox, sans succés.
J'ai donc ensuite créée un Spreadsheet. Là j'arrive à afficher des valeurs dans un range définit. Cependant, impossible de reprendre le tableau souhaité qui à le même range.
Voici la ligne qui ne fonctionne pas :

Code :

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

Usr_Affiche.Spsheet_Demande.Range("A1:M56") = feuilDemande.Range("A1:M56")

feuilDemande est définit comme suit :

Code :

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

1
2
Dim feuilDemande
Set feuilDemande = Application.Workbooks("nomFichier").Worksheets("Demande")

Et quand je fais

Code :

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

Usr_Affiche.Spsheet_Demande.Range("A1:M56") = 5

toutes mes cellules sont à 5 sans erreur.

Pouvez-vous m'aider svp?

[linkcr15]

Problème résolu, je ne sais pas pourquoi mais il manquait value à la fin de la ligne :

Code :

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

Usr_Affiche.Spsheet_Demande.Range("A1:M56") = feuilDemande.Range("A1:M56").Value