D demarer XLDnaute Junior 14 Juin 2010 #1 bonjour je souhaite savoir comment faire pour charger dans une zone de texte , les données de la 1ère feuille d'un classeur , en cliquant sur un bouton . merci d'avance
bonjour je souhaite savoir comment faire pour charger dans une zone de texte , les données de la 1ère feuille d'un classeur , en cliquant sur un bouton . merci d'avance
job75 XLDnaute Barbatruc 14 Juin 2010 #2 Re : remplir une "zone de texte " avec le contenu de l'une des feuilles d'un classeur Bonsoir demarer, Avec une "Zone de texte" je ne sais pas mais voyez avec cette Shape "Image1". Le UsedRange de Feuil2 est copié en Feuil1 grâce à cette macro : Code: Private Sub WorkSheet_Change(ByVal Target As Range) ThisWorkbook.Names.Add "Plage", Me.UsedRange End Sub Fichier joint. A+ Pièces jointes Forme(1).xls 27 KB · Affichages: 84 Vote positif 0 Vote négatif
Re : remplir une "zone de texte " avec le contenu de l'une des feuilles d'un classeur Bonsoir demarer, Avec une "Zone de texte" je ne sais pas mais voyez avec cette Shape "Image1". Le UsedRange de Feuil2 est copié en Feuil1 grâce à cette macro : Code: Private Sub WorkSheet_Change(ByVal Target As Range) ThisWorkbook.Names.Add "Plage", Me.UsedRange End Sub Fichier joint. A+
job75 XLDnaute Barbatruc 15 Juin 2010 #3 Re : remplir une "zone de texte " avec le contenu de l'une des feuilles d'un classeur Re, La solution précédente ne mettait pas à jour la copie si l'on modifiait un format Edit : hors du UsedRange. Cette 2ème solution est alors préférable avec cette macro en Feuil1 : Code: Private Sub WorkSheet_Activate() ThisWorkbook.Names.Add "Plage", Sheets("Feuil2").UsedRange End Sub A+ Pièces jointes Forme(2).xls 27 KB · Affichages: 94 Dernière édition: 15 Juin 2010 Vote positif 0 Vote négatif
Re : remplir une "zone de texte " avec le contenu de l'une des feuilles d'un classeur Re, La solution précédente ne mettait pas à jour la copie si l'on modifiait un format Edit : hors du UsedRange. Cette 2ème solution est alors préférable avec cette macro en Feuil1 : Code: Private Sub WorkSheet_Activate() ThisWorkbook.Names.Add "Plage", Sheets("Feuil2").UsedRange End Sub A+