Macro qui ne fonctionne pas ailleurs

[MAN]

Bonjour le forum
Bonjour a Tous.
j'ai concu grace au Forum un fichier A qui fonctionne tres bien: toutes les macros fonctionnent parfaitement et vous trouverez que ce fichier est a quelques petits défauts pres acceptable. c'etait le fichier de base.
Malheuureusement, lorsque je le transporte en B: fichier d'utillisation, aucune macro ne fonctionne
l'USF principal ne s'ouvre plus. et me marque Erreur d'execution '1004' pas de cellules correspondantes.
lorsque je veux voir le débogage, en surbrillance on a UserForm1.Schow absent?
Aidez moi a débloquer cette situation SVP
Je vous joins les deux fichiers.

 

[youky(BJ)]

Re : Macro qui ne fonctionne pas ailleurs

Bonjour MAN,
En Initialize de l'userform
dans le for mets 11 (que j'ai mis en rouge)
cela indique la dernière cellule remplie

Private Sub UserForm_Initialize()

bla bla bla et à....

For Each cel In ActiveSheet.Columns(19).SpecialCells(11)


Bruno

 

[Robert]

Re : Macro qui ne fonctionne pas ailleurs

Bonjour Man, bonjour le forum,

C'est cette ligne qui pose problème :

For Each cel In ActiveSheet.Columns(19).SpecialCells(xlCellTypeConstants)

Car elle signifie que dans la colonne 19 (=S) tu ne prends que les cellules contenant une constante et les rares cellules contenant des valeurs le sont par des formules...

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

Merci a tous
j'éssaie vos formule
A +

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

encore un probleme.
la list box ne donne plus. elle marque calcul. voyez le fichier joint.
En plus, quelle méthode dois je faire pour ne plus avoir les erreurs d'execution en cas de formule avec fausses dans les cellules.
comment puis je faire pour actualiser ma list box en temps réel chaque fois que j'aprovisionne la combo box et la list joinnte et que je tape ENTREE
revoila le fichier

 

[Robert]

Re : Macro qui ne fonctionne pas ailleurs

Bonjour le fil, bonjour le forum,

Pourquoi est-tu passé subitement de la colonne 19 à 11 ?

For Each cel In ActiveSheet.Columns(11).SpecialCells(xlCellTypeConstants)

Pour les autres questions, je veux bien regarder un fichier cohérent compatible avec Excel 2003 mais comme je n'utilise jamais les ListView je ne pense pas être d'un grans secours...

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

je suis passé a la col 19. a ce moment, la listview note plutot les libellés en ligne. c'est stressant l'exercice. mais ensemble, la solution arrivera .
toujours un merci a ceux qui se sont toujours penchés sur mon probleme.

 

[youky(BJ)]

Re : Macro qui ne fonctionne pas ailleurs

Re,
voici le fichier, j'ai mis des apostrophes à
'For
'If
choisit la version qui va le mieux
J'ai remis une nouvelle Listview car tu avais changer des propriétés que j'ai pas retrouvées.
Bruno

EDIT:Salut Robert, tu as 2003 mais tu peux lire quand même les 2007 ??

 

[Robert]

Re : Macro qui ne fonctionne pas ailleurs

Bonjour le fil, bonjour le forum,

@youky,

Oui je peux ouvrir mais parfois quand je lance la macro ça ne fonctionne pas. Il me faut faire des copier/coller des données sur un classeur vierge, refaire les boutons, etc. Bref ça me gave...

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

Erreur chargement DLL
cela devient stressant

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

bonjour le forum
j'ai réussi tout de meme a faire quelque chose d'acceptable bien que perfectible. cependant, certaines cellules des feuilles du fichier doivent etre verouillés afin que le fichier soit exploitable. a ce niveau aussi, la macro bloque.
puis je avoir un tour de passe passe pour éloigner de moi ce soucis
A vous ce fichier. cliquez protégez simplement les cellules verouillés pour écriture c'est deja paramétré et vous obtiendrez en gras l'objet de ma dépression.

 

[youky(BJ)]

Re : Macro qui ne fonctionne pas ailleurs

Re,
En fenêtre projet
Double click sur ThisWorkbook
et copie cela qui permet aux macros d'écrire dans la feuille protégée
Private Sub Workbook_Open()
Sheets("1").Protect , userinterfaceonly:=True
End Sub

ou alors chaque fois dans une macro ou tu dois écrire tu places en début
Sheets("1").Unprotect
et à la fin
Sheets("1").Protect

et si mot passe
Sheets("1").Protect "toto"
Bruno

 

[MAN]

Re : Macro qui ne fonctionne pas ailleurs

ça ne fonctionne malheureusement pas toujours

 

[youky(BJ)]

Re : Macro qui ne fonctionne pas ailleurs

Chez moi ça marche !!
Faut en dire plus . . .
Quelle ligne bug ?
Quand on fait quoi ?
Bruno