Bonjour,
Voilà mon problème.J'ai une première feuille excel ou il y a des combobox
qui vont chercher les informations qu'il leur faut dans d'autres feuilles du
même classeur. Le problème est que je voudrais sauvegarder les données
qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme
excel, sachant que les informations change tous les jours et que l'on
imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive
pas j'ai essayer avec des macros ou de recopier le contenue de la combobox
dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal
pris!
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
bonjour,
le petit programme suivant pour détecter ce qui est contenu dans un combobx sur une feuille.
'remplit le combobox Me.ComboBox1.ListFillRange = "A1:A5"
'envoir un message pour dire tout ce qu'il y a dans le combobox. For Each valeur In Me.ComboBox1.List MsgBox valeur Next
ce qu'il y a dans le For each est à adapter pour dire où tu veux écrire les données.
A+
Bonjour, Voilà mon problème.J'ai une première feuille excel ou il y a des combobox qui vont chercher les informations qu'il leur faut dans d'autres feuilles du même classeur. Le problème est que je voudrais sauvegarder les données qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme excel, sachant que les informations change tous les jours et que l'on imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive pas j'ai essayer avec des macros ou de recopier le contenue de la combobox dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal pris! Merci pour votre aide.
bonjour,
le petit programme suivant pour détecter ce qui est contenu dans un combobx
sur une feuille.
'remplit le combobox
Me.ComboBox1.ListFillRange = "A1:A5"
'envoir un message pour dire tout ce qu'il y a dans le combobox.
For Each valeur In Me.ComboBox1.List
MsgBox valeur
Next
ce qu'il y a dans le For each est à adapter pour dire où tu veux écrire les
données.
A+
Bonjour,
Voilà mon problème.J'ai une première feuille excel ou il y a des combobox
qui vont chercher les informations qu'il leur faut dans d'autres feuilles du
même classeur. Le problème est que je voudrais sauvegarder les données
qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme
excel, sachant que les informations change tous les jours et que l'on
imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive
pas j'ai essayer avec des macros ou de recopier le contenue de la combobox
dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal
pris!
Merci pour votre aide.
le petit programme suivant pour détecter ce qui est contenu dans un combobx sur une feuille.
'remplit le combobox Me.ComboBox1.ListFillRange = "A1:A5"
'envoir un message pour dire tout ce qu'il y a dans le combobox. For Each valeur In Me.ComboBox1.List MsgBox valeur Next
ce qu'il y a dans le For each est à adapter pour dire où tu veux écrire les données.
A+
Bonjour, Voilà mon problème.J'ai une première feuille excel ou il y a des combobox qui vont chercher les informations qu'il leur faut dans d'autres feuilles du même classeur. Le problème est que je voudrais sauvegarder les données qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme excel, sachant que les informations change tous les jours et que l'on imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive pas j'ai essayer avec des macros ou de recopier le contenue de la combobox dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal pris! Merci pour votre aide.
michdenis
Bonjour ptite grenouille,
Essaie ceci : Cette exemple copie le contenu de tous les combobox qu'il y a sur la feuil2 pour copier leur contenu dans la feuil3.
Adapte le nom des objets selon ton application.
à copier obligatoirement dans un module standard ....!
'-------------------------------- Sub Combo()
Dim C As Object, A As Long, Lg As Long With Worksheets("Feuil2") Application.EnableEvents = False For Each C In .OLEObjects If TypeName(C.Object) = "ComboBox" Then A = A + 1 Lg = Range(C.ListFillRange).Rows.Count With Worksheets("Feuil3") .Columns(A).EntireColumn.Clear .Cells(1, A) = C.Name .Cells(2, A).Resize(Lg) = Range(C.ListFillRange).Value .Columns(A).EntireColumn.AutoFit End With End If Next Application.EnableEvents = True End With
End Sub '--------------------------------
Salutations!
"ptite grenouille" a écrit dans le message de news:
Bonjour, Voilà mon problème.J'ai une première feuille excel ou il y a des combobox qui vont chercher les informations qu'il leur faut dans d'autres feuilles du même classeur. Le problème est que je voudrais sauvegarder les données qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme excel, sachant que les informations change tous les jours et que l'on imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive pas j'ai essayer avec des macros ou de recopier le contenue de la combobox dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal pris! Merci pour votre aide.
Bonjour ptite grenouille,
Essaie ceci : Cette exemple copie le contenu de tous les combobox qu'il y a sur la feuil2 pour copier leur contenu dans
la feuil3.
Adapte le nom des objets selon ton application.
à copier obligatoirement dans un module standard ....!
'--------------------------------
Sub Combo()
Dim C As Object, A As Long, Lg As Long
With Worksheets("Feuil2")
Application.EnableEvents = False
For Each C In .OLEObjects
If TypeName(C.Object) = "ComboBox" Then
A = A + 1
Lg = Range(C.ListFillRange).Rows.Count
With Worksheets("Feuil3")
.Columns(A).EntireColumn.Clear
.Cells(1, A) = C.Name
.Cells(2, A).Resize(Lg) = Range(C.ListFillRange).Value
.Columns(A).EntireColumn.AutoFit
End With
End If
Next
Application.EnableEvents = True
End With
End Sub
'--------------------------------
Salutations!
"ptite grenouille" <ptitegrenouille@discussions.microsoft.com> a écrit dans le message de news:
38EE42BA-ADDF-4891-8F61-11DC0027488B@microsoft.com...
Bonjour,
Voilà mon problème.J'ai une première feuille excel ou il y a des combobox
qui vont chercher les informations qu'il leur faut dans d'autres feuilles du
même classeur. Le problème est que je voudrais sauvegarder les données
qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme
excel, sachant que les informations change tous les jours et que l'on
imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive
pas j'ai essayer avec des macros ou de recopier le contenue de la combobox
dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal
pris!
Merci pour votre aide.
Essaie ceci : Cette exemple copie le contenu de tous les combobox qu'il y a sur la feuil2 pour copier leur contenu dans la feuil3.
Adapte le nom des objets selon ton application.
à copier obligatoirement dans un module standard ....!
'-------------------------------- Sub Combo()
Dim C As Object, A As Long, Lg As Long With Worksheets("Feuil2") Application.EnableEvents = False For Each C In .OLEObjects If TypeName(C.Object) = "ComboBox" Then A = A + 1 Lg = Range(C.ListFillRange).Rows.Count With Worksheets("Feuil3") .Columns(A).EntireColumn.Clear .Cells(1, A) = C.Name .Cells(2, A).Resize(Lg) = Range(C.ListFillRange).Value .Columns(A).EntireColumn.AutoFit End With End If Next Application.EnableEvents = True End With
End Sub '--------------------------------
Salutations!
"ptite grenouille" a écrit dans le message de news:
Bonjour, Voilà mon problème.J'ai une première feuille excel ou il y a des combobox qui vont chercher les informations qu'il leur faut dans d'autres feuilles du même classeur. Le problème est que je voudrais sauvegarder les données qu'elles contiennent sur une autre feuille à chaque fois que l'on ferme excel, sachant que les informations change tous les jours et que l'on imprimera la feuille de sauvegarde chaque fin dde semaine. et je n'y arrive pas j'ai essayer avec des macros ou de recopier le contenue de la combobox dans la cellule qu'elles couvrent mais sans succés. je m'y suis surement mal pris! Merci pour votre aide.
