macro de récupération de liste

Re : macro de récupération de liste

Bonjour


Pourquoi ne pas le poster ici ton fichier ?


PS: Et dans ce fil
https://www.excel-downloads.com/threads/erreur-de-fichier-perte-de-donnees.105236/
Tu en es ou ?

Re : macro de récupération de liste

parce qu'il est un peu gros 2 Mo environ.

En fait la macro suivante semble être la cause :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("C3:BL65"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
Application.EnableEvents = True
End Sub

lorsque je l'enleve je récupère les codes de ma liste mais avec la macro chargée de récupérer les couleurs ça bug

Re : macro de récupération de liste

Re


Crèes alors une version allégée de ton fichier

et zippes-le.

Re : macro de récupération de liste

oui mais j'aimerais pas le laisser pour tout le monde.

Re : macro de récupération de liste

Re


Le principe du forum, c'est que tout le monde peut essayer d'aider les forumeurs qui ont un problème à résoudre ce problème non ?

Re : macro de récupération de liste

voici le lien

Re : macro de récupération de liste

jopont à dit:

voici le lien

Cliquez pour agrandir...

Cijoint.fr - Service gratuit de dépôt de fichiers

Re : macro de récupération de liste

RE


Je vois que tu as pu récupérer ton fichier endommagé finalement 🙂

Re : macro de récupération de liste

Oui en fait j'avais une petite copie de sauvegarde qui datait un peu.
Mais j'ai encore du travail.
As-tu pu regarder pour ma macro de récupération de couleur
merci

Re : macro de récupération de liste

Re



Oui pas de bug constaté

J'ai mis le code sur la feuille janv

et cela fonctionne.

Re : macro de récupération de liste

Ok mais je dois l'intégrer ou le code suivant :

Application.EnableEvents = False
If Not Intersect(Range("C3:BL65"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex =[liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
Application.EnableEvents = True
End Sub

étant donné que j'ai deja ce code sur ma feuille

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call Nbjoursup3
Application.EnableEvents = True
Application.EnableEvents = False
Call Nbjourpat
Application.EnableEvents = True
End Sub




Private Sub ComboBox1_Change()
TestCombo
End Sub
Private Sub ComboBox2_Change()
TestCombo
End Sub
Private Sub ComboBox3_Change()
TestCombo
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
init
If Not Intersect(Target, [DV4😀V65]) Is Nothing Then
ComboBox1.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
ComboBox1.Left = Target.Left 'Offset(0, 1).
ComboBox2.Left = ComboBox1.Left + ComboBox1.Width
ComboBox3.Left = ComboBox2.Left + ComboBox2.Width
ComboBox1.Top = Target.Offset(0, 1).Top
ComboBox2.Top = ComboBox1.Top
ComboBox3.Top = ComboBox2.Top
End If
Application.ScreenUpdating = True
End Sub
Sub TestCombo()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" And ComboBox3.Value <> "" Then
ActiveCell = ComboBox1.Value & ":" & ComboBox2.Value & ":" & ComboBox3.Value
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
End If
End Sub
Sub init()
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
For i = 0 To 23
ComboBox1.AddItem i
Next
For i = 0 To 59
ComboBox2.AddItem i
ComboBox3.AddItem i
Next
End Sub

Re : macro de récupération de liste

Bon ça fonctionne à présent, mais je suis obligé de sélectionné une autre cellule puis de reselectionner la cellule pour la prise en compte de la couleur
voir le fichier joint

Re : macro de récupération de liste

quelqu'un a-t-il une explication ?